OFFSET
1,2
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
MATHEMATICA
t = {}; s = 1; Do[s1 = Prime[n] - Prime[n - 1]; If[Equal[s1, 2], AppendTo[t, s]]; s = s1, {n, 2, 1000}]; t
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, May 26 2003
STATUS
approved