OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1100
EXAMPLE
(3-1)^3/8 + (3+1)^2/4 = 1 + 4 = 5;
(5-1)^3/8 + (5+1)^2/4 = 8 + 9 = 17;
(7-1)^3/8 + (7+1)^2/4 = 27 + 16 = 43.
MATHEMATICA
f[n_]:=((p-1)/2)^3+((p+1)/2)^2; lst={}; Do[p=Prime[n]; If[PrimeQ[f[p]], AppendTo[lst, f[p]]], {n, 7!}]; lst
Select[(#-1)^3/8+(#+1)^2/4&/@Prime[Range[150]], PrimeQ] (* Harvey P. Dale, Oct 05 2018 *)
PROG
(PARI) list(lim)=my(v=List(), t); forprime(p=3, , t=((p-1)/2)^3 + ((p+1)/2)^2; if(t>lim, break); if(isprime(t), listput(v, t))); Vec(v) \\ Charles R Greathouse IV, Dec 23 2016
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 27 2009
STATUS
approved