|
Search: id:A075233
|
|
|
| A075233 |
|
Numbers n such that n^10 is an interprime = average of two successive primes. |
|
+0
10
|
|
| 9, 42, 87, 105, 108, 141, 144, 166, 215, 250, 381, 387, 482, 490, 500, 645, 748, 792, 831, 860, 876, 968, 990, 1377, 1448, 1468, 1526, 1769, 1780, 1922, 1968, 2084, 2118, 2228, 2245, 2252, 2373, 2381, 2478, 2565, 2672, 2781, 2883, 2915, 2972, 2988, 3008
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
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^7 as interprimes are in A075230, n^8 as interprimes are in A075231, n^9 as interprimes are in A075232, a(n) such that a(n)^n = smallest interprime (of the form a^n) are in A075234.
|
|
EXAMPLE
|
9 is a member because 9^10 = 3486784401 is average of two successive primes 3486784393 and 3486784409.
|
|
MAPLE
|
s := 10: 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[3087], 2#^10 == PrevPrim[ #^10] + NextPrim[ #^10] &]
|
|
CROSSREFS
|
Cf. A024675, A072568, A072569, A075190-A075192, A075228-A075234.
Sequence in context: A129793 A050635 A065792 this_sequence A062783 A027441 A000971
Adjacent sequences: A075230 A075231 A075232 this_sequence A075234 A075235 A075236
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Zak Seidov (zakseidov(AT)yahoo.com), Sep 09 2002
|
|
EXTENSIONS
|
Edited by Robert G. Wilson v (rgwv(AT)rgwv.com) Sep 14 2002
|
|
|
Search completed in 0.003 seconds
|
