OFFSET
1,1
EXAMPLE
a(1) = 2*3 = 6
a(2) = 3*5 = 15
a(3) = 7*13 = 91
a(4) = 5*13 = 65
a(5) = 11*31 = 341
MATHEMATICA
Table[ps = Select[Table[n*k + 1, {k, 100}], PrimeQ, 2]; If[Length[ps] == 2, ps[[1]]*ps[[2]], 0], {n, 100}] (* T. D. Noe, Oct 21 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Sep 03 2011
STATUS
approved