%I #15 Jul 27 2017 13:58:00

%S 29,37,47,59,67,79,103,131,151,167,193,233,263,293,307,317,337,347,

%T 359,379,419,433,467,499,557,571,613,743,761,797,823,977,997,1021,

%U 1063,1091,1109,1129,1163,1181,1279,1373,1487,1511,1553,1601,1627,1657,1697,1733

%N Primes of the form prime(n) + prime(n+1) + prime(n+4).

%H Vincenzo Librandi, <a href="/A097997/b097997.txt">Table of n, a(n) for n = 1..1000</a>

%e a(4) = 59 because 13 + 17 + 29 = 59.

%t Select[p = Prime@ Range@ 108; p[[#]] + p[[#+1]] + p[[#+4]] & /@ Range@ 104, PrimeQ@# &] (* _Robert G. Wilson v_, Mar 01 2007 *)

%t Select[Table[(Prime[n]+Prime[n+1]+Prime[n+4]),{n,700}],PrimeQ[#]&] (* _Vincenzo Librandi_, Jul 17 2012 *)

%t Select[#[[1]]+#[[2]]+#[[5]]&/@Partition[Prime[Range[200]],5,1],PrimeQ] (* _Harvey P. Dale_, Jul 27 2017 *)

%K nonn,easy

%O 1,1

%A _Giovanni Teofilatto_, Sep 08 2004

%E Corrected and extended by _Robert G. Wilson v_, Mar 01 2007

%E Typos in first Mma program corrected by _Giovanni Resta_, Jun 12 2016