|
|
|
|
3, 4, 8, 13, 22, 29, 40, 44, 56, 74, 84, 104, 113, 124, 133, 155, 177, 184, 207, 217, 232, 247, 266, 283, 316, 337, 342, 353, 360, 382, 434, 445, 475, 480, 522, 529, 561, 579, 589, 622, 639, 649, 692, 700, 725, 732, 787, 823, 851, 858, 871, 889, 915, 944, 982
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
n=25:p(25)=97, sequence Union[Floor[97/j]]= {1,2,3,4,5,6,7,8,9,10,12,13,16,19,24,32,48,97}, sum=a[25]=316.
|
|
MATHEMATICA
|
Table[Apply[Plus, Union[Table[Floor[Prime[w]/j], {j, 1, Prime[w]}]]], {w, 1, 100}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|