OFFSET
1,1
COMMENTS
Differs from A067482 first at n = 11.
LINKS
Muniru A Asiru, Table of n, a(n) for n = 1..320
MAPLE
select(x->"4"=""||x[1], [2^n$n=0..150])[];
MATHEMATICA
Select[2^Range[160], First[IntegerDigits[#]] == 4 &] (* G. C. Greubel, Oct 27 2018 *)
PROG
(GAP) Filtered(List([0..150], n->2^n), i->ListOfDigits(i)[1]=4);
(PARI) select(x->(digits(x)[1]==4), vector(200, n, 2^n)) \\ Michel Marcus, Oct 26 2018
(Magma) [2^n: n in [1..160] | Intseq(2^n)[#Intseq(2^n)] eq 4]; // G. C. Greubel, Oct 27 2018
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Muniru A Asiru, Oct 22 2018
STATUS
approved