A378926 Positive numbers whose squares have at most two digits less than 9.
1, 2, 3, 4, 5, 6, 7, 8, 9, 13, 14, 17, 23, 27, 30, 31, 63, 77, 97, 173, 313
Offset: 1
Examples
313 is a term because 313^2 = 97969 has only two digits that are less than 9.
Programs
-
Mathematica
Select[Range[10^6], Count[IntegerDigits[#^2], _?(#1 < 9 &)] < 3&]
Comments