login
Powers of 2 with initial digit 4.
7

%I #27 Sep 08 2022 08:46:23

%S 4,4096,4194304,4294967296,4398046511104,4503599627370496,

%T 4611686018427387904,4722366482869645213696,4835703278458516698824704,

%U 4951760157141521099596496896,40564819207303340847894502572032,41538374868278621028243970633760768

%N Powers of 2 with initial digit 4.

%C Differs from A067482 first at n = 11.

%H Muniru A Asiru, <a href="/A320860/b320860.txt">Table of n, a(n) for n = 1..320</a>

%H <a href="/index/Di#divseq">Index to divisibility sequences</a>

%p select(x->"4"=""||x[1],[2^n$n=0..150])[];

%t Select[2^Range[160], First[IntegerDigits[#]] == 4 &] (* _G. C. Greubel_, Oct 27 2018 *)

%o (GAP) Filtered(List([0..150],n->2^n),i->ListOfDigits(i)[1]=4);

%o (PARI) select(x->(digits(x)[1]==4), vector(200, n, 2^n)) \\ _Michel Marcus_, Oct 26 2018

%o (Magma) [2^n: n in [1..160] | Intseq(2^n)[#Intseq(2^n)] eq 4]; // _G. C. Greubel_, Oct 27 2018

%Y Cf. A000079 (Powers of 2), A008952 (leading digit of 2^n), A217397 (numbers starting with 4).

%Y Powers of 2 with initial digit k, (k = 1..4): A067488, A067480, A320859, this sequence.

%K base,nonn

%O 1,1

%A _Muniru A Asiru_, Oct 22 2018