%I #10 Nov 03 2023 11:08:47
%S 24,76,87,236,314,316,766,816,834,2366,2383,2387,2424,2563,2626,2976,
%T 7613,7666,8117,8184,8234,8286,8366,8716,8814,9266,9316,9363,9474,
%U 9786,9837,23634,23784,23866,23874,24474,25663,25684,26076,26187,26374,26417,27687
%N Numbers k such that 5 is the smallest decimal digit of k^2.
%H Chai Wah Wu, <a href="/A291630/b291630.txt">Table of n, a(n) for n = 1..10000</a>
%e 87 is in the sequence because 87^2 = 7569, the smallest decimal digit of which is 5.
%t Select[Range[30000],Min[IntegerDigits[#^2]]==5&] (* _Harvey P. Dale_, Nov 03 2023 *)
%o (PARI) select(k->vecmin(digits(k^2))==5, vector(30000, k, k))
%o (Python)
%o A291630_list = [k for k in range(1,10**6) if min(str(k**2)) == '5'] # _Chai Wah Wu_, Aug 28 2017
%Y Cf. A291625, A291626, A291627, A291628, A291629, A291631.
%K nonn,base
%O 1,1
%A _Colin Barker_, Aug 28 2017
|