|
|
A076997
|
|
a(1) = 1, a(n+1) is the largest square <= n*a(n).
|
|
1
|
|
|
1, 1, 1, 1, 4, 16, 81, 529, 4225, 38025, 379456, 4173849, 50083929, 651066256, 9114902784, 136723197121, 2187571153936, 37188701848516, 669396605290000, 12718535343402256, 254370705884725824, 5341784820136403409
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,5
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|