login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A064687 100n+1, 100n+3, 100n+7, 100n+9 are all primes. 9
1, 130, 253, 1222, 1657, 2437, 2476, 3589, 5188, 5395, 6073, 9763, 10063, 10225, 10687, 11176, 11677, 13297, 13399, 13522, 13588, 14008, 14470, 14614, 16168, 16276, 16531, 16591, 20164, 20620, 21418, 21445, 21775, 23734, 25351, 27049 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Harry J. Smith, Table of n, a(n) for n=1,...,1000

MATHEMATICA

Select[Range[30000], PrimeQ[100# + 1] && PrimeQ[100# + 3] && PrimeQ[100# + 7] && PrimeQ[100# + 9] &]

Select[Range[30000], AllTrue[100#+{1, 3, 7, 9}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Sep 28 2015 *)

PROG

(PARI) for(n=1, 100000, if(isprime(100*n+1) && isprime(100*n+3) && isprime(100*n+7) && isprime(100*n+9), print1(n, ", ")))

(PARI) { n=0; for (m=1, 10^9, if(isprime(100*m + 1) && isprime(100*m + 3) && isprime(100*m + 7) && isprime(100*m + 9), write("b064687.txt", n++, " ", m); if (n==1000, break)) ) } [From Harry J. Smith, Sep 22 2009]

CROSSREFS

Sequence in context: A138482 A138481 A167702 * A238194 A252263 A252361

Adjacent sequences:  A064684 A064685 A064686 * A064688 A064689 A064690

KEYWORD

nonn

AUTHOR

Jason Earls (zevi_35711(AT)yahoo.com), Oct 10 2001

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified March 27 16:36 EDT 2017. Contains 284177 sequences.