(MAGMAMagma) [p: p in PrimesInInterval(3, 1200) | IsPrime((p+1)^3 div 8+(p-1) div 2)]; // Vincenzo Librandi, Apr 09 2013
(MAGMAMagma) [p: p in PrimesInInterval(3, 1200) | IsPrime((p+1)^3 div 8+(p-1) div 2)]; // Vincenzo Librandi, Apr 09 2013
reviewed
approved
proposed
reviewed
editing
proposed
editing
proposed
Primes p such that (p+1)^3/8+(p-1)/2 are is also prime numbers.
proposed
editing
editing
proposed
Vincenzo Librandi, <a href="/A163427/b163427.txt">Table of n, a(n) for n = 1..1000</a>
Select[Prime[Range[100]], PrimeQ[(# + 1)^3 / 8 + (# - 1) / 2]&] (* Vincenzo Librandi, Apr 09 2013 *)
(MAGMA) [p: p in PrimesInInterval(3, 1200) | IsPrime((p+1)^3 div 8+(p-1) div 2)]; // Vincenzo Librandi, Apr 09 2013
nonn,easy
approved
editing
_Vladimir Joseph Stephan Orlovsky (4vladimir(AT)gmail.com), _, Jul 27 2009