login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Last prime minus distance to last prime.
0

%I #15 Jun 30 2021 12:44:58

%S 1,2,1,4,3,6,5,4,3,10,9,12,11,10,9,16,15,18,17,16,15,22,21,20,19,18,

%T 17,28,27,30,29,28,27,26,25,36,35,34,33,40,39,42,41,40,39,46,45,44,43,

%U 42,41,52,51,50,49,48,47,58,57,60,59,58,57,56,55,66,65,64

%N Last prime minus distance to last prime.

%F a(n) = p - (n-p) = 2*p - n where p is the largest prime < n.

%F a(n) = A151799(n) - A049711(n).

%F a(n) = A175856(n-1) - 1.

%t a[n_] := 2 * NextPrime[n, -1] - n; Array[a, 100, 3] (* _Amiram Eldar_, Jun 21 2021 *)

%Y Cf. A049711, A151799, A175856.

%K nonn

%O 3,2

%A _Brian Beard_, Jun 21 2021

%E More terms from _Jon E. Schoenfield_, Jun 21 2021