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