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

29, 37, 47, 59, 67, 79, 103, 131, 151, 167, 193, 233, 263, 293, 307, 317, 337, 347, 359, 379, 419, 433, 467, 499, 557, 571, 613, 743, 761, 797, 823, 977, 997, 1021, 1063, 1091, 1109, 1129, 1163, 1181, 1279, 1373, 1487, 1511, 1553, 1601, 1627, 1657, 1697, 1733

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

Sequence in context: A046502 A255204 A049746 * A177873 A234973 A134100

Adjacent sequences: A097994 A097995 A097996 * A097998 A097999 A098000

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