%I A100032
%S A100032 3,11,29,53,89,131,179,233,251,293,419,443,509,641,659,719,761,911,1013,
%T A100032 1031,1103,1229,1409,1451,1499,1559,1601,1811,1901,1973,2039,2069,2141,
%U A100032 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);
%Y A100032 Sequence in context: A077279 A111227 A111693 this_sequence A069350 A053845 
               A072610
%Y A100032 Adjacent sequences: A100029 A100030 A100031 this_sequence A100033 A100034 
               A100035
%K A100032 nonn,easy
%O A100032 0,1
%A A100032 N. J. A. Sloane (njas(AT)research.att.com), Nov 20 2004
%E A100032 More terms from Emeric Deutsch (deutsch(AT)duke.poly.edu), Dec 09 2004