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

%I #9 Dec 26 2018 11:52:56

%S 0,1,8,9,21,29,30,40,61,65,69,70,96,105,126,133,134,135,161,176,201,

%T 222,225,229,230,231,280,294,309,334,341,355,363,364,401,405,408,470,

%U 481,505,510,531,534,539,540,560,621,630,645,681,695,735,736,749,756,764,765,814,833,846

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

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/OctagonalNumber.html">Octagonal Number</a>

%t terms = 60;

%t nmax = 17; kmax = 9; (* empirical *)

%t T = Table[n(3n-2), {n, 0, nmax}];

%t Union[T, Table[k MovingAverage[T, k], {k, 2, kmax}]//Flatten][[1 ;; terms]] (* _Jean-François Alcover_, Dec 26 2018 *)

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

%K nonn

%O 1,3

%A _Ilya Gutkovskiy_, Dec 21 2018