A086124 Primes generated by linear recursion: f[x]=p[n].f[x-1]+2, f[1]=1.

5, 191, 8831183, 559832762721564181, 3655022053493602810873312808337814473758207442937

Offset

1,1

Links

Table of n, a(n) for n=1..5.

Mathematica

f[x_] := Prime[x]*f[x-1]+2; f[1]=1; Do[s=f[n]; If[PrimeQ[s], Print[n]], {n, 1, 1000}]

Crossrefs

Cf. A000668, A076481, A086122, A086123.

Sequence in context: A222363 A316330 A015102 * A211505 A198485 A177192

Adjacent sequences: A086121 A086122 A086123 * A086125 A086126 A086127

Keyword

nonn

Author

Labos Elemer, Jul 23 2003

Status

approved