login
A078172
a(n) = A051201(A000040(n)).
1
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
OFFSET
1,1
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
Labos Elemer, Nov 27 2002
STATUS
approved