OFFSET
1,1
LINKS
MATHEMATICA
Transpose[Select[Partition[Prime[Range[250000]], 2, 1], Last[#] - First[#] == 90&]][[1]] (* Harvey P. Dale, Jul 31 2012 *)
PROG
(PARI) p=0; g=90; for(c=1, 100, while(g+p!=p=nextprime(p+1), ); print1(", "p-g)) \\
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Jan 18 2012
STATUS
approved