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

Author

Vladimir Joseph Stephan Orlovsky, May 06 2008

Keywords

• nonn

Links

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

Programs

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 *)

Extensions

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