|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
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
|
|
LINKS
|
|
|
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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|