%I #8 Jun 07 2021 18:49:59
%S 1,2,3,6,9,11,13,14,17,21,23,24,27,28,31,33,34,36,37,39,41,42,47,52,
%T 58,59,61,62,63,64,66,68,69,71,73,76,82,83,84,87,89,91,92,97,98,104,
%U 106,109,112,117,118,121,122,123,124,129,131,134,137,141,144,146
%N Numbers k such that 1 is the smallest decimal digit of k^4.
%e 2 is in the sequence because 2^4 = 16, the smallest decimal digit of which is 1.
%t Select[Range[200],Min[IntegerDigits[#^4]]==1&] (* _Harvey P. Dale_, Jun 07 2021 *)
%o (PARI) select(k->vecmin(digits(k^4))==1, vector(500, k, k))
%Y Cf. A291668, A291670, A291671, A291672.
%K nonn,base
%O 1,2
%A _Colin Barker_, Aug 29 2017
|