|
%I #9 Aug 13 2019 12:29:24
%S 4,36,204,786,842,1682,2114,3795,3859,3863,4429,4459,4559,4635,7644,
%T 7913,7914,8183,8286,8372,8744,8864,9144,9263,9599,16592,17094,17863,
%U 18923,19035,19563,19829,20364,20635,20776,36264,38183,38389,38432,40186,44216
%N Numbers k such that 4 is the smallest decimal digit of k^3.
%H Chai Wah Wu, <a href="/A291643/b291643.txt">Table of n, a(n) for n = 1..10000</a>
%e 4 is in the sequence because 4^3 = 64, the smallest decimal digit of which is 4.
%t Select[Range[50000],Min[IntegerDigits[#^3]]==4&] (* _Harvey P. Dale_, Aug 13 2019 *)
%o (PARI) select(k->vecmin(digits(k^3))==4, vector(50000, k, k))
%Y Cf. A291639, A291640, A291641, A291642, A291644.
%K nonn,base
%O 1,1
%A _Colin Barker_, Aug 28 2017
|
