|
| |
|
|
A066792
|
|
Eulerphi(n^3+n^2+n+1).
|
|
1
| |
|
|
1, 2, 8, 16, 64, 48, 216, 160, 288, 320, 1000, 480, 1344, 768, 1568, 1792, 4096, 1344, 4320, 2880, 4800, 3840, 8448, 3328, 11520, 7488, 12168, 6912, 17472, 6720, 24960, 13824, 16000, 13824, 25344, 14688, 46656, 19584, 26112, 24320, 64000, 19488
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=0,...,1000
|
|
|
MATHEMATICA
| Prepend[EulerPhi[Total[#^Range[0, 3]]]&/@Range[45], 1] (* From Harvey P. Dale, Feb 19 2011 *)
|
|
|
PROG
| (PARI) { for (n=0, 1000, write("b066792.txt", n, " ", eulerphi(n^3 + n^2 + n + 1)) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Mar 27 2010]
|
|
|
CROSSREFS
| Sequence in context: A162584 A100243 A026523 * A096195 A094014 A098232
Adjacent sequences: A066789 A066790 A066791 * A066793 A066794 A066795
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Benoit Cloitre (benoit7848c(AT)orange.fr), Jan 18 2002
|
| |
|
|
