OFFSET
1,2
COMMENTS
Squares are allowed to have prefix 0 (see example).
EXAMPLE
a(4) = 900 is the first square that occurs in the sequence of the 4 decimal digits ...0900... with the index 25 in A001620.
MAPLE
Digits := 10000: p0 := evalf(gamma):for d from 1 to 20 do: id:=0:for i from
0 to 50000 while(id=0) do :q0:=trunc(p0*10^(i+d-1)): x:= irem(q0, 10^d): if sqrt(x)=floor(sqrt(x)) then printf(`%d, `, x):id:=1: else fi:od:od:
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Lagneau, Feb 20 2011
STATUS
approved