OFFSET
1,1
LINKS
Muniru A Asiru, Table of n, a(n) for n = 1..410
FORMULA
a(n) = 2^A172404(n).
MAPLE
select(x->"3"=""||x[1], [2^n$n=0..120])[];
MATHEMATICA
Select[2^Range[0, 100], First[IntegerDigits[#]] == 3 &] (* G. C. Greubel, Oct 24 2018 *)
PROG
(GAP) Filtered(List([0..120], n->2^n), i->ListOfDigits(i)[1]=3);
(Magma) [2^n: n in [1..100] | Intseq(2^n)[#Intseq(2^n)] eq 3]; // G. C. Greubel, Oct 24 2018
(PARI) lista(nn) = {for(n=1, nn, x = 2^n; if (digits(x=2^n)[1] == 3, print1(x, ", ")); ); } \\ Michel Marcus, Oct 25 2018
CROSSREFS
Cf. A172404.
KEYWORD
base,nonn
AUTHOR
Muniru A Asiru, Oct 22 2018
STATUS
approved