A076997 a(1) = 1, a(n+1) is the largest square <= n*a(n).

1, 1, 1, 1, 4, 16, 81, 529, 4225, 38025, 379456, 4173849, 50083929, 651066256, 9114902784, 136723197121, 2187571153936, 37188701848516, 669396605290000, 12718535343402256, 254370705884725824, 5341784820136403409

Offset: 1

Author

Amarnath Murthy, Oct 26 2002

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..451 (terms below 10^1000)

Crossrefs

Cf. A076998.

Programs

Maple

a[1] := 1:for i from 2 to 65 do a[i] := (floor(evalf(sqrt((i-1)*a[i-1]+1/10^120),200)))^2:od:seq(a[i],i=1..65);

Mathematica

a[1] = 1; a[n_] := a[n] = Floor[Sqrt[(n-1)*a[n-1]]]^2; Array[a, 22] (* Amiram Eldar, Sep 24 2023 *)
nxt[{n_,a_}]:={n+1,Floor[Sqrt[a*n]]^2}; NestList[nxt,{1,1},30][[;;,2]] (* Harvey P. Dale, Dec 02 2024 *)

Extensions

Corrected and extended by Sascha Kurz, Jan 26 2003