login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A039726 Recursive prime generating sequence. 8
2, 3, 5, 7, 11, 19, 29, 37, 47, 67, 103, 179, 191, 223, 271, 293, 317, 577, 643, 673, 809, 863, 877, 1049, 1093, 1129, 1151, 1381, 1613, 1637, 2089, 2131, 2311, 2957, 3623, 3833, 4253, 4271, 4423, 4673, 5939, 7717, 8167, 9133, 9533, 9539, 9679, 11059, 11743, 11969, 14759, 15859, 15971, 16139, 17431, 17713, 17761, 19309, 19373, 20747, 20983, 23741, 25261, 25933 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

REFERENCES

H. Dubner, Recursive Prime Generating Sequences, Journal of Recreational Mathematics, 29(3) 170-175 1998 Baywood NY.

LINKS

Robert G. Wilson v, Table of n, a(n) for n = 1..350

FORMULA

2*3*5*7*...*a(n) +1 is prime. a(n) is prime. a(n) > a(n-1) with a(n) being the smallest possible prime.

MATHEMATICA

k = 1; cp = 2; ct = 1; n[ct] = 2; While[ct < 64, k++; p = Prime[k]; cp1 = cp*p; If[PrimeQ[cp1 + 1], cp = cp1; ct++; n[ct] = p]]; Table[n[k], {k, 1, ct}] (Lei Zhou)

f[s_List] := Block[{p = Times @@ s, q = NextPrime@ s[[-1]]}, While[ !PrimeQ[p*q + 1], q = NextPrime@ q]; Append[s, q]]; Nest[f, {2}, 63] (* Robert G. Wilson v, Jul 20 2017 *)

CROSSREFS

For the primes so generated see A087864.

Cf. A083771.

Sequence in context: A214197 A083771 A158069 * A115617 A003064 A057429

Adjacent sequences:  A039723 A039724 A039725 * A039727 A039728 A039729

KEYWORD

nonn

AUTHOR

Harvey Dubner (harvey(AT)dubner.com)

EXTENSIONS

Corrected and extended by Ray Chandler, Nov 06 2003

Further terms from Lei Zhou, Dec 08 2005

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified February 24 05:48 EST 2018. Contains 299597 sequences. (Running on oeis4.)