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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A153116 Primes p such that p^2 +- 12 are also primes. 11
 5, 7, 13, 19, 29, 41, 61, 97, 113, 139, 191, 379, 383, 401, 491, 719, 953, 1051, 1367, 1553, 1609, 1657, 1667, 1801, 1933, 2129, 2207, 2351, 2473, 3001, 3023, 3061, 3449, 3571, 3863, 3943, 3967, 4073, 4219, 5167, 5209, 5683, 5783, 6257, 6329, 6827, 7187 (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-12]&&PrimeQ[n^2+12]; lst={}; Do[If[fQ@Prime[n], AppendTo[lst, Prime[n]]], {n, 7!}]; lst Select[Prime[Range[7000]], PrimeQ[#^2 - 12] && PrimeQ[#^2 + 12]&] (* Vincenzo Librandi, Apr 09 2013 *) Select[Prime[Range[1000]], AllTrue[#^2+{12, -12}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jul 22 2014 *) PROG (MAGMA) [p: p in PrimesUpTo(7500) | IsPrime(p^2-12) and IsPrime(p^2+12)]; // Vincenzo Librandi, Apr 09 2013 CROSSREFS Sequence in context: A164567 A191046 A045443 * A227420 A099349 A167464 Adjacent sequences:  A153113 A153114 A153115 * A153117 A153118 A153119 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.

Last modified February 24 22:57 EST 2020. Contains 332216 sequences. (Running on oeis4.)