|
Search: id:A160917
|
|
|
| A160917 |
|
Averages of twin prime pairs which can be represented as a sum of three consecutive of such pair averages. |
|
+0
4
|
|
| 60, 282, 348, 522, 570, 618, 1788, 2112, 4050, 4422, 5880, 6198, 8232, 9678, 10458, 11700, 12072, 12162, 12378, 14010, 16140, 17598, 17838, 21648, 22698, 33348, 36342, 39228, 41610, 43782, 44088, 46272, 48780, 51198, 53088, 56910, 58230
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Values A014574(j) of the form A014574(k)+A014574(k+1)+A014574(k+2).
|
|
EXAMPLE
|
a(1) = 60 = A014574(6) = 12+18+30 = A014574(2)+A014574(3)+A014574(4).
a(2) = 282 = A014574(18) = 72+102+108= = A014574(7)+A014574(8)+ A014574(9).
|
|
MATHEMATICA
|
PrimeNextTwinAverage[n_]:=Module[{k}, k=n+1; While[ !PrimeQ[k-1]||!PrimeQ[k+1], k++ ]; k]; lst={}; Do[If[PrimeQ[n-1]&&PrimeQ[n+1], a=n; b=PrimeNextTwinAverage[a]; c=PrimeNextTwinAverage[b]; a=a+b+c; If[PrimeQ[a-1]&&PrimeQ[a+1], AppendTo[lst, a]]], {n, 8!}]; lst
|
|
CROSSREFS
|
Cf. A160916.
Sequence in context: A134587 A100153 A059461 this_sequence A100154 A100148 A100151
Adjacent sequences: A160914 A160915 A160916 this_sequence A160918 A160919 A160920
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Vladimir Orlovsky (4vladimir(AT)gmail.com), May 30 2009
|
|
EXTENSIONS
|
Comments moved to the examples - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Sep 11 2009
|
|
|
Search completed in 0.003 seconds
|
