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