A292203 Primes as they appear in A003188.

3, 2, 7, 5, 13, 11, 31, 29, 23, 19, 17, 53, 61, 59, 41, 43, 47, 37, 97, 103, 101, 109, 107, 127, 113, 83, 89, 73, 79, 71, 67, 193, 199, 197, 223, 211, 241, 251, 233, 239, 229, 227, 163, 167, 173, 191, 181, 179, 151, 149, 157, 137, 139, 131, 389, 397, 409, 401, 433, 439

Offset: 1

Author

Robert G. Wilson v, Sep 11 2017

Keywords

• nonn

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

Crossrefs

Cf. A003188, A292204, A292205.

Programs

Mathematica

f[n_] := BitXor[n, Floor[n/2]]; Select[Array[f, 300], PrimeQ]