|
%I #11 Sep 24 2017 21:05:58
%S 3,2,7,5,13,11,31,29,23,19,17,53,61,59,41,43,47,37,97,103,101,109,107,
%T 127,113,83,89,73,79,71,67,193,199,197,223,211,241,251,233,239,229,
%U 227,163,167,173,191,181,179,151,149,157,137,139,131,389,397,409,401,433,439
%N Primes as they appear in A003188.
%C 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, ... .
%t f[n_] := BitXor[n, Floor[n/2]]; Select[Array[f, 300], PrimeQ]
%Y Cf. A003188, A292204, A292205.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Sep 11 2017
|
