A322636 Numbers that are sums of consecutive heptagonal numbers (A000566).

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

Author

Ilya Gutkovskiy, Dec 21 2018

Keywords

• nonn

Links

• Robert Israel, Table of n, a(n) for n = 1..10000
• Eric Weisstein's World of Mathematics, Heptagonal Number

Crossrefs

Cf. A000566, A002413, A034705, A034706, A319184, A319185, A322637.

Programs

Maple

N:= 1000: # for terms up to N
Hepta:= [seq(n*(5*n-3)/2,n=0..floor((3+sqrt(9+40*N))/10))]:
PS:= ListTools:-PartialSums(Hepta):
S:= select(`<=`,{0,seq(seq(PS[i]-PS[j],j=1..i-1),i=1..nops(PS))},N):
sort(convert(S,list)); # Robert Israel, May 22 2025

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 *)