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