OFFSET
0,2
LINKS
Harry J. Smith, Table of n, a(n) for n = 0..1000
FORMULA
MATHEMATICA
Prepend[EulerPhi[Total[#^Range[0, 3]]]&/@Range[45], 1] (* Harvey P. Dale, Feb 19 2011 *)
PROG
(PARI) { for (n=0, 1000, write("b066792.txt", n, " ", eulerphi(n^3 + n^2 + n + 1)) ) } \\ Harry J. Smith, Mar 27 2010
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Benoit Cloitre, Jan 18 2002
STATUS
approved