A322610 Numbers that are sums (of a nonempty sequence) of consecutive centered triangular numbers.

1, 4, 5, 10, 14, 15, 19, 29, 31, 33, 34, 46, 50, 60, 64, 65, 77, 85, 96, 106, 109, 110, 111, 136, 141, 149, 160, 166, 170, 174, 175, 194, 195, 199, 226, 235, 245, 255, 258, 259, 260, 274, 302, 304, 316, 330, 335, 354, 361, 364, 365, 368, 369, 394, 409, 411, 434, 440, 460, 471, 490, 496, 500

Offset: 1

Author

Ilya Gutkovskiy, Dec 20 2018

Keywords

• nonn

Links

• Eric Weisstein's World of Mathematics, Centered Triangular Number

Crossrefs

Cf. A005448, A005918 (2 consec), A006003, A034706, A320728, A322468, A322611, A322638, A322640.

Programs

Mathematica

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