login
A086124
Primes generated by linear recursion: f[x]=p[n].f[x-1]+2, f[1]=1.
1
5, 191, 8831183, 559832762721564181, 3655022053493602810873312808337814473758207442937
OFFSET
1,1
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
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 23 2003
STATUS
approved