|
|
|
|
0, 3, 7, 14, 21, 34, 43, 60, 75, 96, 111, 140, 157, 190, 217, 248, 273, 318, 343, 392, 429, 474, 507, 568, 605, 664, 711, 772, 813, 892, 931, 1008, 1069, 1140, 1201, 1284, 1333, 1426, 1497, 1584, 1641, 1752, 1807, 1916, 2001, 2094, 2163, 2288
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
a(5) = 21, since 5^2 = 25 and phi(5) = 4.
|
|
MATHEMATICA
|
Table[n^2 - EulerPhi[n], {n, 200}]
|
|
PROG
|
(PARI) vector(50, n, n^2-eulerphi(n)) \\ Michel Marcus, May 30 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|