A131627 Numbers k such that the decimal expansion of 3^k contains no 1.
1, 2, 3, 5, 6, 10, 14, 18, 25, 27, 29, 33, 37, 43
Offset: 1
Programs
-
Magma
[n: n in [0..1000] | not 1 in Intseq(3^n) ]; // Vincenzo Librandi, May 06 2015
-
Mathematica
Select[ Range@10000, FreeQ[ IntegerDigits[3^# ], 1] &]
Comments