OFFSET
1,2
FORMULA
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
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Mar 12 2005
STATUS
approved