OFFSET
1,1
MATHEMATICA
Select[Range[10000], Min[IntegerDigits[#^2]]>4&] (* Harvey P. Dale, Dec 31 2013 *)
PROG
(PARI) isok(n) = vecmin(digits(n^2)) > 4; \\ Michel Marcus, Oct 15 2013
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, May 24 2010
STATUS
approved