Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #15 Mar 20 2023 10:39:49
%S 0,1,6,7,16,22,23,31,47,51,53,54,76,82,98,104,105,106,127,141,158,174,
%T 180,181,182,226,233,247,264,276,280,286,287,322,323,331,374,391,405,
%U 407,421,427,428,456,502,504,526,548,555,586,601,602,607,608,609,654,681,683,722
%N Numbers that are sums of consecutive centered pentagonal numbers (A005891).
%H Robert Israel, <a href="/A322638/b322638.txt">Table of n, a(n) for n = 1..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/CenteredPentagonalNumber.html">Centered Pentagonal Number</a>
%p L:= [seq((5*n^2+5*n+2)/2,n=0..30)]: N:= L[-1]:
%p S:=[0,op(ListTools:-PartialSums(L))]:
%p R:=select(`<=`,{0,seq(seq(S[n]-S[m],m=1..n-1),n=1..nops(S))},N):
%p sort(convert(R,list)); # _Robert Israel_, Mar 19 2023
%t terms = 59;
%t nmax = 16; kmax = 9; (* empirical *)
%t T = Table[(5n^2 + 5n + 2)/2, {n, 0, nmax}];
%t Union[{0}, T, Table[k MovingAverage[T, k], {k, 2, kmax}] // Flatten][[1 ;; terms]] (* _Jean-François Alcover_, Dec 26 2018 *)
%Y Cf. A004068, A005891, A152043, A319184, A322610, A322611, A322640.
%K nonn
%O 1,3
%A _Ilya Gutkovskiy_, Dec 21 2018