%I #14 Jan 19 2023 11:10:02
%S 3,7,31,211,2311,43891,1272811,47093971,2213416591,148298911531,
%T 15274787887591,2734187031878611,522229723088814511,
%U 116457228248805635731,31559908855426327282831,9247053294639913893869191,2931315894400852704356533231,1691369271069292010413719673711
%N Primes generated from A039726.
%D Harvey Dubner, Recursive Prime Generating Sequences, Journal of Recreational Mathematics, Vol. 29, No. 3 (1998), pp. 170-175, see p. 172, Table 2.
%H Amiram Eldar, <a href="/A087864/b087864.txt">Table of n, a(n) for n = 1..217</a>
%t 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 Cf. A039726.
%K nonn
%O 1,1
%A _Lekraj Beedassy_, Oct 10 2003
%E More terms from _Ray Chandler_, Nov 06 2003
|