OFFSET
1,1
MATHEMATICA
Prime[Table[Min[Flatten[Position[Table[Prime[Prime[n]+1]- Prime[Prime[n]], {n, 1, 10000}], 2*j]]], {j, 1, 100}]]
PROG
(PARI) {m=42; for(n=1, m, k=1; while((prime(prime(k)+1)-prime(prime(k)))!=2*n, k++); print1(prime(k), ", "))} - Klaus Brockhaus, Jun 27 2004
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jun 23 2004
EXTENSIONS
a(31) - a(42) from Klaus Brockhaus, Jun 27 2004
STATUS
approved