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,1

Links

Table of n, a(n) for n=1..47.

Formula

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

Mathematica

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

Prog

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

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).

Sequence in context: A087691 A014730 A212503 * A164343 A273374 A020245

Adjacent sequences: A295016 A295017 A295018 * A295020 A295021 A295022

Keyword

nonn,base

Author

M. F. Hasler, Nov 12 2017

Status

approved