A065788 a(1) = 64; for n > 1 a(n) is the smallest square > a(n-1) with a(n-1) forming its final digits.
64, 1764, 6041764, 96126041764, 8584885596126041764, 1094573934406914368584885596126041764, 164840278246153785356947805564195221094573934406914368584885596126041764
Offset: 1
Programs
-
Mathematica
nxt[n_]:=Module[{k=1},While[!IntegerQ[Sqrt[k*10^IntegerLength[n]+n]],k++];k*10^IntegerLength[n]+n]; NestList[nxt,64,6] (* Harvey P. Dale, Dec 14 2019 *)
Comments