A163421 Primes of the form ((p-1)/2)^3+((p+1)/2), p are prime numbers.
3, 11, 31, 131, 223, 521, 739, 3391, 5851, 9283, 24419, 27031, 59359, 68963, 85229, 110641, 148931, 157519, 175673, 328579, 405299, 571871, 857471, 1561013, 1728121, 2248223, 2460511, 3112283, 3581731, 3724031, 4741801, 5735519
Offset: 1
Links
- J. Mulder, Table of n, a(n) for n = 1..10000
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
Comment from Charles R Greathouse IV, Aug 11 2009
Comments