The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A033447

Initial prime in set of 4 consecutive primes with common difference 12.
(history; published version)

#48 by Susanna Cuyler at Tue Oct 30 20:14:17 EDT 2018

STATUS

proposed

approved

#47 by M. F. Hasler at Tue Oct 30 08:10:13 EDT 2018

STATUS

editing

proposed

#46 by M. F. Hasler at Fri Oct 26 21:59:14 EDT 2018

CROSSREFS

Analogous sequences [(start of CPAP-4 with common difference in square brackets]): A033451 [6], this sequence [12], A033448 [18], A052242 [24], A052243 [30], A058252 [36], A058323 [42], A067388 [48], A259224 [54], A210683 [60].

Also subsequence of A054800: start of a CPAP-4, any common difference.

#45 by M. F. Hasler at Fri Oct 26 21:54:05 EDT 2018

DATA

111497, 258527, 286777, 318407, 332767, 341827, 358447, 439787, 473887, 480737, 495377, 634187, 647417, 658367, 663857, 703837, 732497, 816317, 819787, 827767, 843067, 862307, 937777, 970457, 970537, 1001267, 1012147, 1032727, 1052707, 1055827, 1104307, 1117877, 1164817, 1165837

PROG

(PARI) o=A033447(n, p=2, show_all=1, g=12, c, o)=0; {forprime(q=p+1, 5e6, , if(p+12=g!=(p=q)||, next; , q=!=o+24&& c++||2*g, c=0; 2, c++>13, show_all&& print1(o-12g", "); n--||break); o=q-12g) ; o-g} \\ Increase or remove upper limit Can be used as next(p)=A033447(1, p+1) to print more terms. - _Mget the next term, e. Fg. Hasler_, Oct 26 2018:

p=0; A033447_vec=vector(30, i, p=A033447(1, p+1)) \\ M. F. Hasler, Oct 26 2018

STATUS

proposed

editing

#44 by M. F. Hasler at Fri Oct 26 19:29:00 EDT 2018

STATUS

editing

proposed

#43 by M. F. Hasler at Fri Oct 26 19:28:55 EDT 2018

COMMENTS

Minimal first difference a(n+1)-a(n) = 40, and this occurs first at a(709) = 26930767, a(11357) = 655389367 and a(23339) = 1510368877; all a(n) are == 7 mod 30. (End)

PROG

(PARI) o=p=c=0; forprime(q=1, 5e6, p+12==(p=q)||next; q==o+24&& c++||c=0; c>1&& print1(o-12", "); o=q-12) \\ Increase or remove upper limit to print more terms. - M. F. Hasler, Oct 26 2018

STATUS

approved

editing

#42 by Bruno Berselli at Tue Feb 07 10:27:56 EST 2017

STATUS

reviewed

approved

#41 by Joerg Arndt at Tue Feb 07 10:02:58 EST 2017

STATUS

proposed

reviewed

#40 by Zak Seidov at Mon Feb 06 21:10:01 EST 2017

STATUS

editing

proposed

#39 by Zak Seidov at Mon Feb 06 21:09:52 EST 2017

CROSSREFS

Analogous sequences [with common difference in square brackets]: A033451 [6], this sequence [12], A033448 [18], A052242 [24], A052243 [30], A058252 [36].

STATUS

approved

editing