OFFSET
1,2
MATHEMATICA
f[n_]:=(n+1)^1+(n+2)^2+(n+3)^3+(n+4)^4+(n+5)^5+(n+6)^6; lst={}; Do[a=f[n]; If[PrimeQ[a], AppendTo[lst, n]], {n, 0, 7!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 30 2009
EXTENSIONS
Checked by Charles R Greathouse IV, Oct 08 2009
STATUS
approved