login
A097997
Primes of the form prime(n) + prime(n+1) + prime(n+4).
1
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
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
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