OFFSET
1,1
LINKS
Hauke Löffler, Table of n, a(n) for n = 1..10000
MATHEMATICA
f[x_] := Prime[x+1]-Prime[x]
Table[f[w+1]*f[w], {w, 1, 128}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, May 22 2003
STATUS
approved