A322611 Numbers that are sums (of a nonempty sequence) of consecutive centered square numbers.

1, 5, 6, 13, 18, 19, 25, 38, 41, 43, 44, 61, 66, 79, 84, 85, 102, 113, 127, 140, 145, 146, 181, 187, 198, 212, 221, 225, 230, 231, 258, 259, 265, 300, 313, 325, 326, 338, 343, 344, 365, 402, 404, 421, 439, 445, 470, 481, 483, 486, 488, 489, 524, 545, 547, 578, 585, 613, 626, 651, 660

Offset

1,2

Links

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

Eric Weisstein's World of Mathematics, Centered Square Number

Mathematica

anmax = 1000; nmax = Floor[Sqrt[anmax/2]] + 1; Select[Union[Flatten[Table[Sum[k^2 + (k + 1)^2, {k, i, j}], {i, 0, nmax}, {j, i, nmax}]]], # <= anmax &] (* Vaclav Kotesovec, Dec 21 2018 *)

Crossrefs

Cf. A001844, A005900, A034705, A320728, A322479, A322610, A322638, A322640.

Sequence in context: A219978 A326657 A303139 * A030356 A138937 A314291

Adjacent sequences: A322608 A322609 A322610 * A322612 A322613 A322614

Keyword

nonn

Author

Ilya Gutkovskiy, Dec 20 2018

Status

approved