A305931 Powers of 3 having at least one digit '0' in their decimal representation.
59049, 14348907, 43046721, 129140163, 387420489, 3486784401, 10460353203, 31381059609, 847288609443, 68630377364883, 205891132094649, 1853020188851841, 5559060566555523, 50031545098999707, 150094635296999121, 450283905890997363, 1350851717672992089, 4052555153018976267, 12157665459056928801
Offset: 1
Crossrefs
Programs
-
Mathematica
Select[3^Range[0,40],DigitCount[#,10,0]>0&] (* Harvey P. Dale, May 30 2020 *)
-
PARI
for(k=0,69, vecmin(digits(3^k))|| print1(3^k","))
-
PARI
select( t->!vecmin(digits(t)), apply( k->3^k, [0..40]))
Comments