|
%I #8 Jan 28 2021 14:49:14
%S 0,2,14,5,2,5,17,11,16,2,10,10,6,3,36,12,2,6,7,13,37,16,4,26,52,2,2,
%T 12,6,9,11,13,16,14,4,5,2,2,8,18,10,3,4,12,10,3,20,9,6,2,2,48,6,4,49,
%U 11,32,13,9,15,19,4,5,21,2,2,5,24,17,3,6,19,16,5,3,4,11,17,7,19,9,2,2,4,16,19
%N Position of the first zero in the decimal expansion of sqrt(n).
%e sqrt(24) = 4.8989794855663561963945681494117827839318949613133402, first zero is at position 52.
%t Join[{0},Table[Position[RealDigits[Sqrt[n],10,100][[1]],0,1,1],{n,100}]// Flatten] (* _Harvey P. Dale_, Jan 28 2021 *)
%o (PARI) \\ zeros in sqrt(p) where p is prime.
%o frootp(n) = default(realprecision,100); forprime(x=2,n, for(x=0,n, r = sqrt(x); print(x" "r); v = Vec(Str(r)); c=-1; for(y=1,100, c++; if(v[y] == "0",print1(c","); break))))
%K easy,nonn,base
%O 0,2
%A _Cino Hilliard_, Jun 29 2003
|
