|
%I #13 Aug 19 2022 14:07:30
%S 25,225,1225,1521,2025,2500,3025,4225,5041,11025,12544,13225,21025,
%T 22500,24025,34225,35344,42025,44521,52441,55225,112225,122500,133225,
%U 135424,150544,151321,152100,202500,212521,235225,245025,250000,251001,252004,255025,302500
%N Squares whose largest digit is 5.
%H Michael S. Branicky, <a href="/A295015/b295015.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A295005(n)^2.
%t Select[Range[600]^2,Max[IntegerDigits[#]]==5&] (* _Harvey P. Dale_, Aug 19 2022 *)
%o (PARI) is_A295015(n)=issquare(n)&&n&&vecmax(digits(n))==5 \\ The "n&&" avoids an error message for n = 0.
%o (Python)
%o from math import isqrt
%o def aupto(limit):
%o alst, rootlimit = [], isqrt(limit)
%o for k in range(1, rootlimit+1):
%o if max(str(k*k)) == "5": alst.append(k*k)
%o return alst
%o print(aupto(302500)) # _Michael S. Branicky_, May 15 2021
%Y Cf. A295015 (square roots of the terms); A277946, A277947, A277948, A295016 .. A295019 (analog for digits 2 through 9); A295025 (analog for cubes).
%Y Cf. A000290 (the squares).
%K nonn,base
%O 1,1
%A _M. F. Hasler_, Nov 12 2017
|
