OFFSET
1,1
COMMENTS
a(n) mod 4 = 3.
MATHEMATICA
Select[Prime@ Range@ 430, And[PrimeQ@ FromDigits[RotateLeft@ #, 2], PrimeQ@ FromDigits[RotateRight@ #, 2]] &@ IntegerDigits[#, 2] &] (* Michael De Vlieger, Jun 22 2016 *)
PROG
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alex Ratushnyak, Jun 10 2016
STATUS
approved