A139120 Primes that show the distribution of prime numbers using "0" for primes and "1" for nonprime numbers.

10010101, 1001010111010111, 100101011101011101011101111101011111011101011101111101111101011111011101011111011101111101111111011101011101011101111111111111011101111101011111111101011111011111011101111101111, 100101011101011101011101111101011111011101011101111101111101011111011101011111011101111101111111011101011101011101111111111111011101111101011111111101011111011111011101111101111101011111111101011101011111111

Offset: 1

Author

Omar E. Pol, Apr 11 2008

Keywords

• nonn
• base

Comments

Primes in A118256.

For n = 1..7, the number of digits in a(n) is 8, 16, 177, 207, 872, 1395, 2114 (no more through 10000). - Jon E. Schoenfield, Apr 13 2018

Links

• Alois P. Heinz, Table of n, a(n) for n = 1..5
• Caldwell and Honaker, Prime Curios!: 10010101

Crossrefs

Cf. A118255, A118256, A118257, A139101, A139102, A139103, A139104, A139119, A139122.

Programs

Mathematica

A118255[n_] := Module[{},
   If[n == 1, A118255[1] = 1,
    If[PrimeQ[n], A118255[n] = 2 A118255[n - 1],
     A118255[n] = 2 A118255[n - 1] + 1]]];
Select[Table[FromDigits[IntegerDigits[A118255[n], 2]], {n, 1, 1000}], PrimeQ] (* Robert Price, Apr 03 2019 *)

Extensions

Extended by Charles R Greathouse IV, Jul 27 2009