A378927 Positive numbers whose squares have at most three digits less than 9.
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 33, 36, 37, 43, 44, 47, 53, 54, 57, 63, 64, 67, 70, 73, 77, 83, 86, 87, 89, 93, 95, 96, 97, 98, 99, 114, 173, 187, 223, 243, 263, 264, 303, 307, 313, 314, 315, 316, 437, 447, 547, 707, 964, 997, 1414, 2236, 2827, 3033, 3114, 3148, 3161
Offset: 1
Examples
3161 is a term because 3161^2 = 9991921 has only three digits that are less than 9.
Programs
-
Mathematica
Select[Range[10^6], Count[IntegerDigits[#^2], _?(#1 < 9 &)] < 4 &]
Comments