A291639 Numbers k such that 0 is the smallest decimal digit of k^3.
10, 16, 20, 22, 30, 34, 37, 40, 42, 43, 47, 48, 50, 52, 59, 60, 63, 67, 69, 70, 73, 74, 79, 80, 84, 86, 87, 89, 90, 93, 94, 99, 100, 101, 102, 103, 106, 107, 109, 110, 112, 115, 116, 117, 118, 120, 123, 124, 126, 127, 128, 130, 131, 134, 135, 138, 140, 141
Offset: 1
Examples
16 is in the sequence because 16^3 = 4096, the smallest decimal digit of which is 0.
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
Maple
select(n -> min(convert(n^3,base,10))=0, [$1..1000]); # Robert Israel, Aug 29 2017
-
Mathematica
Select[Range[150],DigitCount[#^3,10,0]>0&] (* Harvey P. Dale, Feb 03 2025 *)
-
PARI
select(k->vecmin(digits(k^3))==0, vector(500, k, k))
Comments