A295019 Squares whose largest digit is 9.

9, 49, 169, 196, 289, 529, 729, 900, 961, 1089, 1296, 1369, 1849, 1936, 2209, 2809, 2916, 3249, 3969, 4096, 4489, 4900, 5329, 5929, 6889, 7396, 7569, 7921, 8649, 9025, 9216, 9409, 9604, 9801, 10609, 11449, 12769, 12996, 13689, 13924, 15129, 16129, 16900, 17689, 17956, 18496, 18769

Offset: 1

Author

M. F. Hasler, Nov 12 2017

Keywords

• nonn
• base

Crossrefs

Cf. A295009 (square roots of the terms), A277946 - A277948 (same for digit 2..4), A295015 - A295018 (same for digit 5..8).

Cf. A000290 (the squares).

Programs

Mathematica

Select[Range[150]^2,Max[IntegerDigits[#]]==9&] (* Harvey P. Dale, Oct 27 2019 *)

PARI

is_A295019(n)=issquare(n)&&n&&vecmax(digits(n))==9 \\ "&&n" avoids an error message for n=0.

Formula

a(n) = A295009(n)^2.