|
| |
|
|
A053073
|
|
Balanced primes separated from the next lower and next higher prime neighbors by 18.
|
|
3
| |
|
|
20201, 21911, 25391, 29269, 30449, 34631, 50441, 54851, 56149, 58129, 63559, 66431, 74471, 74489, 76561, 76579, 77951, 78259, 81439, 107581, 108439, 110459, 112181, 121421, 122099, 122579, 131041, 132911, 132929, 135301, 137321, 137849
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Zak Seidov, Table of n, a (n) for n = 1 .. 1000
|
|
|
EXAMPLE
| 25391 is separated from both the next lower prime and the next higher prime by 18
|
|
|
MATHEMATICA
| lst={}; Do[p=Prime[n]; If[p-Prime[n-1]==Prime[n+1]-p==6*3, AppendTo[lst, p]], {n, 2, 3*7!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), May 20 2010]
Transpose[Select[Partition[Prime[Range[20000]], 3, 1], Differences[#] == {18, 18}&]][[2]] (* From Harvey P. Dale, Oct 21 2011 *)
|
|
|
CROSSREFS
| Sequence in context: A052358 A052189 A075670 * A133527 A146961 A031825
Adjacent sequences: A053070 A053071 A053072 * A053074 A053075 A053076
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Harvey P. Dale (hpd1(AT)is2.nyu.edu), Feb 25 2000
|
| |
|
|
