OFFSET

1,1

COMMENTS

Interprimes are in A024675, even interprimes are in A072568, odd interprimes are in A072569 n^2 as interprimes are in A075190, n^3 as interprimes are in A075191, n^4 as interprimes are in A075192, n^5 as interprimes are in A075228, n^7 as interprimes are in A075230, n^8 as interprimes are in A075231, n^9 as interprimes are in A075232, n^10 as interprimes are in A075233, a(n) such that a(n)^n = smallest interprime (of the form a^n) are in A075234.

LINKS

Amiram Eldar, Table of n, a(n) for n = 1..10000

EXAMPLE

2 is a term because 2^6 = 64 is the average of two successive primes 63 and 67.

MAPLE

s := 6: for n from 2 to 1000 do if prevprime(n^s)+nextprime(n^s)=2*n^s then print(n) else; fi; od;

MATHEMATICA

Select[Range[1500], 2#^6 == NextPrime[#^6, -1] + NextPrime[#^6] &]

CROSSREFS

KEYWORD

nonn

AUTHOR

Zak Seidov, Sep 09 2002

EXTENSIONS

Edited by Robert G. Wilson v Sep 14 2002

STATUS

approved