|
0, 1, 3, 6, 10, 14, 20, 25, 31, 35, 41, 49, 58, 66, 74, 78, 84, 88, 100, 108, 116, 128, 136, 140, 148, 160, 169, 177, 181, 193, 203, 215, 223, 231, 239, 245, 257, 269, 279, 283, 289, 293, 311, 319, 333, 342, 354, 370, 378, 382, 394, 402, 410, 430, 438, 447, 451, 457, 473
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
|
STATUS
|
approved
|
|