OFFSET
1,3
LINKS
Erich Friedman, What's Special About This Number?
MATHEMATICA
Select[Range[0, 1000]^2, Max[IntegerDigits[#]] <= 4 &] (* Paolo Xausa, Apr 29 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, May 23 2010
STATUS
approved