OFFSET
1,3
LINKS
Eric Weisstein's World of Mathematics, Heptagonal Number
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Dec 21 2018
STATUS
approved