login
Numbers k such that 3 is the smallest decimal digit of k^4.
5

%I #13 Jun 13 2019 16:19:16

%S 16,56,88,96,162,296,312,428,484,2404,2444,2566,2588,2882,2928,2966,

%T 2976,3034,4372,4384,4426,5396,7618,8222,8266,8358,9062,9306,14428,

%U 14482,14546,14608,15874,16476,16568,16682,16738,16784,16796,17072,17306,24224,24316

%N Numbers k such that 3 is the smallest decimal digit of k^4.

%H Robert Israel, <a href="/A291671/b291671.txt">Table of n, a(n) for n = 1..1006</a>

%e 56 is in the sequence because 56^4 = 9834496, the smallest decimal digit of which is 3.

%p select(t -> min(convert(t^4,base,10))=3, [$1..10^5]); # _Robert Israel_, Aug 29 2017

%t Select[Range[25000],Min[IntegerDigits[#^4]]==3&] (* _Harvey P. Dale_, Jun 13 2019 *)

%o (PARI) select(k->vecmin(digits(k^4))==3, vector(50000, k, k))

%Y Cf. A291668, A291669, A291670, A291672.

%K nonn,base

%O 1,1

%A _Colin Barker_, Aug 29 2017