OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
((5+1)/2)^3+((5-1)/2)^2=27+4=31, ((7+1)/2)^3+((7-1)/2)^2=64+9=73,..
MATHEMATICA
f[n_]:=((p+1)/2)^3+((p-1)/2)^2; lst={}; Do[p=Prime[n]; If[PrimeQ[f[p]], AppendTo[lst, p]], {n, 6!}]; lst
Select[Prime[Range[200]], PrimeQ[((# + 1) / 2)^3 + ((# - 1) / 2)^2]&] (* Vincenzo Librandi, Apr 15 2013 *)
PROG
(Magma) [p: p in PrimesUpTo(1100) | IsPrime(((p+1)div 2)^3+((p-1)div 2)^2)]; // Vincenzo Librandi, Apr 15 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 27 2009
STATUS
approved