OFFSET
1,1
COMMENTS
Subsequence of A002383. - Charles R Greathouse IV, Aug 11 2009
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1500
EXAMPLE
((3-1)/2)^2+((3+1)/2)=1+2=3;
((5-1)/2)^2+((5+1)/2)=4+3=7;
((7-1)/2)^2+((7+1)/2)=9+4=13,..
MATHEMATICA
f[n_]:=((p-1)/2)^2+((p+1)/2); lst={}; Do[p=Prime[n]; If[PrimeQ[f[p]], AppendTo[lst, f[p]]], {n, 6!}]; lst
Select[((#-1)/2)^2+((#+1)/2)&/@Prime[Range[200]], PrimeQ] (* Harvey P. Dale, Aug 06 2012 *)
PROG
(PARI) forprime(p=3, 10^3, if(isprime(q=((p-1)/2)^2+(p+1)/2), print1(q, ", "))) \\ Derek Orr, Apr 30 2015
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 27 2009
STATUS
approved