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