%I #20 Nov 06 2023 03:00:34
%S 26,46,822,1594,9296,29426,46278,161954,289146,835718,958646,2743904,
%T 2764968,5446346,8175708,15381676,30590282,52240108,149140628,
%U 260414482,284539894,299068782,471886024,490673642,508339942,827983028,863811282,868389594,911303358,1486895644
%N Numbers k such that 4 is the smallest decimal digit of k^4.
%H Giovanni Resta, <a href="/A291672/b291672.txt">Table of n, a(n) for n = 1..100</a> (first 62 terms from Chai Wah Wu)
%e 26 is in the sequence because 26^4 = 456976, the smallest decimal digit of which is 4.
%t Select[Range[10^6], Min[IntegerDigits[#^4]] == 4 &] (* _Giovanni Resta_, Aug 29 2017 *)
%o (PARI) select(k->vecmin(digits(k^4))==4, vector(1000000, k, k))
%o (Python)
%o A291672_list = [k for k in range(1,10**6) if min(str(k**4)) == '4'] # _Chai Wah Wu_, Aug 29 2017
%Y Cf. A291668, A291669, A291670, A291671.
%K nonn,base
%O 1,1
%A _Colin Barker_, Aug 29 2017
%E a(16)-a(18) from _Giovanni Resta_, Aug 29 2017
%E a(19)-a(30) from _Chai Wah Wu_, Aug 29 2017