OFFSET
1,2
MATHEMATICA
10 - Mod[ Prime[ Select[ Range[5220], Prime[ # ] + 22 == Prime[ # + 1] & ]], 10]
10-Mod[#, 10]&/@Transpose[Select[Partition[Prime[Range[6000]], 2, 1], Last[#]- First[#]==22&]][[1]] (* Harvey P. Dale, Apr 12 2011 *)
PROG
(Magma) [10-(n mod 10): n in PrimesUpTo(50000) | n+22 eq NextPrime(n)]; // Bruno Berselli, Apr 12 2011
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Roger L. Bagula, Sep 30 2002
EXTENSIONS
Edited by Robert G. Wilson v and N. J. A. Sloane, Oct 03 2002
STATUS
approved