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