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

Author

M. F. Hasler, Nov 12 2017

Keywords

• nonn
• base

Links

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

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

Programs

Mathematica

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

PARI

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

Formula

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