OFFSET
1,1
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000 (first 1001 terms from Harvey P. Dale)
MATHEMATICA
is3Q[n_]:=Module[{c=RealDigits[Sqrt[n], 10, 10+IntegerLength[n]], d}, d=c[[2]]+1; c[[1, d]]==3]; Select[Range[600], is3Q] (* Harvey P. Dale, Jul 13 2019 *)
Select[Range[600], NumberDigit[Sqrt[#], -1]==3&] (* Harvey P. Dale, Sep 20 2023 *)
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Patrick De Geest, Sep 15 1998
STATUS
approved