A131614 Numbers k such that the decimal expansion of 3^k contains no 8.
0, 1, 2, 3, 5, 6, 8, 10, 11, 12, 13, 16, 17, 19, 21, 33, 36, 51, 55, 56, 100
Offset: 1
Programs
-
Magma
[n: n in [0..1000] | not 8 in Intseq(3^n) ]; // Vincenzo Librandi, May 06 2015
-
Mathematica
Join[{0}, Select[ Range@10000, FreeQ[ IntegerDigits[3^# ], 8] &]]
Extensions
Adapted Mma and initial 0 added by Vincenzo Librandi, May 06 2015
Comments