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

Links

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

Formula

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

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

Prog

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

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

Sequence in context: A250620 A237082 A236651 * A250613 A237077 A236646

Adjacent sequences: A295015 A295016 A295017 * A295019 A295020 A295021

Keyword

nonn,base

Author

M. F. Hasler, Nov 12 2017

Status

approved