|
%I #10 Sep 16 2017 00:33:35
%S 1,64,900,900,1296,16641,1507984,1507984,285272100,168143089,
%T 14815028089
%N First n-digit square in the digits of Euler's constant (or the Euler-Mascheroni constant) gamma.
%C Squares are allowed to have prefix 0 (see example).
%e a(4) = 900 is the first square that occurs in the sequence of the 4 decimal digits ...0900... with the index 25 in A001620.
%p Digits := 10000: p0 := evalf(gamma):for d from 1 to 20 do: id:=0:for i from
%p 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:
%Y Cf. A001620.
%K nonn,base
%O 1,2
%A _Michel Lagneau_, Feb 20 2011
| 