OFFSET
1,1
COMMENTS
From Amiram Eldar, May 28 2024: (Start)
The terms 561, 6601, 8911 and 6840001 are Carmichael numbers (A002997). The next Carmichael number in this sequence is 16187797671051601, and there are no more Carmichael numbers in this sequence below 10^22.
a(15) > 10^10. (End)
MATHEMATICA
t={}; Do[If[PrimeQ[n]==False && IntegerQ[(n-1)*4/EulerPhi[n]], Print[n]; AppendTo[t, n]], {n, 2, 10^5}]; t
Select[Range[7*10^6], CompositeQ[#]&&Divisible[4(#-1), EulerPhi[#]]&] (* Harvey P. Dale, Jul 07 2016 *)
PROG
(PARI) p=1; forprime(q=2, 1e9, for(n=p+1, q-1, if((4*n-4)%eulerphi(n)==0, print1(n", "))); p=q) \\ Charles R Greathouse IV, Jul 31 2011
CROSSREFS
KEYWORD
nonn,more
AUTHOR
José María Grau Ribas, Jul 20 2011
STATUS
approved