|
| |
|
|
A122507
|
|
Triangular in which row n contains first n terms of A018805.
|
|
0
| |
|
|
1, 1, 3, 1, 3, 7, 1, 3, 7, 11, 1, 3, 7, 11, 19, 1, 3, 7, 11, 19, 23, 1, 3, 7, 11, 19, 23, 35, 1, 3, 7, 11, 19, 23, 35, 43, 1, 3, 7, 11, 19, 23, 35, 43, 55, 1, 3, 7, 11, 19, 23, 35, 43, 55, 63, 1, 3, 7, 11, 19, 23, 35, 43, 55, 63, 83
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
EXAMPLE
| 1
1, 3
1, 3, 7
1, 3, 7, 11
1, 3, 7, 11, 19
1, 3, 7, 11, 19, 23
|
|
|
MATHEMATICA
| a1 = Table[ FoldList[ Plus, 1, 2 Array[ EulerPhi, n, 2 ] ], {n, 0, 10}] Flatten[a1]
|
|
|
CROSSREFS
| Cf. A018805.
Sequence in context: A171961 A205121 A152903 * A094250 A114972 A107461
Adjacent sequences: A122504 A122505 A122506 * A122508 A122509 A122510
|
|
|
KEYWORD
| nonn,tabl
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Sep 15 2006
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane (njas(AT)research.att.com), Jun 16 2007
|
| |
|
|
