A075230 Numbers k such that k^7 is an interprime = average of two successive primes.

20, 33, 41, 71, 82, 99, 151, 165, 254, 267, 283, 316, 345, 462, 486, 496, 516, 630, 657, 668, 676, 681, 687, 724, 760, 945, 1004, 1050, 1085, 1167, 1305, 1314, 1316, 1326, 1335, 1389, 1414, 1420, 1454, 1456, 1512, 1638, 1644, 1726, 1803, 1874, 1905, 1963

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^6 as interprimes are in A075229, 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

20 is a term because 20^7 = 1280000000 is the average of two successive primes 1279999997 and 1280000003.

Maple

s := 7: 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[2000], Mean[{NextPrime[#^7], NextPrime[#^7, -1]}]==#^7&] (* Harvey P. Dale, Aug 09 2013 *)

Crossrefs

Cf. A024675, A072568, A072569, A075190, A075191, A075192.

Cf. A075228, A075229, A075231, A075232, A075233, A075234.

Sequence in context: A134989 A119873 A364307 * A165236 A067468 A127906

Adjacent sequences: A075227 A075228 A075229 * A075231 A075232 A075233

Keyword

nonn

Author

Zak Seidov, Sep 09 2002

Extensions

Edited by Robert G. Wilson v Sep 14 2002

Status

approved