A139119 Primes whose binary representation shows the distribution of prime numbers using "0" for primes and "1" for nonprime numbers.

2, 37, 149, 599, 153437, 39279991, 628479869, 11056334789265976156021, 3263254052013454238294691704608897001027543, 7524551543123483484068003542235060639999919940760883731360687

Offset: 1

Author

Omar E. Pol, Apr 11 2008

Keywords

• nonn
• base

Comments

Primes in A118255.

Primes whose binary representation is also the concatenation of the initial terms of A005171, the characteristic function of nonprimes. - Omar E. Pol, Oct 07 2013

a(11) is a 120-digit number 377859...798653. - Robert Price, Apr 03 2019

Crossrefs

Cf. A000040, A118255, A118256, A118257, A139101, A139102, A139103, A139104.

Programs

Mathematica

Select[Table[FromDigits[Boole /@ Not /@ PrimeQ /@ Range@k, 2], {k, 1, 100}], PrimeQ] (* Federico Provvedi, Oct 07 2013 *)

PARI

f(n) = fromdigits(vector(n, k, !isprime(k)), 2); \\ A118255
lista(nn) = for (n=1, nn, if (isprime(p=f(n)), print1(p, ", "))); \\ Michel Marcus, Apr 04 2019

Extensions

a(8)-a(10) from Donovan Johnson, Oct 07 2013