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

Author

Roger L. Bagula, Jun 18 2002

Keywords

• nonn
• base

Crossrefs

Cf. A007652.

Programs

Mathematica

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

Formula

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

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

Extensions

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