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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Oct 26 2002
EXTENSIONS
Corrected and extended by Sascha Kurz, Jan 26 2003
STATUS
approved