OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harvey P. Dale)
EXAMPLE
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
Module[{m=Mean/@Select[Partition[Prime[Range[10000]], 2, 1], #[[2]]-#[[1]] == 2&], t}, t=Total/@Partition[m, 3, 1]; Intersection[m, t]] (* Harvey P. Dale, Mar 06 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 30 2009
EXTENSIONS
Comments moved to the examples - R. J. Mathar, Sep 11 2009
STATUS
approved