A292349 Pri-most primes: primes p such that the majority of bits in the binary representation of p satisfy the following: complementing this bit produces a prime number.

7, 19, 23, 43, 71, 101

Offset

1,1

Comments

Primes in A292348.

Conjecture: the sequence is finite.

Links

Table of n, a(n) for n=1..6.

Mathematica

Select[Prime@ Range[10^5], Function[n, Function[d, 2 Count[Array[FromDigits[#, 2] &@ MapAt[Mod[# + 1, 2] &, d, #] &, Length@ d], _?PrimeQ] > Length@ d]@ IntegerDigits[n, 2]]] (* Michael De Vlieger, Dec 08 2017 *)

Prog

(Python)
from sympy import isprime, primerange
for i in primerange(1, 1000):
  delta = 0
  bit = 1
  while  bit <= i:
    if isprime(i^bit): delta += 1
    else:              delta -= 1
    bit*=2
  if delta > 0:  print(str(i), end=', ')

Crossrefs

Cf. A000040, A137985, A292348.

Sequence in context: A032680 A141831 A176182 * A065749 A032642 A127633

Adjacent sequences: A292346 A292347 A292348 * A292350 A292351 A292352

Keyword

nonn,base,more

Author

Alex Ratushnyak, Dec 07 2017

Status

approved