A104192 - OEIS

%I #8 Jan 03 2017 02:33:53

%S 1,2,3,5,7,11,11,15,17,25,21,33,29,37,39,45,43,55,49,63,61,69,61,81,

%T 77,89,85,95,81,105,97,115,117,123,125,139,121,145,143,157,139,169,

%U 149,173,173,177,165,207,185,209,201,215,189,233,217,239,233,243,219,265,223

%N a(n) = prime(n) - phi(n).

%t a== Table[Prime[n] - EulerPhi[n], {n, 1, 200}]

%o (PARI) a(n) = prime(n) - eulerphi(n);

%Y Cf. A000010, A000040.

%K nonn

%O 1,2

%A _Roger L. Bagula_, Mar 12 2005