STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
Numbers n k such that phi(nk*(nk+1)*(nk+2)/3)/phi(nk) is not an integer where phi(nk) is the Euler totient function A000010(nk).
Select[Range[2000], ! Divisible[EulerPhi[#*(# + 1)*(# + 2)/3], EulerPhi[#]] &] (* Amiram Eldar, Mar 01 2020 *)
Amiram Eldar, <a href="/A067536/b067536.txt">Table of n, a(n) for n = 1..10000</a>
approved
editing
editing
approved
(PARI) is(n)=eulerphi(n*(n+1)*(n+2)/3)%eulerphi(n) \\ Charles R Greathouse IV, Mar 05 2013
approved
editing
_Benoit Cloitre (benoit7848c(AT)orange.fr), _, Jan 28 2002
nonn,new
nonn
Benoit Cloitre (abmtbenoit7848c(AT)wanadooorange.fr), Jan 28 2002
nonn,new
nonn
Benoit Cloitre (abcloitreabmt(AT)modulonetwanadoo.fr), Jan 28 2002