login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A153119 Primes p such that p^2 +- 30 are also primes. 8
7, 13, 47, 79, 113, 251, 317, 397, 547, 719, 1013, 1153, 2113, 2141, 2179, 2267, 2309, 2749, 3271, 3557, 3631, 3739, 4243, 4783, 4919, 5399, 5563, 5881, 5927, 6389, 6701, 7229, 7351, 7547, 7691, 7741, 7817, 8191, 8269, 8779, 8807, 9067, 9133, 9277, 10067 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

MATHEMATICA

fQ[n_]:=PrimeQ[n^2-30]&&PrimeQ[n^2+30]; lst={}; Do[If[fQ@Prime[n], AppendTo[lst, Prime[n]]], {n, 7!}]; lst

Select[Prime[Range[2000]], PrimeQ[#^2 + 30] && PrimeQ[#^2 -30]&] (* Vincenzo Librandi, Apr 08 2013 *)

Select[Prime[Range[1500]], AllTrue[#^2+{30, -30}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Sep 13 2019 *)

PROG

(MAGMA) [p: p in PrimesUpTo(11000) | IsPrime(p^2+30) and IsPrime(p^2-30)]; // Vincenzo Librandi, Apr 08 2013

CROSSREFS

Cf. A153116.

Sequence in context: A146648 A219501 A267310 * A134039 A166703 A116522

Adjacent sequences:  A153116 A153117 A153118 * A153120 A153121 A153122

KEYWORD

nonn,easy

AUTHOR

Vladimir Joseph Stephan Orlovsky, Dec 18 2008

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
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 25 07:39 EST 2020. Contains 331241 sequences. (Running on oeis4.)