%I #6 Oct 15 2013 22:32:14
%S 5,191,8831183,559832762721564181,
%T 3655022053493602810873312808337814473758207442937
%N Primes generated by linear recursion: f[x]=p[n].f[x-1]+2, f[1]=1.
%t f[x_] := Prime[x]*f[x-1]+2; f[1]=1; Do[s=f[n]; If[PrimeQ[s], Print[n]], {n, 1, 1000}]
%Y Cf. A000668, A076481, A086122, A086123.
%K nonn
%O 1,1
%A _Labos Elemer_, Jul 23 2003
|