%I #7 Oct 31 2023 12:39:38
%S 1,7,19,39,66,103,146,200,263,336,418,511,611,724,848,981,1125,1281,
%T 1446,1624,1811,2010,2220,2446,2676,2922,3178,3450,3730,4023,4324,
%U 4639,4967,5310,5665,6029,6404,6794,7199,7614,8041,8479,8930,9394,9874
%N a(n) = A051201(n^2).
%t Table[Apply[Plus, Union[Table[Floor[w^2/j], {j, 1, w^2}]]], {w, 1, 50}]
%Y Cf. A000290, A051201, A078161, A078162.
%K nonn
%O 1,2
%A _Labos Elemer_, Nov 27 2002
|