|
%I #34 Sep 08 2022 08:44:50
%S 0,1,2,3,5,6,8,9,11,12,13,17,24,27
%N Numbers k such that the decimal expansion of 8^k contains no zeros (probably finite).
%C Integers in A007377 / 3. - _M. F. Hasler_, Mar 07 2014
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Zero.html">Zero</a>
%t Select[Range[0,30],DigitCount[8^#,10,0]==0&] (* _Harvey P. Dale_, Jul 13 2016 *)
%o (PARI) select( is(n)=vecmin(digits(8^n)), [0..30]) \\ _M. F. Hasler_, Mar 07 2014
%o (Magma) [n: n in [0..500] | not 0 in Intseq(8^n)]; // _Vincenzo Librandi_, Mar 08 2014
%Y Cf. A007377 (analog for 2^n), A030700 (for 3^n), A030701 (for 4^n), A008839 (for 5^n), A030702 (for 6^n), A030703 and A195908 (for 7^n), A030705 (for 9^n), A030706 and A195946 (for 11^n), A195944 and A195945 (for 13^n).
%Y Cf. A195942, A195943.
%Y This is row 0 of A305928.
%K nonn,base
%O 1,3
%A _Eric W. Weisstein_
%E Several edits (offset 1, initial 0, title rephrased) by _M. F. Hasler_, Mar 07 2014
|
