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!)
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.

License Agreements, Terms of Use, Privacy Policy. .

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