OFFSET
1,2
MATHEMATICA
Table[Min[DivisorSigma[0, Prime[n]-1], DivisorSigma[0, Prime[n]+1]], {n, 1, 100}] (* Stefan Steinerberger, Oct 11 2008 *)
PROG
(PARI) a(n) = my(p = prime(n)); min(numdiv(p-1), numdiv(p+1)); \\ Michel Marcus, Sep 28 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Oct 08 2008
EXTENSIONS
More terms from Stefan Steinerberger and Ray Chandler, Oct 11 2008
STATUS
approved