OFFSET
1,1
COMMENTS
20+21+22+24+25+26+27+28=193,..
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..2000
MATHEMATICA
f[n_, x_]:=n*x+x*(x+1)/2; Select[Table[f[Prime[n], Prime[n+2]-Prime[n]-1]-Prime[n+1], {n, 6!}], PrimeQ[ # ]&]
Select[Table[Total[Select[Range[Prime[n], Prime[n+2]], CompositeQ]], {n, 1000}], PrimeQ] (* Harvey P. Dale, May 13 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 21 2010
STATUS
approved