login
(nextprime(n)+prevprime(n))/2.
1

%I #8 Aug 29 2022 12:36:11

%S 4,5,6,8,9,9,9,10,12,14,15,15,15,16,18,20,21,21,21,24,26,26,26,26,26,

%T 27,30,33,34,34,34,34,34,36,39,39,39,40,42,44,45,45,45,48,50,50,50,50,

%U 50,53,56,56,56,56,56,57,60

%N (nextprime(n)+prevprime(n))/2.

%F 2*a(n) = A151800(n) + A151799(n). - _R. J. Mathar_, Feb 06 2017

%t Table[(NextPrime[n]+NextPrime[n,-1])/2,{n,4,60}] (* _Harvey P. Dale_, Aug 29 2022 *)

%K nonn

%O 4,1

%A _N. J. A. Sloane_.