|
Search: id:A075190
|
|
|
| A075190 |
|
Numbers n such that n^2 is an interprime = average of two successive primes. |
|
+0
17
|
|
| 2, 3, 8, 9, 12, 15, 18, 21, 25, 33, 41, 51, 60, 64, 72, 78, 92, 112, 117, 129, 138, 140, 159, 165, 168, 172, 192, 195, 198, 213, 216, 218, 228, 237, 273, 295, 298, 303, 304, 309, 322, 327, 330, 338, 342, 356, 360, 366, 387, 393, 408, 416, 429, 432, 441, 447, 456
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Interprimes are in A024675, even interprimes are in A072568, odd interprimes are in A072569 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, 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
|
Zak Seidov, Table of n, a(n) for n=1..1317, a(n)<20000
|
|
FORMULA
|
a(n)=sqrt(A069495(n)) (Zak Seidov)
|
|
EXAMPLE
|
3 is a member because 3^2 = 9 is the average of two successive primes 7 and 11.
|
|
MAPLE
|
s := 2: for n from 2 to 1000 do if prevprime(n^s)+nextprime(n^s)=2*n^s then print(n) else; fi; od;
|
|
MATHEMATICA
|
PrevPrim[n_] := Block[{k = n - 1}, While[ !PrimeQ[k], k-- ]; k]; NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; Select[ Range[464], 2#^2 == PrevPrim[ #^2] + NextPrim[ #^2] &] (from Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 14 2002)
|
|
CROSSREFS
|
Cf. A024675, A072568, A072569, A075190, A075191, A075192.
Cf. A075228, A075229, A075230, A075231, A075232, A075234.
Adjacent sequences: A075187 A075188 A075189 this_sequence A075191 A075192 A075193
Sequence in context: A047360 A004825 A028821 this_sequence A047243 A099148 A029787
|
|
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.002 seconds
|
