OFFSET
1,1
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[600], IntegerDigits[#^2][[1]]==3&] (* Harvey P. Dale, Jan 09 2020 *)
PROG
(PARI) isok(n) = digits(n^2)[1] == 3; \\ Michel Marcus, May 28 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved