login
Squares whose largest digit is 8.
4

%I #11 Jul 08 2020 13:03:05

%S 81,484,784,841,1681,3481,3844,5184,6084,8100,8281,8464,8836,10816,

%T 11881,14884,15876,16384,18225,22801,25281,28224,28561,31684,33856,

%U 36481,36864,38025,38416,40804,43681,48400,48841,53824,58081,58564,67081,68121,68644,71824,77284,77841,78400

%N Squares whose largest digit is 8.

%H Robert Israel, <a href="/A295018/b295018.txt">Table of n, a(n) for n = 1..10000</a>

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

%p Res:= NULL: count:= 0:

%p for n from 1 while count < 50 do

%p if max(convert(n^2,base,10))=8 then

%p count:= count+1; Res:= Res, n^2;

%p fi

%p od:

%p Res; # _Robert Israel_, Jul 21 2019

%t Select[Range[300]^2,Max[IntegerDigits[#]]==8&] (* _Harvey P. Dale_, Jul 08 2020 *)

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

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

%Y Cf. A000290 (the squares).

%K nonn,base

%O 1,1

%A _M. F. Hasler_, Nov 12 2017