OFFSET
1,1
MATHEMATICA
f[n_] := FromDigits[IntegerDigits[n, 2], 4]; Select[Range[500], PrimeQ[f[#]] &] (* Amiram Eldar, Aug 31 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Nov 23 2008
EXTENSIONS
More terms from Amiram Eldar, Aug 31 2019
STATUS
approved