%I #20 Dec 29 2024 12:45:17
%S 3,14,23,33,45,46,60,76,77,95,96,115,116,137,138,139,162,163,188,189,
%T 190,217,218,219,247,248,249,279,280,281,282,314,315,316,350,351,352,
%U 353,389,390,391,392,429,430,431,432,471,472,473,474,475,516,517,518
%N Fractional part of square root of a(n) starts with digit 7.
%H Harvey P. Dale, <a href="/A034103/b034103.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[600],NumberDigit[Sqrt[#],-1]==7&] (* _Harvey P. Dale_, Dec 29 2024 *)
%o (PARI) for(k=1,520,my(s=sqrt(k),d=floor(10*(s-floor(s))));if(d==7,print1(k,", "))) \\ _Hugo Pfoertner_, Aug 05 2020
%Y Cf. A034113.
%K nonn,easy,base
%O 1,1
%A _Patrick De Geest_, Sep 15 1998
%E a(52) corrected by _Sean A. Irvine_, Aug 03 2020