A067489 Powers of 3 with initial digit 1.
1, 19683, 177147, 1594323, 14348907, 129140163, 1162261467, 10460353203, 1853020188851841, 16677181699666569, 150094635296999121, 1350851717672992089, 12157665459056928801, 109418989131512359209
Offset: 1
Links
- Muniru A Asiru, Table of n, a(n) for n = 1..625
Programs
-
GAP
Filtered(List([0..50],n->3^n),i->ListOfDigits(i)[1]=1); # Muniru A Asiru, Oct 22 2018
-
Mathematica
Select[3^Range[0,5*10^6],First[IntegerDigits[#]]==1&] (* Harvey P. Dale, Oct 09 2015 *)
Extensions
Offset 1 from Michel Marcus, Oct 19 2018