STATUS
reviewed
approved
The OEIS is supported by the many generous donors to the OEIS Foundation.
reviewed
approved
proposed
reviewed
editing
proposed
a(3) is 209 since it is the least number greater than 41, a(2), =41 which concatenated with 41 forms a perfect square, i.e.; , 41209 = 203^2.
f[n_] := Block[{x = n, d = 1 + Floor@ Log10@ n}, q = (Floor@ Sqrt[(10^d + 1) x] + 1)^2; If[q < (10^d) (x + 1), Mod[q, 10^d], Mod[(Floor@ Sqrt[(10^d)(10x + 1) - 1] + 1)^2, 10^(d + 1)] ]]; NestList[f, 8, 25] (* after the algorithm of _David W. Wilson _ in A090566 *)
approved
editing
editing
approved
nonn,changed,base
proposed
editing
editing
proposed
allocated for Robert Ga(1) = 8, a(n) = smallest number > a(n-1) such that the concatenation of a(n-1) and a(n) is a square. Wilson v
8, 41, 209, 764, 5225, 8441, 9344, 63761, 82201, 477264, 3191044, 4038489, 34656049, 61233321, 271005625, 3465072801, 36565416324, 83511106624, 222222321476, 425286636356, 2743260628100, 9534841632400, 33984728488004, 128198574830929, 741089622057984, 5579432351776489
1,1
a(3) is 209 since it is the least number greater than 41, a(2), which concatenated with 41 forms a perfect square, i.e.; 41209 = 203^2.
f[n_] := Block[{x = n, d = 1 + Floor@ Log10@ n}, q = (Floor@ Sqrt[(10^d + 1) x] + 1)^2; If[q < (10^d) (x + 1), Mod[q, 10^d], Mod[(Floor@ Sqrt[(10^d)(10x + 1) - 1] + 1)^2, 10^(d + 1)] ]]; NestList[f, 8, 25] (* after the algorithm of David W. Wilson in A090566 *)
allocated
nonn
Robert G. Wilson v, Dec 02 2015
approved
editing
allocated for Robert G. Wilson v
allocated
approved