|
%I #6 Jul 10 2013 17:58:40
%S 2,13,42,46,57,102,104,111,167,171,182,189,191,207,244,268,298,312,
%T 322,349,366,368,371,442,466,477,508,517,553,661,674,686,728,737,748,
%U 776,829,886,921,938,946,1053,1109,1117,1134,1152,1171,1172,1186,1197,1211
%N 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.
%H Harvey P. Dale, <a href="/A138089/b138089.txt">Table of n, a(n) for n = 1..1000</a>
%t 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
%t Transpose[Select[Partition[Range[800],13,1],PrimeQ[Total[#^Range[ 0, 12]]]&]] [[1]] (* _Harvey P. Dale_, Jul 10 2013 *)
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, May 06 2008
%E More terms from and first Mathematica program corrected by _Harvey P. Dale_, Jul 10 2013
|
