A378925 Positive numbers whose squares have at most one digit less than 8.
1, 2, 3, 7, 9, 17, 83, 2983, 298327
Offset: 1
Examples
298327 is a term because 298327^2 = 88998998929 has only one digit that is less than 8.
Programs
-
Mathematica
Select[Range[10^6], Count[IntegerDigits[#^2], _?(#1 < 8 &)] < 2 &]
Comments