OFFSET
1,2
LINKS
MATHEMATICA
Block[{a = {1}}, Do[AppendTo[a, a[[n - 1]] + Total@ Select[a, IntegerQ@ Sqrt@ # &]], {n, 2, 46}]; a] (* Michael De Vlieger, Aug 16 2017 *)
PROG
(PARI) vector(100, n, if(n==1, a_n_1=sum_=1, a_n_1+=sum_; if(ispolygonal(a_n_1, 4), sum_+=a_n_1)); a_n_1) \\ Colin Barker, Feb 20 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jun 07 2007
EXTENSIONS
More terms from Reinhard Zumkeller, Jun 14 2007
STATUS
approved