A138089 Numbers n such that n^0+(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 is a prime.

2, 13, 42, 46, 57, 102, 104, 111, 167, 171, 182, 189, 191, 207, 244, 268, 298, 312, 322, 349, 366, 368, 371, 442, 466, 477, 508, 517, 553, 661, 674, 686, 728, 737, 748, 776, 829, 886, 921, 938, 946, 1053, 1109, 1117, 1134, 1152, 1171, 1172, 1186, 1197, 1211

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

a={}; Do[If[PrimeQ[n^0+(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], AppendTo[a, n]], {n, 10^2*8}]; a
Transpose[Select[Partition[Range[800], 13, 1], PrimeQ[Total[#^Range[ 0, 12]]]&]] [[1]] (* Harvey P. Dale, Jul 10 2013 *)

Crossrefs

Sequence in context: A157185 A219054 A154354 * A296197 A026594 A240173

Adjacent sequences: A138086 A138087 A138088 * A138090 A138091 A138092

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, May 06 2008

Extensions

More terms from and first Mathematica program corrected by Harvey P. Dale, Jul 10 2013

Status

approved