|
Search: id:A132929
|
|
|
| A132929 |
|
Averages of Twin Primes if : Sum of Lower, Average and Upper part of Twin Primes are Averages of the other Twin Primes. |
|
+0
1
|
|
| 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; listen)
|
|
|
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 this_sequence A154668 A053489 A012898
Adjacent sequences: A132926 A132927 A132928 this_sequence A132930 A132931 A132932
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 26 2008
|
|
|
Search completed in 0.002 seconds
|
