OFFSET
1,1
EXAMPLE
MATHEMATICA
a[x_]:=First[Flatten [FactorInteger[Apply[Times, Table[a[j], {j, 1, x-1}]]+1]]]; ta=Table[0, {168}]; a[1]=1; Do[{a[1]=Prime[j], el=6}; Print[a[el]; ta[[j]]=a[el]; j++ ], {j, 1, 168}]; ta
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, May 06 2004
STATUS
approved