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
Examples
((5+1)/2)^3 + ((5-1)/2) = 27 + 2 = 29; ((7+1)/2)^3 + ((7-1)/2) = 64 + 3 = 67.
Links
- G. C. Greubel, Table of n, a(n) for n = 1..1500
Programs
-
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
Extensions
Checked by Charles R Greathouse IV, Aug 11 2009