Annual appeal: Please make a donation to keep the OEIS running! Over 6000 articles have referenced us, often saying "we discovered this result with the help of the OEIS". Other ways to donate

1,1

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

for i from 1 to 500 do if isprime(i) then print(tau(i+1)); fi; od;

A008329 := proc(n)

numtheory[tau](ithprime(n)+1) ;

end proc: # R. J. Mathar, Oct 30 2015

DivisorSigma[0, #]&/@(Prime[Range[100]]+1) (* Harvey P. Dale, Apr 12 2011 *)

Sequence in context: A036805 A036804 A180046 * A064558 A178031 A008328

Adjacent sequences: A008326 A008327 A008328 * A008330 A008331 A008332

nonn

N. J. A. Sloane

Offset corrected by Leroy Quet, Oct 08 2008

approved