OFFSET
1,1
COMMENTS
Recursive prime generating sequence.
REFERENCES
Harvey Dubner, Recursive Prime Generating Sequences, Journal of Recreational Mathematics, Vol. 29, No. 3 (1998), pp. 170-175, see p. 173, Table 3.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..500
MATHEMATICA
a[1] = 2; a[n_] := a[n] = Module[{r = Product[a[k], {k, 1, n - 1}], p = NextPrime[a[n - 1]]}, While[! PrimeQ[r*p - 1], p = NextPrime[p]]; p]; Array[a, 50] (* Amiram Eldar, Jan 19 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, Oct 14 2003
EXTENSIONS
More terms from Ray Chandler, Nov 06 2003
STATUS
approved