%I A087864
%S A087864 3,7,31,211,2311,43891,1272811,47093971,2213416591,148298911531,
%T A087864 15274787887591,2734187031878611,522229723088814511,
%U A087864 116457228248805635731,31559908855426327282831
%N A087864 Primes generated from A039726.
%D A087864 H. Dubner, Recursive Prime Generating Sequences, Table 2, pp. 172, Journal
of Recreational Mathematics, vol. 29(3) 1998, pp. 172-?, see Table
2.
%t A087864 k = 1; cp = 2; ct = 1; n[ct] = 3; While[ct < 20, k++; p = Prime[k]; cp1
= cp*p; If[PrimeQ[cp1 + 1], cp = cp1; ct++; n[ct] = cp + 1]]; Table[n[k],
{k, 1, ct}] (Lei Zhou)
%Y A087864 Sequence in context: A103785 A083772 A093441 this_sequence A066676 A073917
A030521
%Y A087864 Adjacent sequences: A087861 A087862 A087863 this_sequence A087865 A087866
A087867
%K A087864 nonn
%O A087864 1,1
%A A087864 Lekraj Beedassy (blekraj(AT)yahoo.com), Oct 10 2003
%E A087864 More terms from Ray Chandler (rayjchandler(AT)sbcglobal.net), Nov 06
2003
|