OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Transpose[Select[Partition[Prime[Range[500]], 101, 1], PrimeQ[Total[#]]&]] [[1]]
Prime[Select[Range[400], PrimeQ[Sum[Prime[# + i], {i, 0, 100}]] &]] (* Bruno Berselli, Aug 21 2013 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Harvey P. Dale, Jun 05 2013
STATUS
approved