A175471 Numbers n such that n^2 contains no digit less than 5.

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

Author

Zak Seidov, May 24 2010

Keywords

• base
• nonn

Crossrefs

Cf. A158082, A158304.

Programs

Mathematica

Select[Range[10000],Min[IntegerDigits[#^2]]>4&] (* Harvey P. Dale, Dec 31 2013 *)

PARI

isok(n) = vecmin(digits(n^2)) > 4; \\ Michel Marcus, Oct 15 2013