OFFSET
1,1
COMMENTS
5^3+3^3-1=151,...
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, 7!}], PrimeQ[ # ]&]
Select[Total[#]-1&/@Partition[Prime[Range[150]]^3, 2, 1], PrimeQ] (* Harvey P. Dale, Nov 06 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 09 2010
STATUS
approved