A104195 a(n) = -(phi(n) + CarmichaelLambda(n)) + prime(n).

0, 1, 1, 3, 3, 9, 5, 13, 11, 21, 11, 31, 17, 31, 35, 41, 27, 49, 31, 59, 55, 59, 39, 79, 57, 77, 67, 89, 53, 101, 67, 107, 107, 107, 113, 133, 85, 127, 131, 153, 99, 163, 107, 163, 161, 155, 119, 203, 143, 189, 185, 203, 137, 215, 197, 233, 215, 215, 161, 261, 163, 233

Offset

1,4

Links

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

Formula

a(n) = A000040(n) - A000010(n) - A002322(n).

Mathematica

a= Table[ -(EulerPhi[n] + CarmichaelLambda[n]) + Prime[n], {n, 1, 200}]

Prog

(PARI) a(n) = prime(n) - eulerphi(n) - lcm(znstar(n)[2]); \\ Michel Marcus, Mar 18 2016

Crossrefs

Cf. A000010, A000040, A002322.

Sequence in context: A307379 A276147 A300782 * A294178 A062131 A199663

Adjacent sequences: A104192 A104193 A104194 * A104196 A104197 A104198

Keyword

nonn,less

Author

Roger L. Bagula, Mar 12 2005

Status

approved