OFFSET
1,2
COMMENTS
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000
MATHEMATICA
With[{pp = Select[Range[1000], PrimePowerQ]}, Table[Fold[EulerPhi[#2 + #] &, 0, pp[[n ;; 1 ;; -1]]], {n, Length[pp]}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo Xausa, Jan 24 2025
STATUS
approved