The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A245304

Numbers m such that m+1, m+3, m+7, m+9 and m+13 are all primes.
(history; published version)

#21 by Charles R Greathouse IV at Thu Sep 08 08:46:08 EDT 2022

PROG

(MAGMAMagma) [n: n in [0..10^6] | IsPrime(n+1) and IsPrime(n+3) and IsPrime(n+7) and IsPrime(n+9) and IsPrime(n+13)]; // Vincenzo Librandi, Jun 15 2015

Discussion

Thu Sep 08

08:46

OEIS Server: https://oeis.org/edit/global/2944

#20 by Bruno Berselli at Mon Jun 15 04:08:57 EDT 2015

STATUS

proposed

approved

#19 by Michel Marcus at Mon Jun 15 01:45:18 EDT 2015

STATUS

editing

proposed

#18 by Michel Marcus at Mon Jun 15 01:45:14 EDT 2015

REFERENCES

W. Sierpiński, W. 250 Problems in Elementary Number Theory. New York: American Elsevier, 1970. Problem #82, variant.

STATUS

proposed

editing

#17 by Vincenzo Librandi at Mon Jun 15 01:11:44 EDT 2015

STATUS

editing

proposed

#16 by Vincenzo Librandi at Mon Jun 15 01:11:13 EDT 2015

PROG

(MAGMA) [n: n in [0..10^6] | IsPrime(n+1) and IsPrime(n+3) and IsPrime(n+7) and IsPrime(n+9) and IsPrime(n+13)]; // Vincenzo Librandi, Jun 15 2015

STATUS

proposed

editing

#15 by Jon E. Schoenfield at Mon Jun 15 00:46:06 EDT 2015

STATUS

editing

proposed

#14 by Jon E. Schoenfield at Mon Jun 15 00:46:04 EDT 2015

REFERENCES

Sierpinski, Sierpiński, W. 250 Problems in Elementary Number Theory. New York: American Elsevier, 1970. Problem #82, variant.

STATUS

approved

editing

#13 by Harvey P. Dale at Thu May 07 18:07:26 EDT 2015

STATUS

editing

approved

#12 by Harvey P. Dale at Thu May 07 18:07:14 EDT 2015

MATHEMATICA

Select[Range[10^6], AllTrue[#+{1, 3, 7, 9, 13}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, May 07 2015 *)

STATUS

approved

editing