1,1
a[ n_+1 ] := First[ Flatten[ FactorInteger[ 1+Product[ a[ j ], {j, 1, n} ] ] ] ]
Cf. A000945, A000946, A005265, A005266.
Sequence in context: A038778 A116107 A114787 this_sequence A078681 A143294 A143428
Adjacent sequences: A051317 A051318 A051319 this_sequence A051321 A051322 A051323
easy,nonn
Labos E. (labos(AT)ana.sote.hu)
Search completed in 0.002 seconds