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
PROG
(PARI) list(lim) = {my(prv = 3, dprv = 1, d); forprime(p = 5, lim, d = p - prv; if(d == 2, print1(dprv, ", ")); prv = p; dprv = d); } \\ Amiram Eldar, Feb 08 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, May 26 2003
STATUS
approved