login
A175471
Numbers n such that n^2 contains no digit less than 5.
0
3, 24, 26, 76, 83, 87, 236, 264, 313, 314, 316, 766, 816, 824, 834, 836, 883, 887, 937, 2366, 2383, 2387, 2424, 2563, 2626, 2976, 3114, 7613, 7666, 8117, 8167, 8184, 8234, 8286, 8366, 8716, 8813, 8814, 8887, 8937, 9266, 9316, 9363, 9417, 9474, 9786, 9833
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
Sequence in context: A261381 A365971 A065430 * A035409 A081312 A123598
KEYWORD
base,nonn
AUTHOR
Zak Seidov, May 24 2010
STATUS
approved