OFFSET
1,1
COMMENTS
2293=(1+19+19^3)/3,..
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
f[n_]:=(1+n+n^3)/3; lst={}; Do[p=Prime[n]; If[PrimeQ[f[p]], AppendTo[lst, f[p]]], {n, 7!}]; lst
Select[(1+#+#^3)/3&/@Prime[Range[400]], PrimeQ] (* Harvey P. Dale, Apr 09 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 29 2009
STATUS
approved