|
%I #9 Oct 27 2019 11:25:33
%S 9,49,169,196,289,529,729,900,961,1089,1296,1369,1849,1936,2209,2809,
%T 2916,3249,3969,4096,4489,4900,5329,5929,6889,7396,7569,7921,8649,
%U 9025,9216,9409,9604,9801,10609,11449,12769,12996,13689,13924,15129,16129,16900,17689,17956,18496,18769
%N Squares whose largest digit is 9.
%F a(n) = A295009(n)^2.
%t Select[Range[150]^2,Max[IntegerDigits[#]]==9&] (* _Harvey P. Dale_, Oct 27 2019 *)
%o (PARI) is_A295019(n)=issquare(n)&&n&&vecmax(digits(n))==9 \\ "&&n" avoids an error message for n=0.
%Y Cf. A295009 (square roots of the terms), A277946 - A277948 (same for digit 2..4), A295015 - A295018 (same for digit 5..8).
%Y Cf. A000290 (the squares).
%K nonn,base
%O 1,1
%A _M. F. Hasler_, Nov 12 2017
|
