%I #6 Oct 31 2023 12:38:34
%S 3,4,8,13,22,29,40,44,56,74,84,104,113,124,133,155,177,184,207,217,
%T 232,247,266,283,316,337,342,353,360,382,434,445,475,480,522,529,561,
%U 579,589,622,639,649,692,700,725,732,787,823,851,858,871,889,915,944,982
%N a(n) = A051201(A000040(n)).
%e 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.
%t Table[Apply[Plus, Union[Table[Floor[Prime[w]/j], {j, 1, Prime[w]}]]], {w, 1, 100}]
%Y Cf. A000040, A055086, A051201, A078171.
%K nonn
%O 1,1
%A _Labos Elemer_, Nov 27 2002
|