This site is supported by donations to The OEIS Foundation.

"Email this user" was broken Aug 14 to 9am Aug 16. If you sent someone a message in this period, please send it again.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A153116 Primes p such that p^2 +- 12 are also primes. 10

%I

%S 5,7,13,19,29,41,61,97,113,139,191,379,383,401,491,719,953,1051,1367,

%T 1553,1609,1657,1667,1801,1933,2129,2207,2351,2473,3001,3023,3061,

%U 3449,3571,3863,3943,3967,4073,4219,5167,5209,5683,5783,6257,6329,6827,7187

%N Primes p such that p^2 +- 12 are also primes.

%H Vincenzo Librandi, <a href="/A153116/b153116.txt">Table of n, a(n) for n = 1..1000</a>

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

%t Select[Prime[Range[7000]], PrimeQ[#^2 - 12] && PrimeQ[#^2 + 12]&] (* _Vincenzo Librandi_, Apr 09 2013 *)

%t 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 *)

%o (MAGMA) [p: p in PrimesUpTo(7500) | IsPrime(p^2-12) and IsPrime(p^2+12)]; // _Vincenzo Librandi_, Apr 09 2013

%K nonn,easy

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Dec 18 2008

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.

Last modified August 17 23:58 EDT 2017. Contains 290682 sequences.