|
|
A185368
|
|
First n-digit square in the digits of Euler's constant (or the Euler-Mascheroni constant) gamma.
|
|
0
|
|
|
1, 64, 900, 900, 1296, 16641, 1507984, 1507984, 285272100, 168143089, 14815028089
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Squares are allowed to have prefix 0 (see example).
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|