A163426 Primes of the form ((p+1)/2)^3 + ((p-1)/2), p is prime.

29, 67, 349, 1009, 3389, 4111, 9281, 19709, 46691, 132701, 140659, 166429, 658589, 884831, 1000099, 1405039, 1520989, 1601729, 1728119, 2146817, 2460509, 2685757, 4574461, 7078079, 7880797, 10077911, 14887181, 23149409, 23393941, 27000299

Offset

1,1

Links

G. C. Greubel, Table of n, a(n) for n = 1..1500

Example

((5+1)/2)^3 + ((5-1)/2) = 27 + 2 = 29;
((7+1)/2)^3 + ((7-1)/2) = 64 + 3 = 67.

Mathematica

f[n_]:=((p+1)/2)^3+((p-1)/2); lst={}; Do[p=Prime[n]; If[PrimeQ[f[p]], AppendTo[lst, f[p]]], {n, 6!}]; lst

Crossrefs

Cf. A162652, A163418, A163419, A163420, A163421, A163422, A163424, A163425.

Sequence in context: A141875 A294615 A182332 * A344043 A165945 A226892

Adjacent sequences: A163423 A163424 A163425 * A163427 A163428 A163429

Keyword

nonn,easy

Author

Vladimir Joseph Stephan Orlovsky, Jul 27 2009

Extensions

Checked by Charles R Greathouse IV, Aug 11 2009

Status

approved