|
%I #8 Aug 29 2017 03:23:19
%S 7,15,33,46,76,77,95,96,157,167,175,179,186,197,207,213,215,326,327,
%T 332,335,353,355,379,389,427,429,437,454,457,464,714,764,775,813,816,
%U 826,859,883,922,927,942,957,1526,1529,1553,1557,1636,1692,1695,1753,1782
%N Numbers k such that 3 is the smallest decimal digit of k^3.
%H Robert Israel, <a href="/A291642/b291642.txt">Table of n, a(n) for n = 1..10000</a>
%e 33 is in the sequence because 33^3 = 35937, the smallest decimal digit of which is 3.
%p filter:= n -> min(convert(n^3,base,10))=3:
%p select(filter, [$1..10000]); # _Robert Israel_, Aug 29 2017
%o (PARI) select(k->vecmin(digits(k^3))==3, vector(5000, k, k))
%Y Cf. A291639, A291640, A291641, A291643, A291644.
%K nonn,base
%O 1,1
%A _Colin Barker_, Aug 28 2017
|
