This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A185269 #15 Jun 25 2017 23:04:02 %S A185269 7,5,31,29,19,17,23,107,109,97,103,101,127,113,73,79,67,71,89,83,431, %T A185269 419,421,443,433,439,397,389,409,401,491,487,509,499,503,457,463,461, %U A185269 449,479,467,293,313,317,307,311,271,269,257,263,283,281,277,367,353,359,379 %N A185269 The subsequence of primes, in order of occurrence, in A005351. %C A185269 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 A185269 G. C. Greubel, <a href="/A185269/b185269.txt">Table of n, a(n) for n = 1..1000</a> %t A185269 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 A185269 Cf. A000040, A005351. %K A185269 base,easy,nonn %O A185269 1,1 %A A185269 _Jonathan Vos Post_, Feb 19 2011