OFFSET
0,3
LINKS
Amiram Eldar, Table of n, a(n) for n = 0..10000
MATHEMATICA
RecurrenceTable[{a[0]==0, a[n]==DivisorSigma[0, Prime[n]-1]+a[n-1]}, a, {n, 100}] (* Jon Maiga, Jan 02 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jan 24 2003
STATUS
approved