OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
t = Select[Table[Prime[n] + Prime[n + 1] + Prime[n + 2], {n, 1000}], PrimeQ]; Select[Table[t[[n]] + t[[n + 1]] + t[[n + 2]], {n, Length[t] - 2}], PrimeQ]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Feb 18 2012
STATUS
approved