cp's OEIS Frontend

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

%I A072003 #17 Jan 28 2022 05:27:07
%S A072003 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 A072003 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 A072003 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 A072003 10's complement of final digit of n-th prime.
%F A072003 a(n) = 10 - (prime(n) mod 10).
%F A072003 A007652(n) + a(n) = 10.
%t A072003 a[n_] := 10-Mod[Prime[n], 10];
%t A072003 Table[ a[n], {n, 1, 105}]
%Y A072003 Cf. A007652.
%K A072003 nonn,base
%O A072003 1,1
%A A072003 _Roger L. Bagula_, Jun 18 2002
%E A072003 Edited by _N. J. A. Sloane_ and _Robert G. Wilson v_, Jun 20 2002