login
A101135
a(1)=1. a(n) = a(n-1) + sum of the squares which are among the first (n-1) terms of the sequence.
6
1, 2, 3, 4, 9, 23, 37, 51, 65, 79, 93, 107, 121, 256, 647, 1038, 1429, 1820, 2211, 2602, 2993, 3384, 3775, 4166, 4557, 4948, 5339, 5730, 6121, 6512, 6903, 7294, 7685, 8076, 8467, 8858, 9249, 9640, 10031, 10422, 10813, 11204, 11595, 11986, 12377, 12768
OFFSET
1,2
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
Cf. A097602.
Cf. A131093.
Sequence in context: A280016 A089243 A122534 * A280054 A088220 A333431
KEYWORD
nonn
AUTHOR
Leroy Quet, Jun 07 2007
EXTENSIONS
More terms from Reinhard Zumkeller, Jun 14 2007
STATUS
approved