login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

n^2 - phi(n).
2

%I #19 Sep 08 2022 08:46:12

%S 0,3,7,14,21,34,43,60,75,96,111,140,157,190,217,248,273,318,343,392,

%T 429,474,507,568,605,664,711,772,813,892,931,1008,1069,1140,1201,1284,

%U 1333,1426,1497,1584,1641,1752,1807,1916,2001,2094,2163,2288

%N n^2 - phi(n).

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

%F For p prime, a(p) = A002061(p); A119959 is a subsequence. - _Michel Marcus_, Jun 06 2015

%e a(5) = 21, since 5^2 = 25 and phi(5) = 4.

%t Table[n^2 - EulerPhi[n], {n, 200}]

%o (PARI) vector(50, n, n^2-eulerphi(n)) \\ _Michel Marcus_, May 30 2015

%o (Magma) [n^2 - EulerPhi(n): n in [1..60]]; // _Vincenzo Librandi_, Jun 03 2015

%Y Cf. A000290, A000010.

%K nonn,easy

%O 1,2

%A _Carlos Eduardo Olivieri_, May 30 2015