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-4 of 4 results.