OFFSET
1,1
COMMENTS
23^3-19^3+1=5309,...
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 09 2010
STATUS
approved