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,1

Links

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

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

Cf. A000040, A035327, A000290, A323066.

Sequence in context: A138000 A322118 A349420 * A140108 A034295 A338320

Adjacent sequences: A323064 A323065 A323066 * A323068 A323069 A323070

Keyword

nonn,base

Author

Alex Ratushnyak, Jan 03 2019

Status

approved