login
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
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
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
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from and first Mathematica program corrected by Harvey P. Dale, Jul 10 2013
STATUS
approved