OFFSET
1,2
LINKS
Muniru A Asiru, Table of n, a(n) for n = 1..625
MATHEMATICA
Select[3^Range[0, 5*10^6], First[IntegerDigits[#]]==1&] (* Harvey P. Dale, Oct 09 2015 *)
PROG
(GAP) Filtered(List([0..50], n->3^n), i->ListOfDigits(i)[1]=1); # Muniru A Asiru, Oct 22 2018
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Feb 09 2002
EXTENSIONS
Offset 1 from Michel Marcus, Oct 19 2018
STATUS
approved