A030704 Numbers k such that the decimal expansion of 8^k contains no zeros (probably finite).
0, 1, 2, 3, 5, 6, 8, 9, 11, 12, 13, 17, 24, 27
Offset: 1
Links
- Eric Weisstein's World of Mathematics, Zero
Crossrefs
Programs
-
Magma
[n: n in [0..500] | not 0 in Intseq(8^n)]; // Vincenzo Librandi, Mar 08 2014
-
Mathematica
Select[Range[0,30],DigitCount[8^#,10,0]==0&] (* Harvey P. Dale, Jul 13 2016 *)
-
PARI
select( is(n)=vecmin(digits(8^n)), [0..30]) \\ M. F. Hasler, Mar 07 2014
Extensions
Several edits (offset 1, initial 0, title rephrased) by M. F. Hasler, Mar 07 2014
Comments