login
A139119
Primes whose binary representation shows the distribution of prime numbers using "0" for primes and "1" for nonprime numbers.
6
2, 37, 149, 599, 153437, 39279991, 628479869, 11056334789265976156021, 3263254052013454238294691704608897001027543, 7524551543123483484068003542235060639999919940760883731360687
OFFSET
1,1
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
MATHEMATICA
Select[Table[FromDigits[Boole /@ Not /@ PrimeQ /@ Range@k, 2], {k, 1, 100}], PrimeQ] (* Federico Provvedi, Oct 07 2013 *)
PROG
(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
KEYWORD
nonn,base
AUTHOR
Omar E. Pol, Apr 11 2008
EXTENSIONS
a(8)-a(10) from Donovan Johnson, Oct 07 2013
STATUS
approved