|
MATHEMATICA
|
a = {4, 6, 12, 18, 30, 42, 60, 72, 102, 108, 138, 150} (* A014574 *); Table[ Product[a[[k]]^2 - 1, {k, 1, n}], {n, 1, 12}]
Rest[FoldList[Times, 1, Times@@@Select[Partition[Prime[Range[50]], 2, 1], #[[2]]-#[[1]]==2&]]] (* Harvey P. Dale, Jan 19 2015 *)
|