A291642 Numbers k such that 3 is the smallest decimal digit of k^3.
7, 15, 33, 46, 76, 77, 95, 96, 157, 167, 175, 179, 186, 197, 207, 213, 215, 326, 327, 332, 335, 353, 355, 379, 389, 427, 429, 437, 454, 457, 464, 714, 764, 775, 813, 816, 826, 859, 883, 922, 927, 942, 957, 1526, 1529, 1553, 1557, 1636, 1692, 1695, 1753, 1782
Offset: 1
Examples
33 is in the sequence because 33^3 = 35937, the smallest decimal digit of which is 3.
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
Maple
filter:= n -> min(convert(n^3,base,10))=3: select(filter, [$1..10000]); # Robert Israel, Aug 29 2017
-
Mathematica
Select[Range[2000],Min[IntegerDigits[#^3]]==3&] (* Harvey P. Dale, Aug 31 2025 *)
-
PARI
select(k->vecmin(digits(k^3))==3, vector(5000, k, k))