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,5

Links

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

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 *)

Crossrefs

Cf. A076998.

Sequence in context: A133053 A342326 A110378 * A092304 A356297 A204066

Adjacent sequences: A076994 A076995 A076996 * A076998 A076999 A077000

Keyword

nonn

Author

Amarnath Murthy, Oct 26 2002

Extensions

Corrected and extended by Sascha Kurz, Jan 26 2003

Status

approved