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
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
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.