OFFSET
1,3
LINKS
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Dec 21 2018
STATUS
approved