A158082 Squares whose decimal expansion contains no digit greater than 4.
0, 1, 4, 100, 121, 144, 324, 400, 441, 1024, 1444, 2304, 2401, 10000, 10201, 10404, 12100, 12321, 14400, 22201, 23104, 32041, 32400, 33124, 40000, 40401, 44100, 101124, 102400, 103041, 110224, 114244, 121104, 123201, 130321, 131044, 144400, 203401, 204304, 213444
Offset: 1
Links
- Erich Friedman, What's Special About This Number?
Programs
-
Mathematica
Select[Range[0, 1000]^2, Max[IntegerDigits[#]] <= 4 &] (* Paolo Xausa, Apr 29 2024 *)