OFFSET
1,2
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..10000
MATHEMATICA
Block[{s = Array[{# + 2, #} &, 8], r}, r = PolygonalNumber@ Range@ Total@ Flatten@ s; Map[Function[{a, b}, {First@ #, Set[r, Drop[Last@ #, b]]} &@ TakeDrop[r, a]] @@ # &, s][[All, 1]] // Flatten] (* Michael De Vlieger, Sep 25 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Sep 20 2017
STATUS
approved