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 A100032 #4 Mar 30 2012 17:36:00 %S A100032 3,11,29,53,89,131,179,233,251,293,419,443,509,641,659,719,761,911, %T A100032 1013,1031,1103,1229,1409,1451,1499,1559,1601,1811,1901,1973,2039, %U A100032 2069,2141,2339,2393,2459,2549,2699,2753,2903,2963,3023,3329,3389,3449,3539,3623 %N A100032 Bisection of A005384. %p A100032 A:={}: for n from 1 to 608 do if isprime(2*ithprime(n)+1)=true then A:=A union {ithprime(n)} else A:=A fi od: B:=convert(A, list): seq(B[2*j],j=1..nops(B)/2); %K A100032 nonn,easy %O A100032 0,1 %A A100032 _N. J. A. Sloane_, Nov 20 2004 %E A100032 More terms from _Emeric Deutsch_, Dec 09 2004