The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A176603

Smallest prime p of three consecutive primes (p,q,r) with p + q + r equal to a lower twin prime.
(history; published version)

#21 by Susanna Cuyler at Tue Dec 24 08:27:12 EST 2019

STATUS

reviewed

approved

#20 by Hugo Pfoertner at Tue Dec 24 07:14:20 EST 2019

STATUS

proposed

reviewed

#19 by Michel Marcus at Tue Dec 24 05:42:17 EST 2019

STATUS

editing

proposed

#18 by Michel Marcus at Tue Dec 24 05:42:10 EST 2019

PROG

(PARI) my(ppp=2, pp=3); forprime(p=5, 6600, my(psum=ppp+pp+p); if(isprime(psum)&&isprime(psum+2), print1(ppp, ", ")); ppp=pp; pp=p) \\ Hugo Pfoertner, Dec 24 2019

EXTENSIONS

keyword:base removed, and sequence extended - _by _R. J. Mathar_, Apr 23 2010

STATUS

proposed

editing

Discussion

Tue Dec 24

05:42

Michel Marcus: some blanks

#17 by Hugo Pfoertner at Tue Dec 24 04:15:17 EST 2019

STATUS

editing

proposed

#16 by Hugo Pfoertner at Tue Dec 24 04:14:42 EST 2019

PROG

(PARI) my(ppp=2, pp=3); forprime(p=5, 6600, my(psum=ppp+pp+p); if(isprime(psum)&&isprime(psum+2), print1(ppp, ", ")); ppp=pp; pp=p) \\ Hugo Pfoertner, Dec 24 2019

STATUS

proposed

editing

#15 by Michel Marcus at Tue Dec 24 03:35:48 EST 2019

STATUS

editing

proposed

#14 by Michel Marcus at Tue Dec 24 03:35:46 EST 2019

REFERENCES

Theo Kempermann, Zahlentheoretische Kostproben, Harri Deutsch, 2. aktualisierte Auflage 2005.

Edmund Landau, Handbuch der Lehre von der Verteilung der Primzahlen, Band I, B. G. Teubner, Leipzig u. Berlin, 1909.

STATUS

proposed

editing

#13 by Amiram Eldar at Tue Dec 24 03:22:04 EST 2019

STATUS

editing

proposed

#12 by Amiram Eldar at Tue Dec 24 03:05:10 EST 2019

MATHEMATICA

Prime /@ Position[Plus @@@ Partition[ Prime[ Range[1000]], 3, 1] , _?(PrimeQ[#]&&PrimeQ[#+2] &)]//Flatten (* Amiram Eldar, Dec 24 2019 *)