A074879 10 - Mod(prime(n),10) when prime(n) + 22 = prime(n+1).

1, 9, 9, 3, 1, 1, 1, 3, 3, 1, 3, 1, 3, 1, 1, 3, 1, 9, 1, 3, 1, 3, 1, 9, 1, 3, 9, 3, 9, 3, 3, 1, 9, 3, 1, 1, 3, 9, 9, 3, 3, 1, 1, 3, 9, 9, 1, 1, 3, 3, 1, 3, 3, 1, 1, 1, 9, 9, 1, 1, 9, 3, 1, 9, 1, 3, 1, 1, 9, 1, 1, 1, 3, 1, 3, 9, 9, 1, 1, 1, 1, 1, 3, 1, 1, 1, 3, 1, 9, 9, 1, 3, 9, 1, 3, 1, 9, 3, 1, 9, 9, 9, 1, 1, 1

Offset

1,2

Links

Table of n, a(n) for n=1..105.

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

Cf. A072003, A061779.

Sequence in context: A110639 A254273 A011211 * A291366 A146490 A222810

Adjacent sequences: A074876 A074877 A074878 * A074880 A074881 A074882

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