A174864 a(1) = 1, a(n) = square of the sum of previous terms.
1, 1, 4, 36, 1764, 3261636, 10650053687364, 113423713055411194304049636, 12864938683278671740537145884937248491231415124195364
Offset: 1
Links
Programs
-
Mathematica
t = {1}; Do[AppendTo[t, Total[t]^2], {n, 9}]; t (* Vladimir Joseph Stephan Orlovsky, Feb 24 2012 *) Join[{1},FoldList[(#+Sqrt[#])^2&,1,Range[7]]] (* Ivan N. Ianakiev, May 08 2015 *)
-
PARI
a=vector(10);a[1]=a[2]=1;for(n=3,#a,a[n]=a[n-1]*(sqrtint(a[n-1])+1)^2);a
Formula
a(n+1) = (a(n) + sqrt(a(n)))^2 = a(n) * (sqrt(a(n)) + 1)^2 for n > 1. - Charles R Greathouse IV, Jun 30 2011
Comments