|
%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
|
