OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
a(4) = 59 because 13 + 17 + 29 = 59.
MATHEMATICA
Select[p = Prime@ Range@ 108; p[[#]] + p[[#+1]] + p[[#+4]] & /@ Range@ 104, PrimeQ@# &] (* Robert G. Wilson v, Mar 01 2007 *)
Select[Table[(Prime[n]+Prime[n+1]+Prime[n+4]), {n, 700}], PrimeQ[#]&] (* Vincenzo Librandi, Jul 17 2012 *)
Select[#[[1]]+#[[2]]+#[[5]]&/@Partition[Prime[Range[200]], 5, 1], PrimeQ] (* Harvey P. Dale, Jul 27 2017 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Giovanni Teofilatto, Sep 08 2004
EXTENSIONS
Corrected and extended by Robert G. Wilson v, Mar 01 2007
Typos in first Mma program corrected by Giovanni Resta, Jun 12 2016
STATUS
approved