%I #24 May 30 2020 15:43:07
%S 1,4,9,16,36,81,169,324,676,1369,2704,5476,11025,21904,44100,88209,
%T 176400,352836,705600,1411344,2822400,5645376,11296321,22591009,
%U 45185284,90364036,180741136,361494169,722964544,1445976676,2891965729
%N a(1) = 1, a(n+1) is the smallest square greater than the n-th partial sum.
%C Lim_{n->infinity} a(n)/(2^n) = 1.34669079829214755988545564864530863502076381405786.... - _Jon E. Schoenfield_, Oct 04 2013
%H Nathaniel Johnston, <a href="/A076967/b076967.txt">Table of n, a(n) for n = 1..1000</a>
%F Lim_{n->infinity} a(n+1)/a(n) = 2. - _Zak Seidov_, May 03 2009
%e a(5) = 36 because it is the smallest square greater than the sum of a(1)..a(4) = 30.
%p a[1] := 1:a[2] := 4:for n from 3 to 45 do a[n] := ceil(evalf(sqrt(sum(a[i],i=1..n-1)+1/10^19),100))^2; od:seq(a[k],k=1..45);
%t nxt[{p_,a_}]:=Module[{k=1},While[!IntegerQ[Sqrt[p+k]],k++];{2p+k,p+k}]; NestList[nxt,{1,1},30][[All,2]] (* _Harvey P. Dale_, May 30 2020 *)
%Y Cf. A076968.
%K nonn
%O 1,2
%A _Amarnath Murthy_, Oct 21 2002
%E Corrected and extended by _Sascha Kurz_, Jan 22 2003
|