A072003 10's complement of final digit of n-th prime.

8, 7, 5, 3, 9, 7, 3, 1, 7, 1, 9, 3, 9, 7, 3, 7, 1, 9, 3, 9, 7, 1, 7, 1, 3, 9, 7, 3, 1, 7, 3, 9, 3, 1, 1, 9, 3, 7, 3, 7, 1, 9, 9, 7, 3, 1, 9, 7, 3, 1, 7, 1, 9, 9, 3, 7, 1, 9, 3, 9, 7, 7, 3, 9, 7, 3, 9, 3, 3, 1, 7, 1, 3, 7, 1, 7, 1, 3, 9, 1, 1, 9, 9, 7, 1, 7, 1, 3, 9, 7, 3, 1, 3, 9, 1, 7, 1, 9, 7, 9, 3, 3, 7, 1, 9

Offset

1,1

Links

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

Formula

a(n) = 10 - (prime(n) mod 10).

A007652(n) + a(n) = 10.

Mathematica

a[n_] := 10-Mod[Prime[n], 10];
Table[ a[n], {n, 1, 105}]

Crossrefs

Cf. A007652.

Sequence in context: A200017 A316728 A231098 * A160668 A086033 A246504

Adjacent sequences: A072000 A072001 A072002 * A072004 A072005 A072006

Keyword

nonn,base

Author

Roger L. Bagula, Jun 18 2002

Extensions

Edited by N. J. A. Sloane and Robert G. Wilson v, Jun 20 2002

Status

approved