OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..300
MATHEMATICA
f[n_]:=(n+1)^1+(n+2)^2+(n+3)^3+(n+4)^4+(n+5)^5; lst={}; Do[a=f[n]; If[PrimeQ[a], AppendTo[lst, a]], {n, 0, 6!}]; lst (* Vladimir Joseph Stephan Orlovsky, May 30 2009 *)
PROG
(PARI) forstep(n=1, 100, 2, if(isprime(p=n^5 + 21*n^4 + 173*n^3 + 701*n^2 + 1403*n + 1114), print1(p", "))) \\ Charles R Greathouse IV, Oct 03 2013
(Magma) [a: n in [0..250] | IsPrime(a) where a is n+(n+1)^2+(n+2)^3 +(n+3)^4+(n+4)^5]; // Vincenzo Librandi, Oct 05 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
a(18)-a(23) from Vincenzo Librandi, Oct 04 2013
STATUS
approved