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