A378557 Powers of 3 that do not contain the digit 3.
1, 9, 27, 81, 729, 2187, 6561, 59049, 177147, 4782969, 1162261467, 7625597484987, 22876792454961, 16677181699666569, 12157665459056928801, 717897987691852588770249, 174449211009120179071170507, 11972515182562019788602740026717047105681
Offset: 1
Programs
-
Mathematica
Select[3^Range[0,100000],Not[MemberQ[IntegerDigits[#],3]]&]
Formula
a(n) = 3^A131629(n).
Comments