A323067 Primes whose binary complement (A035327) is a square.

2, 3, 7, 11, 31, 47, 59, 127, 191, 239, 251, 367, 827, 1019, 1471, 1723, 2011, 2939, 4079, 4091, 4591, 6427, 7867, 8191, 10607, 11483, 12539, 13679, 13883, 14447, 14783, 14939, 15227, 15359, 16127, 16187, 16319, 18367, 26683, 27583, 28411, 29167, 29851, 32191

Offset: 1

Author

Alex Ratushnyak, Jan 03 2019

Keywords

• nonn
• base

Crossrefs

Cf. A000040, A035327, A000290, A323066.

Programs

Mathematica

Select[Prime@ Range[10^4], IntegerQ@ Sqrt@ FromDigits[IntegerDigits[#, 2] /. {0 -> 1, 1 -> 0}, 2] &] (* Michael De Vlieger, Jan 04 2019 *)

PARI

bc(n) = bitxor(n, 2^(1+logint(max(n, 1), 2))-1); \\ A035327
isok(n) = isprime(n) && issquare(bc(n)); \\ Michel Marcus, Jan 04 2019