login
Concatenation of first n digits in the concatenation of first n primes written in base 2.
22

%I #26 Jan 26 2021 18:04:24

%S 1,10,101,1011,10111,101110,1011101,10111011,101110111,1011101111,

%T 10111011111,101110111110,1011101111101,10111011111011,

%U 101110111110111,1011101111101111,10111011111011110,101110111110111101,1011101111101111011

%N Concatenation of first n digits in the concatenation of first n primes written in base 2.

%C The terms are 1, 2, 5, 11, 23, 46, 93, 185, 375, ... in decimal.

%C The terms are the first n digits of the concatenation 10//11//101//111//1011//1101//.. generated with A004676.

%t With[{cc=Flatten[Table[IntegerDigits[p,2],{p,Prime[ Range[ 10]]}]]},Table[ FromDigits[Take[cc,n]],{n,Length[cc]}]] (* _Harvey P. Dale_, Jan 26 2021 *)

%Y Cf. A019518.

%K nonn,easy,base

%O 1,2

%A _Juri-Stepan Gerasimov_, May 24 2011