1,1

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

Cf. A000668, A076481, A086122, A086123.

Sequence in context: A096543 A138733 A015102 this_sequence A100760 A093154 A068793

Adjacent sequences: A086121 A086122 A086123 this_sequence A086125 A086126 A086127

nonn

Labos E. (labos(AT)ana.sote.hu), Jul 23 2003