OFFSET
1,1
COMMENTS
5^3-3^3-1=97,...
MATHEMATICA
Select[Table[Prime[n+1]^3-Prime[n]^3-1, {n, 6!}], PrimeQ[ # ]&]
Select[#[[2]]-#[[1]]-1&/@Partition[Prime[Range[200]]^3, 2, 1], PrimeQ] (* Harvey P. Dale, Nov 13 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 09 2010
STATUS
approved