A104193 a(n) = prime(n) - Carmichael lambda(n).

1, 2, 3, 5, 7, 11, 11, 17, 17, 25, 21, 35, 29, 37, 43, 49, 43, 55, 49, 67, 67, 69, 61, 87, 77, 89, 85, 101, 81, 109, 97, 123, 127, 123, 137, 145, 121, 145, 155, 169, 139, 175, 149, 183, 185, 177, 165, 219, 185, 209, 217, 227, 189, 233, 237, 257, 251, 243, 219, 277

Offset

1,2

Links

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

Formula

a(n) = A000040(n) - A002322(n). - Michel Marcus, Mar 18 2016

Mathematica

a= Table[Prime[n] - CarmichaelLambda[n], {n, 1, 200}]

Prog

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

Crossrefs

Cf. A000040, A002322.

Sequence in context: A104192 A290639 A262061 * A242694 A117288 A117283

Adjacent sequences: A104190 A104191 A104192 * A104194 A104195 A104196

Keyword

nonn

Author

Roger L. Bagula, Mar 12 2005

Status

approved