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

%I #17 Jan 28 2022 05:27:07

%S 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,

%T 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,

%U 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

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

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

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

%t a[n_] := 10-Mod[Prime[n], 10];

%t Table[ a[n], {n, 1, 105}]

%Y Cf. A007652.

%K nonn,base

%O 1,1

%A _Roger L. Bagula_, Jun 18 2002

%E Edited by _N. J. A. Sloane_ and _Robert G. Wilson v_, Jun 20 2002