|
|
A067481
|
|
Powers of 3 with initial digit 3.
|
|
15
|
|
|
3, 387420489, 3486784401, 31381059609, 36472996377170786403, 328256967394537077627, 381520424476945831628649898809, 3433683820292512484657849089281, 30903154382632612361920641803529, 3990838394187339929534246675572349035227, 35917545547686059365808220080151141317043
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[3^Range[70], First[IntegerDigits[#]]==3 &] (* Vincenzo Librandi, Oct 22 2018 *)
|
|
PROG
|
(Magma) [3^n: n in [1..100] | Intseq(3^n)[#Intseq(3^n)] eq 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
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|