login
A322640
Numbers that are sums of consecutive centered heptagonal numbers (A069099).
5
0, 1, 8, 9, 22, 30, 31, 43, 65, 71, 73, 74, 106, 114, 136, 144, 145, 148, 177, 197, 220, 242, 250, 251, 253, 254, 316, 325, 345, 368, 386, 390, 398, 399, 450, 451, 463, 522, 547, 565, 569, 587, 595, 596, 598, 638, 702, 704, 736, 766, 775, 818, 840, 841, 848, 849, 914, 953
OFFSET
1,3
MATHEMATICA
terms = 58;
nmax = 17; kmax = 8; (* empirical *)
T = Table[(7 n^2 - 7 n + 2)/2, {n, 1, nmax}];
Union[{0}, T, Table[k MovingAverage[T, k], {k, 2, kmax}] // Flatten][[1 ;; terms]] (* Jean-François Alcover, Dec 27 2018 *)
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Dec 21 2018
STATUS
approved