login
The OEIS is supported by the many generous donors to the OEIS 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
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
KEYWORD
nonn,easy
AUTHOR
STATUS
approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 19 04:58 EDT 2024. Contains 370952 sequences. (Running on oeis4.)