login
A322636
Numbers that are sums of consecutive heptagonal numbers (A000566).
6
0, 1, 7, 8, 18, 25, 26, 34, 52, 55, 59, 60, 81, 89, 107, 112, 114, 115, 136, 148, 170, 188, 189, 193, 195, 196, 235, 248, 260, 282, 286, 300, 307, 308, 337, 341, 342, 396, 403, 424, 430, 448, 449, 455, 456, 469, 521, 530, 540, 572, 585, 616, 619, 628, 637, 644, 645, 684, 697
OFFSET
1,3
LINKS
Eric Weisstein's World of Mathematics, Heptagonal Number
MATHEMATICA
terms = 59;
nmax = 17; kmax = 9; (* empirical *)
T = Table[n(5n-3)/2, {n, 0, nmax}];
Union[T, Table[k MovingAverage[T, k], {k, 2, kmax}]//Flatten][[1 ;; terms]] (* Jean-François Alcover, Dec 26 2018 *)
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Dec 21 2018
STATUS
approved