OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[600], NumberDigit[Sqrt[#], -1]==7&] (* Harvey P. Dale, Dec 29 2024 *)
PROG
(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
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Patrick De Geest, Sep 15 1998
EXTENSIONS
a(52) corrected by Sean A. Irvine, Aug 03 2020
STATUS
approved