A078163 a(n) = A051201(n^2).

1, 7, 19, 39, 66, 103, 146, 200, 263, 336, 418, 511, 611, 724, 848, 981, 1125, 1281, 1446, 1624, 1811, 2010, 2220, 2446, 2676, 2922, 3178, 3450, 3730, 4023, 4324, 4639, 4967, 5310, 5665, 6029, 6404, 6794, 7199, 7614, 8041, 8479, 8930, 9394, 9874

Offset

1,2

Links

Table of n, a(n) for n=1..45.

Mathematica

Table[Apply[Plus, Union[Table[Floor[w^2/j], {j, 1, w^2}]]], {w, 1, 50}]

Crossrefs

Cf. A000290, A051201, A078161, A078162.

Sequence in context: A152728 A252789 A099061 * A108766 A303855 A295077

Adjacent sequences: A078160 A078161 A078162 * A078164 A078165 A078166

Keyword

nonn

Author

Labos Elemer, Nov 27 2002

Status

approved