1,1
a[ n_+1 ] := First[ Flatten[ FactorInteger[ 1+Product[ a[ j ], {j, 1, n} ] ] ] ]
Cf. A000945, A000946, A005265, A005266.
Adjacent sequences: A051311 A051312 A051313 this_sequence A051315 A051316 A051317
Sequence in context: A040839 A107810 A040840 this_sequence A040827 A040826 A040828
nonn
Labos E. (labos(AT)ana.sote.hu)
Search completed in 0.002 seconds