A033597 (nextprime(n)+prevprime(n))/2.

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, 27, 30, 33, 34, 34, 34, 34, 34, 36, 39, 39, 39, 40, 42, 44, 45, 45, 45, 48, 50, 50, 50, 50, 50, 53, 56, 56, 56, 56, 56, 57, 60

Offset

4,1

Links

Table of n, a(n) for n=4..60.

Formula

2*a(n) = A151800(n) + A151799(n). - R. J. Mathar, Feb 06 2017

Mathematica

Table[(NextPrime[n]+NextPrime[n, -1])/2, {n, 4, 60}] (* Harvey P. Dale, Aug 29 2022 *)

Crossrefs

Sequence in context: A105737 A335186 A257816 * A336379 A088720 A134848

Adjacent sequences: A033594 A033595 A033596 * A033598 A033599 A033600

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved