A067481 Powers of 3 with initial digit 3.
3, 387420489, 3486784401, 31381059609, 36472996377170786403, 328256967394537077627, 381520424476945831628649898809, 3433683820292512484657849089281, 30903154382632612361920641803529, 3990838394187339929534246675572349035227, 35917545547686059365808220080151141317043
Offset: 1
Links
- Alois P. Heinz, Table of n, a(n) for n = 1..261
Programs
-
Magma
[3^n: n in [1..100] | Intseq(3^n)[#Intseq(3^n)] eq 3]; // Vincenzo Librandi, Oct 22 2018
-
Mathematica
Select[3^Range[70], First[IntegerDigits[#]]==3 &] (* Vincenzo Librandi, Oct 22 2018 *)
-
PARI
lista(nn) = {for (n=0, nn, if (digits(x=3^n)[1] == 3, print1(x, ", ")););} \\ Michel Marcus, Oct 22 2018