A190480 Concatenation of first n digits in the concatenation of first n primes written in base 2.
1, 10, 101, 1011, 10111, 101110, 1011101, 10111011, 101110111, 1011101111, 10111011111, 101110111110, 1011101111101, 10111011111011, 101110111110111, 1011101111101111, 10111011111011110, 101110111110111101, 1011101111101111011
Offset: 1
Crossrefs
Cf. A019518.
Programs
-
Mathematica
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 *)
Comments