A322636 -id:A322636 - cp's OEIS frontend

A322637 Numbers that are sums of consecutive octagonal numbers (A000567).

0, 1, 8, 9, 21, 29, 30, 40, 61, 65, 69, 70, 96, 105, 126, 133, 134, 135, 161, 176, 201, 222, 225, 229, 230, 231, 280, 294, 309, 334, 341, 355, 363, 364, 401, 405, 408, 470, 481, 505, 510, 531, 534, 539, 540, 560, 621, 630, 645, 681, 695, 735, 736, 749, 756, 764, 765, 814, 833, 846

Offset: 1

Ilya Gutkovskiy, Dec 21 2018

nonn

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

Cf. A000567, A002414, A034705, A034706, A319184, A319185, A322636.

N:= 1000: # for terms up to N
Octa:= [seq(n*(3*n-2),n=0..floor((1+sqrt(1+3*N))/3))]:
PS:= ListTools:-PartialSums(Octa):
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

terms = 60;
nmax = 17; kmax = 9; (* empirical *)
T = Table[n(3n-2), {n, 0, nmax}];
Union[T, Table[k MovingAverage[T, k], {k, 2, kmax}]//Flatten][[1 ;; terms]] (* Jean-François Alcover, Dec 26 2018 *)

A319184 Numbers that are sums of consecutive pentagonal numbers.

Original entry on oeis.org

0, 1, 5, 6, 12, 17, 18, 22, 34, 35, 39, 40, 51, 57, 69, 70, 74, 75, 86, 92, 108, 117, 120, 121, 125, 126, 145, 156, 162, 176, 178, 190, 195, 196, 209, 210, 213, 247, 248, 262, 270, 279, 282, 287, 288, 321, 330, 354, 365, 376, 386, 387, 399, 404, 405, 424, 425, 438, 457, 475

Offset: 1

Ilya Gutkovskiy, Dec 21 2018

nonn

Eric Weisstein's World of Mathematics, Pentagonal Number

Cf. A000326, A002411, A034705, A034706, A319185, A322636, A322637.

anmax = 1000; nmax = Floor[Sqrt[2*anmax/3]] + 1; Select[Union[Flatten[Table[Sum[k*(3*k-1)/2, {k, i, j}], {i, 0, nmax}, {j, i, nmax}]]], # <= anmax &] (* Vaclav Kotesovec, Dec 21 2018 *)
Module[{nn=20,pn},pn=PolygonalNumber[5,Range[0,nn]];Take[Union[Flatten[Table[Total/@Partition[pn,d,1],{d,nn}]]],60]] (* Harvey P. Dale, Jun 22 2025 *)

A334011 a(n) is the least integer that can be expressed as the sum of one or more consecutive nonzero heptagonal numbers in exactly n ways.

Original entry on oeis.org

1, 872, 8240232, 263346158075

Offset: 1

Ilya Gutkovskiy, Apr 12 2020

			Let S(k, m) denote the sum of m heptagonal numbers starting from the k-th. We have
a(1) = S(1, 1);
a(2) = S(13, 2) = S(3, 8);
a(3) = S(133, 98) = S(479, 14) = S(168, 77);
a(4) = S(6773, 1785) = S(810, 6006) = S(7467, 1547) = S(38758, 70).

Eric Weisstein's World of Mathematics, Heptagonal Number
Index to sequences related to polygonal numbers

Cf. A000566, A054859, A068314, A186337, A298467, A322636, A334007, A334008, A334010, A334012.

a(4) from Giovanni Resta, Apr 14 2020

A319185 Numbers that are sums of consecutive hexagonal numbers (A000384).

Original entry on oeis.org

0, 1, 6, 7, 15, 21, 22, 28, 43, 45, 49, 50, 66, 73, 88, 91, 94, 95, 111, 120, 139, 153, 154, 157, 160, 161, 190, 202, 211, 230, 231, 245, 251, 252, 273, 276, 277, 322, 325, 343, 350, 364, 365, 371, 372, 378, 421, 430, 435, 463, 475, 496, 503, 507, 518, 524, 525, 554, 561

Offset: 1

Ilya Gutkovskiy, Dec 21 2018

nonn

Eric Weisstein's World of Mathematics, Hexagonal Number

Cf. A000384, A002412, A034705, A034706, A319184, A322636, A322637.

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

A322640 Numbers that are sums of consecutive centered heptagonal numbers (A069099).

Original entry on oeis.org

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

Ilya Gutkovskiy, Dec 21 2018

nonn

Wikipedia, Centered heptagonal number

Cf. A004126, A069099, A152043, A322610, A322611, A322636, A322638, A320728.

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

A322652 Numbers that are sums of consecutive heptagonal pyramidal numbers (A002413).

Original entry on oeis.org

0, 1, 8, 9, 26, 34, 35, 60, 86, 94, 95, 115, 175, 196, 201, 209, 210, 308, 311, 371, 397, 405, 406, 456, 504, 619, 645, 679, 705, 713, 714, 764, 880, 960, 1075, 1101, 1135, 1161, 1166, 1169, 1170, 1409, 1508, 1525, 1605, 1720, 1780, 1806, 1814, 1815, 1911, 1981, 2046, 2289, 2380

Offset: 1

Ilya Gutkovskiy, Dec 21 2018

nonn

Eric Weisstein's World of Mathematics, Heptagonal Pyramidal Number

Cf. A002413, A002418, A321450, A322468, A322479, A322636, A322640, A322651, A322653.

imax = 55;
A002413 = LinearRecurrence[{4, -6, 4, -1}, {1, 8, 26, 60}, imax];
Join[{0}, Table[A002413[[i ;; j]] // Total, {i, 1, imax}, {j, i, imax}] // Flatten // Union][[;; imax]] (* Jean-François Alcover, Nov 11 2024 *)

cp's OEIS Frontend

A322637 Numbers that are sums of consecutive octagonal numbers (A000567).

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

A319184 Numbers that are sums of consecutive pentagonal numbers.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A334011 a(n) is the least integer that can be expressed as the sum of one or more consecutive nonzero heptagonal numbers in exactly n ways.

Views

Author

Keywords

Examples

Links

Crossrefs

Extensions

A319185 Numbers that are sums of consecutive hexagonal numbers (A000384).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A322640 Numbers that are sums of consecutive centered heptagonal numbers (A069099).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A322652 Numbers that are sums of consecutive heptagonal pyramidal numbers (A002413).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica