[go: up one dir, main page]

login
A322610
Numbers that are sums (of a nonempty sequence) of consecutive centered triangular numbers.
7
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,2
LINKS
Eric Weisstein's World of Mathematics, Centered Triangular Number
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Dec 20 2018
STATUS
approved