A295017 Squares whose largest digit is 7.

576, 676, 1764, 2704, 3721, 4761, 5476, 5776, 6724, 7056, 7225, 7744, 15376, 17161, 17424, 20736, 23716, 27225, 27556, 30276, 32761, 35721, 37636, 47524, 50176, 51076, 54756, 57121, 57600, 67600, 70225, 70756, 72361, 73441, 75076, 75625, 76176, 101761, 106276, 126736, 137641, 141376

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Formula

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

Mathematica

Select[Range[1000]^2, Max[IntegerDigits[#]]==7&] (* Harvey P. Dale, Dec 15 2024 *)

Prog

(PARI) is_A295017(n)=issquare(n)&&n&&vecmax(digits(n))==7 \\ The "n&&" avoids an error message for n=0.

Crossrefs

Cf. A295007 (square roots of the terms), A277946 .. A277948 (same for digit 2 .. 4), A295015 .. A295019 (same for digit 5 .. 9), A295022 (same for cubes).

Cf. A000290 (the squares).

Sequence in context: A136111 A199549 A131982 * A053969 A316486 A250775

Adjacent sequences: A295014 A295015 A295016 * A295018 A295019 A295020

Keyword

nonn,base

Author

M. F. Hasler, Nov 12 2017

Status

approved