|
%I #15 Jun 25 2017 23:04:02
%S 7,5,31,29,19,17,23,107,109,97,103,101,127,113,73,79,67,71,89,83,431,
%T 419,421,443,433,439,397,389,409,401,491,487,509,499,503,457,463,461,
%U 449,479,467,293,313,317,307,311,271,269,257,263,283,281,277,367,353,359,379
%N The subsequence of primes, in order of occurrence, in A005351.
%C A005351(n) is a representation of n obtained by converting n to the base(-2) representation, interpreting this as a binary, base(+2), number, and converting back to decimal.
%H G. C. Greubel, <a href="/A185269/b185269.txt">Table of n, a(n) for n = 1..1000</a>
%t f[n_] := Module[{t = 2 (4^Floor[Log[4, Abs[n] + 1] + 2] - 1)/3}, BitXor[n + t, t]]; Select[Array[f, 300], PrimeQ] (* _Robert G. Wilson v_, Feb 21 2011 *)
%Y Cf. A000040, A005351.
%K base,easy,nonn
%O 1,1
%A _Jonathan Vos Post_, Feb 19 2011
|
