OFFSET
1,1
COMMENTS
a(n) is the m-th prime where m takes the values 2, 1, 4, 3, 6, 5, 11, 10, 9, 8, 7, 18, 15, 16, 17, 12, ... .
MATHEMATICA
f[n_] := BitXor[n, Floor[n/2]]; Select[Array[f, 300], PrimeQ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 11 2017
STATUS
approved