A131629 Numbers k such that the decimal expansion of 3^k contains no 3.
0, 2, 3, 4, 6, 7, 8, 10, 11, 14, 19, 27, 28, 34, 40, 50, 55, 84
Offset: 1
Programs
-
Magma
[n: n in [0..1000] | not 3 in Intseq(3^n) ]; // Vincenzo Librandi, May 06 2015
-
Mathematica
Join[{0}, Select[ Range@10000, FreeQ[ IntegerDigits[3^# ], 3] &]]
Extensions
Initial 0 added and Mathematica code adapted by Vincenzo Librandi, May 06 2015
Comments