OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
seq = {1}; sum = 1; Do[sum += EulerPhi[k]; If[!PrimeQ[sum], AppendTo[seq, sum]], {k, 1, 80}]; seq (* Amiram Eldar, Mar 01 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Frank Ellermann, May 17 2001
EXTENSIONS
More terms from Vladeta Jovovic, Jun 03 2001
Offset corrected by Amiram Eldar, Mar 01 2020
STATUS
approved