OFFSET
2,1
LINKS
Harry J. Smith, Table of n, a(n) for n = 2..1000
EXAMPLE
a(7) = (7 + 7)/2 = 7;
a(8) = (7 + 11)/2 = 9.
MATHEMATICA
Table[Mean[{NextPrime[n-1], NextPrime[n+1, -1]}], {n, 2, 80}] (* Harvey P. Dale, Nov 22 2011 *)
PROG
(PARI) { for (n=2, 1000, write("b063932.txt", n, " ", (precprime(n) + nextprime(n))/2) ) } \\ Harry J. Smith, Sep 02 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Henry Bottomley, Aug 21 2001
STATUS
approved