OFFSET
1,1
COMMENTS
Members of A014574 which can be written as a sum of 4 consecutive members.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
102 is in the sequence because it can be written as 12 + 18 + 30 + 42.
150 is in the sequence because it is 18 + 30 + 42 + 60.
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]; d=PrimeNextTwinAverage[c]; a=a+b+c+d; If[PrimeQ[a-1]&&PrimeQ[a+1], AppendTo[lst, a]]], {n, 2*8!}]; lst
With[{tpms=Mean/@Select[Partition[Prime[Range[10000]], 2, 1], #[[2]]- #[[1]] ==2&]}, Total/@Select[Partition[tpms, 4, 1], MemberQ[tpms, Total[#]]&]] (* Harvey P. Dale, Apr 27 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 30 2009
STATUS
approved