|
%I #22 Sep 03 2020 11:18:22
%S 21,31,43,57,73,91,92,111,112,133,134,157,158,183,184,211,212,213,241,
%T 242,243,273,274,275,307,308,309,343,344,345,381,382,383,384,421,422,
%U 423,424,463,464,465,466,507,508,509,510,553,554,555,556,601,602,603
%N Numbers whose fractional part of square root starts with digit 5.
%H Harvey P. Dale, <a href="/A034101/b034101.txt">Table of n, a(n) for n = 1..1001</a> [offset to 1 adapted by _Georg Fischer_, Sep 03 2020]
%t fp5Q[n_]:=Module[{rd=RealDigits[N[FractionalPart[Sqrt[n]]]]},rd[[2]]==0 && First[rd[[1]]]==5]; Select[Range[700],fp5Q] (* _Harvey P. Dale_, Jan 11 2013 *)
%Y Cf. A034111.
%K nonn,easy,base
%O 1,1
%A _Patrick De Geest_, Sep 15 1998
|
