A176136 Primes p of the form prime(n+1)^3-prime(n)^3+1.
5309, 18269, 24317, 56503, 73783, 57149, 133183, 622331, 607517, 1002583, 1815731, 1161343, 1273663, 1351423, 1145789, 2008063, 1478429, 1910429, 5142131, 5326903, 5766463, 5930623, 6393943, 4538717, 14532731, 6912989
Offset: 1
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Table[Prime[n+1]^3-Prime[n]^3+1,{n,6!}],PrimeQ[ # ]&] Select[#[[2]]-#[[1]]+1&/@(Partition[Prime[Range[200]],2,1]^3),PrimeQ] (* Harvey P. Dale, Aug 21 2016 *)
Comments