The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A097997 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A097997

Primes of the form prime(n) + prime(n+1) + prime(n+4).
(history; published version)

#15 by Harvey P. Dale at Thu Jul 27 13:58:00 EDT 2017

STATUS

editing

approved

#14 by Harvey P. Dale at Thu Jul 27 13:57:57 EDT 2017

MATHEMATICA

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

STATUS

approved

editing

#13 by Wesley Ivan Hurt at Sun Jun 12 21:19:16 EDT 2016

STATUS

editing

approved

#12 by Wesley Ivan Hurt at Sun Jun 12 21:19:08 EDT 2016

MATHEMATICA

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

STATUS

reviewed

editing

#11 by Michel Marcus at Sun Jun 12 17:12:52 EDT 2016

STATUS

proposed

reviewed

#10 by Giovanni Resta at Sun Jun 12 15:59:59 EDT 2016

STATUS

editing

proposed

#9 by Giovanni Resta at Sun Jun 12 15:59:26 EDT 2016

MATHEMATICA

Select[p = Prime(AT) @ Range(AT) @ 108; p[[ # ]] + p[[ # + 1]] + p[[ # + 4]] & /(AT) @ Range(AT) @ 104, PrimeQ(AT)@# &] - Robert G. Wilson v, Mar 01 2007

EXTENSIONS

Typos in first Mma program corrected by Giovanni Resta, Jun 12 2016

STATUS

approved

editing

Discussion

Sun Jun 12

15:59

Giovanni Resta: Replace the errorenous "(AT)" with @, in first Mma program.

#8 by Bruno Berselli at Wed Jul 18 04:42:22 EDT 2012

STATUS

proposed

approved

#7 by Vincenzo Librandi at Tue Jul 17 13:29:18 EDT 2012

STATUS

editing

proposed

#6 by Vincenzo Librandi at Tue Jul 17 13:29:12 EDT 2012

LINKS

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

MATHEMATICA

Select[Table[(Prime[n]+Prime[n+1]+Prime[n+4]), {n, 700}], PrimeQ[#]&] (* Vincenzo Librandi, Jul 17 2012 *)

KEYWORD

nonn,easy

STATUS

approved

editing