%I #12 Feb 02 2022 14:37:36
%S 1,0,4,1,9,16,100,8649,74666881,5575141774264384,
%T 31082205803147712138788845611876,
%U 966103517589229313003894215813508352493573272034098666228778225
%N a(n+1) = (a(n)-n)^2, a(1) = 1.
%C Let f(n+1,k) = f(n,k)^2 + k*n*f(n,k) + n^2, f(1, k) = 1:
%C f(n,0)=A143760(n), f(n,-1)=A143761(n), f(n,+1)=A143762(n),
%C f(n,-2)=a(n), f(n,+2)=A143764(n), f(n,-3)=A143765(n), f(n,+3)=A143766(n).
%H <a href="/index/Aa#AHSL">Index entries for sequences of form a(n+1)=a(n)^2 + ...</a> [From _Reinhard Zumkeller_, Sep 11 2008]
%F a(n) ~ c^(2^n), where c = 1.0360416217849060104872070636721393146594472258894124389077919684140867897... . - _Vaclav Kotesovec_, Dec 18 2014
%t a=1;Table[a=(n-a)^2,{n,0,16}] (* _Vladimir Joseph Stephan Orlovsky_, Nov 20 2009 *)
%t RecurrenceTable[{a[n+1] == (a[n]-n)^2, a[1] == 1}, a, {n, 1, 15}] (* _Vaclav Kotesovec_, Dec 18 2014 *)
%t nxt[{n_,a_}]:={n+1,(a-n)^2}; NestList[nxt,{1,1},12][[All,2]] (* _Harvey P. Dale_, Feb 02 2022 *)
%Y Cf. A000290.
%K nonn
%O 1,3
%A _Reinhard Zumkeller_, Sep 01 2008