OFFSET
1,2
LINKS
Muniru A Asiru, Table of n, a(n) for n = 1..387
MATHEMATICA
Select[6^Range[0, 40], IntegerDigits[#][[1]]==1&] (* Harvey P. Dale, Oct 04 2023 *)
PROG
(GAP) Filtered(List([0..40], n->6^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