|
|
A048557
|
|
a(1) = 1; a(n+1) is next smallest nontrivial square beginning with a(n).
|
|
7
|
|
|
1, 16, 169, 169744, 16974441796, 1697444179660172924176, 16974441796601729241768240010144800000000001, 1697444179660172924176824001014480000000000182400101448000000000020000000000000000000001
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Next terms are 176, 351 and 702 digits long.
|
|
LINKS
|
|
|
MATHEMATICA
|
$MaxExtraPrecision = 2^10; a[n_] := a[n] = Block[{k = 10, m = a[n - 1]}, id = IntegerDigits@ m; lng = Length@ id; While[c = Ceiling[ Sqrt[ m*k]]^2; Take[ IntegerDigits@ c, lng] != id, k *= 100]; Min[c, (Sqrt[m]*10^(lng/2) + 1)^2]]; a[1] = 1; Array[a, 11] (* Robert G. Wilson v, Dec 18 2014 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|