A258434 n^2 - phi(n).

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

Offset

1,2

Links

Table of n, a(n) for n=1..48.

Formula

a(n) = A000290(n) - A000010(n).

For p prime, a(p) = A002061(p); A119959 is a subsequence. - Michel Marcus, Jun 06 2015

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
(Magma) [n^2 - EulerPhi(n): n in [1..60]]; // Vincenzo Librandi, Jun 03 2015

Crossrefs

Cf. A000290, A000010.

Sequence in context: A161210 A256059 A347349 * A249341 A310278 A154772

Adjacent sequences: A258431 A258432 A258433 * A258435 A258436 A258437

Keyword

nonn,easy

Author

Carlos Eduardo Olivieri, May 30 2015

Status

approved