A295018 Squares whose largest digit is 8.

81, 484, 784, 841, 1681, 3481, 3844, 5184, 6084, 8100, 8281, 8464, 8836, 10816, 11881, 14884, 15876, 16384, 18225, 22801, 25281, 28224, 28561, 31684, 33856, 36481, 36864, 38025, 38416, 40804, 43681, 48400, 48841, 53824, 58081, 58564, 67081, 68121, 68644, 71824, 77284, 77841, 78400

Offset: 1

Author

M. F. Hasler, Nov 12 2017

Keywords

• nonn
• base

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

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

Cf. A000290 (the squares).

Programs

Maple

Res:= NULL: count:= 0:
for n from 1 while count < 50 do
  if max(convert(n^2,base,10))=8 then
    count:= count+1; Res:= Res, n^2;
  fi
od:
Res; # Robert Israel, Jul 21 2019

Mathematica

Select[Range[300]^2,Max[IntegerDigits[#]]==8&] (* Harvey P. Dale, Jul 08 2020 *)

PARI

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

Formula

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