|
| |
|
|
A132929
|
|
Averages of Twin Primes if : Sum of Lower, Average and Upper part of Twin Primes are Averages of the other Twin Primes.
|
|
0
| |
|
|
4, 6, 60, 270, 1950, 3000, 6360, 11490, 11550, 14550, 18540, 19890, 21840, 31080, 32910, 32970, 33330, 33600, 42570, 42840, 50460, 53550, 58110, 68880, 70200, 74610, 79230, 80910, 93810, 96330, 98910, 104310, 109140, 114600, 121020, 125790
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| 3+4+5=12 -> 11,13,
5+6+7=18 -> 17,19,
59+60+61=180 -> 179,181
|
|
|
MATHEMATICA
| TwinPrimeAverageQ[n_]:=If[PrimeQ[n-1]&&PrimeQ[n+1], True, False](*TwinPrimeAverageQ*) lst={}; Do[If[TwinPrimeAverageQ[n], If[TwinPrimeAverageQ[3*n], (*Print[n]; *)AppendTo[lst, n]]], {n, 9!}]; lst
|
|
|
CROSSREFS
| Sequence in context: A131847 A089630 A058162 * A154668 A189790 A053489
Adjacent sequences: A132926 A132927 A132928 * A132930 A132931 A132932
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 26 2008
|
| |
|
|
