A320859
Powers of 2 with initial digit 3.
Original entry on oeis.org
32, 32768, 33554432, 34359738368, 35184372088832, 36028797018963968, 36893488147419103232, 37778931862957161709568, 302231454903657293676544, 38685626227668133590597632, 309485009821345068724781056, 39614081257132168796771975168, 316912650057057350374175801344
Offset: 1
-
Filtered(List([0..120],n->2^n),i->ListOfDigits(i)[1]=3);
-
[2^n: n in [1..100] | Intseq(2^n)[#Intseq(2^n)] eq 3]; // G. C. Greubel, Oct 24 2018
-
select(x->"3"=""||x[1],[2^n$n=0..120])[];
-
Select[2^Range[0, 100], First[IntegerDigits[#]] == 3 &] (* G. C. Greubel, Oct 24 2018 *)
-
lista(nn) = {for(n=1, nn, x = 2^n; if (digits(x=2^n)[1] == 3, print1(x, ", ")););} \\ Michel Marcus, Oct 25 2018
A320861
Powers of 2 with initial digit 5.
Original entry on oeis.org
512, 524288, 536870912, 549755813888, 562949953421312, 576460752303423488, 590295810358705651712, 5070602400912917605986812821504, 5192296858534827628530496329220096, 5316911983139663491615228241121378304, 5444517870735015415413993718908291383296
Offset: 1
-
Filtered(List([0..160],n->2^n),i->ListOfDigits(i)[1]=5);
-
[2^n: n in [1..200] | Intseq(2^n)[#Intseq(2^n)] eq 5]; // Vincenzo Librandi, Oct 25 2018
-
select(x->"5"=""||x[1],[2^n$n=0..160])[];
# Alternative:
Res:= NULL: count:= 0:
for k from 1 to 49 do
n:= ilog2(6*10^k);
if n > ilog2(5*10^k) then count:= count+1;
Res:= Res, 2^n;
fi
od:
Res; # Robert Israel, Oct 26 2018
-
Select[2^Range[200], First[IntegerDigits[#]]==5 &] (* Vincenzo Librandi, Oct 25 2018 *)
-
lista(nn) = {for(n=1, nn, x = 2^n; if (digits(x=2^n)[1] == 5, print1(x, ", ")););} \\ Michel Marcus, Oct 25 2018
A320862
Powers of 2 with initial digit 6.
Original entry on oeis.org
64, 65536, 67108864, 68719476736, 604462909807314587353088, 618970019642690137449562112, 633825300114114700748351602688, 649037107316853453566312041152512, 664613997892457936451903530140172288, 680564733841876926926749214863536422912
Offset: 1
-
Filtered(List([0..180],n->2^n),i->ListOfDigits(i)[1]=6);
-
[2^n: n in [1..160] | Intseq(2^n)[#Intseq(2^n)] eq 6]; // G. C. Greubel, Oct 27 2018
-
select(x->"6"=""||x[1],[2^n$n=0..180])[];
-
Select[2^Range[160], First[IntegerDigits[#]] == 6 &] (* G. C. Greubel, Oct 27 2018 *)
-
select(x->(digits(x)[1]==6), vector(200, n, 2^n)) \\ Michel Marcus, Oct 26 2018
A320863
Powers of 2 with initial digit 7.
Original entry on oeis.org
70368744177664, 72057594037927936, 73786976294838206464, 75557863725914323419136, 77371252455336267181195264, 79228162514264337593543950336, 713623846352979940529142984724747568191373312, 730750818665451459101842416358141509827966271488
Offset: 1
-
Filtered(List([0..180],n->2^n),i->ListOfDigits(i)[1]=7);
-
[2^n: n in [1..160] | Intseq(2^n)[#Intseq(2^n)] eq 7]; // G. C. Greubel, Oct 27 2018
-
select(x->"7"=""||x[1],[2^n$n=0..180])[];
-
Select[2^Range[160], First[IntegerDigits[#]] == 7 &] (* G. C. Greubel, Oct 27 2018 *)
-
select(x->(digits(x)[1]==7), vector(200, n, 2^n)) \\ Michel Marcus, Oct 27 2018
A320864
Powers of 2 with initial digit 8.
Original entry on oeis.org
8, 8192, 8388608, 8589934592, 8796093022208, 81129638414606681695789005144064, 83076749736557242056487941267521536, 85070591730234615865843651857942052864, 87112285931760246646623899502532662132736, 89202980794122492566142873090593446023921664
Offset: 1
-
Filtered(List([0..200],n->2^n),i->ListOfDigits(i)[1]=8);
-
select(x->"8"=""||x[1],[2^n$n=0..200])[];
-
Select[2^Range[200], IntegerDigits[#][[1]] == 8 &] (* Amiram Eldar, Nov 21 2018 *)
-
select(x->(digits(x)[1]==8), vector(200, n, 2^n)) \\ Michel Marcus, Nov 21 2018
A320865
Powers of 2 with initial digit 9.
Original entry on oeis.org
9007199254740992, 9223372036854775808, 9444732965739290427392, 9671406556917033397649408, 9903520314283042199192993792, 91343852333181432387730302044767688728495783936, 93536104789177786765035829293842113257979682750464
Offset: 1
-
Filtered(List([0..200],n->2^n),i->ListOfDigits(i)[1]=9);
-
select(x->"9"=""||x[1],[2^n$n=0..200])[];
-
Select[2^Range[200], IntegerDigits[#][[1]] == 9 &] (* Amiram Eldar, Nov 21 2018 *)
-
select(x->(digits(x)[1]==9), vector(200, n, 2^n)) \\ Michel Marcus, Nov 21 2018
Showing 1-6 of 6 results.