login
A323067
Primes whose binary complement (A035327) is a square.
0
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,1
MATHEMATICA
Select[Prime@ Range[10^4], IntegerQ@ Sqrt@ FromDigits[IntegerDigits[#, 2] /. {0 -> 1, 1 -> 0}, 2] &] (* Michael De Vlieger, Jan 04 2019 *)
PROG
(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
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alex Ratushnyak, Jan 03 2019
STATUS
approved