OFFSET
1,4
MAPLE
with(numtheory); A067292:=n->ithprime(n)-n*tau(n); seq(A067292(n), n=1..100); # Wesley Ivan Hurt, Nov 21 2013
MATHEMATICA
Table[Prime[n] - n*DivisorSigma[0, n], {n, 100}] (* Wesley Ivan Hurt, Nov 21 2013 *)
PROG
(PARI) a(n) = prime(n) - n*numdiv(n); \\ Michel Marcus, Nov 21 2013
CROSSREFS
KEYWORD
easy,sign
AUTHOR
Benoit Cloitre, Feb 24 2002
STATUS
approved