OFFSET
1,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..261
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
Amarnath Murthy, Feb 09 2002
STATUS
approved