OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..1618
MATHEMATICA
a={}; Do[If[PrimeQ[n^70+(n+1)^1+(n+2)^2+(n+3)^3+(n+4)^4+(n+5)^5+(n+6)^6+(n+7)^7+(n+8)^8+(n+9)^9+(n+10)^10+(n+11)^11+(n+12)^12+(n+13)^13], AppendTo[a, n]], {n, 10^3*3}]; a
Select[Range[3000], PrimeQ[Total[Range[#, #+13]^Range[0, 13]]]&] (* Harvey P. Dale, Apr 25 2018 *)
PROG
(Python)
from sympy import isprime
A138091_list, m = [], [6227020800, 44068147200, 181142438400, 564307430400, 1475073815040, 3408641107200, 7182564530400, 14081919023520, 26048741640120, 45924510262992, 77755456075656, 127171611204708, 201851662963039, 312086923782438]
for n in range(1, 2*10**5+1):
....for i in range(13):
........m[i+1]+= m[i]
....if isprime(m[-1]):
........A138091_list.append(n) # Chai Wah Wu, Nov 06 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 06 2008
STATUS
approved