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

%I #23 Apr 04 2019 03:01:27

%S 10010101,1001010111010111,

%T 100101011101011101011101111101011111011101011101111101111101011111011101011111011101111101111111011101011101011101111111111111011101111101011111111101011111011111011101111101111,

%U 100101011101011101011101111101011111011101011101111101111101011111011101011111011101111101111111011101011101011101111111111111011101111101011111111101011111011111011101111101111101011111111101011101011111111

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

%C Primes in A118256.

%C 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

%H Alois P. Heinz, <a href="/A139120/b139120.txt">Table of n, a(n) for n = 1..5</a>

%H Caldwell and Honaker, <a href="https://primes.utm.edu/curios/page.php?curio_id=12254">Prime Curios!: 10010101</a>

%t A118255[n_] := Module[{},

%t If[n == 1, A118255[1] = 1,

%t If[PrimeQ[n], A118255[n] = 2 A118255[n - 1],

%t A118255[n] = 2 A118255[n - 1] + 1]]];

%t Select[Table[FromDigits[IntegerDigits[A118255[n], 2]], {n, 1, 1000}], PrimeQ] (* _Robert Price_, Apr 03 2019 *)

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

%K nonn,base

%O 1,1

%A _Omar E. Pol_, Apr 11 2008

%E Extended by _Charles R Greathouse IV_, Jul 27 2009