Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A104195
a(n) = -(phi(n) + CarmichaelLambda(n)) + prime(n).
0
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
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
KEYWORD
nonn,less
AUTHOR
Roger L. Bagula, Mar 12 2005
STATUS
approved