cp's OEIS Frontend

A295018 Squares whose largest digit is 8.

%I A295018 #11 Jul 08 2020 13:03:05
%S A295018 81,484,784,841,1681,3481,3844,5184,6084,8100,8281,8464,8836,10816,
%T A295018 11881,14884,15876,16384,18225,22801,25281,28224,28561,31684,33856,
%U A295018 36481,36864,38025,38416,40804,43681,48400,48841,53824,58081,58564,67081,68121,68644,71824,77284,77841,78400
%N A295018 Squares whose largest digit is 8.
%H A295018 Robert Israel, <a href="/A295018/b295018.txt">Table of n, a(n) for n = 1..10000</a>
%F A295018 a(n) = A295008(n)^2.
%p A295018 Res:= NULL: count:= 0:
%p A295018 for n from 1 while count < 50 do
%p A295018   if max(convert(n^2,base,10))=8 then
%p A295018     count:= count+1; Res:= Res, n^2;
%p A295018   fi
%p A295018 od:
%p A295018 Res; # _Robert Israel_, Jul 21 2019
%t A295018 Select[Range[300]^2,Max[IntegerDigits[#]]==8&] (* _Harvey P. Dale_, Jul 08 2020 *)
%o A295018 (PARI) is_A295018(n)=issquare(n)&&n&&vecmax(digits(n))==8 \\ "&&n" avoids an error message for n=0.
%Y A295018 Cf. A295008 (square roots of the terms),  A277946 - A277948 (same for digit 2..4), A295015 - A295019 (same for digit 5..9).
%Y A295018 Cf. A000290 (the squares).
%K A295018 nonn,base
%O A295018 1,1
%A A295018 _M. F. Hasler_, Nov 12 2017