A087864 Primes generated from A039726.

3, 7, 31, 211, 2311, 43891, 1272811, 47093971, 2213416591, 148298911531, 15274787887591, 2734187031878611, 522229723088814511, 116457228248805635731, 31559908855426327282831, 9247053294639913893869191, 2931315894400852704356533231, 1691369271069292010413719673711

Offset: 1

Author

Lekraj Beedassy, Oct 10 2003

Keywords

• nonn

References

• Harvey Dubner, Recursive Prime Generating Sequences, Journal of Recreational Mathematics, Vol. 29, No. 3 (1998), pp. 170-175, see p. 172, Table 2.

Links

• Amiram Eldar, Table of n, a(n) for n = 1..217

Crossrefs

Cf. A039726.

Programs

Mathematica

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 *)

Extensions

More terms from Ray Chandler, Nov 06 2003