%I #4 Mar 30 2012 17:36:00
%S 3,11,29,53,89,131,179,233,251,293,419,443,509,641,659,719,761,911,
%T 1013,1031,1103,1229,1409,1451,1499,1559,1601,1811,1901,1973,2039,
%U 2069,2141,2339,2393,2459,2549,2699,2753,2903,2963,3023,3329,3389,3449,3539,3623
%N Bisection of A005384.
%p 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 nonn,easy
%O 0,1
%A _N. J. A. Sloane_, Nov 20 2004
%E More terms from _Emeric Deutsch_, Dec 09 2004
|