%I #14 Apr 29 2024 09:08:17

%S 0,1,4,100,121,144,324,400,441,1024,1444,2304,2401,10000,10201,10404,

%T 12100,12321,14400,22201,23104,32041,32400,33124,40000,40401,44100,

%U 101124,102400,103041,110224,114244,121104,123201,130321,131044,144400,203401,204304,213444

%N Squares whose decimal expansion contains no digit greater than 4.

%H Erich Friedman, <a href="https://erich-friedman.github.io/numbers.html">What's Special About This Number?</a>

%t Select[Range[0, 1000]^2, Max[IntegerDigits[#]] <= 4 &] (* _Paolo Xausa_, Apr 29 2024 *)

%Y Cf. A158304.

%Y Intersection of A000290 and A007091.

%K nonn,base

%O 1,3

%A _N. J. A. Sloane_, May 23 2010