A133533 Sum of sixth powers of three consecutive primes.
16418, 134003, 1904835, 6716019, 30735939, 76010259, 219219339, 789905091, 1630362891, 4048053411, 8203334331, 13637193699, 21850682619, 39264939507, 75124110099, 115865269131, 184159290171, 270079040451, 369892892379
Offset: 1
Keywords
Examples
a(1)=16418 because 2^6+3^6+5^6=16418.
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Maple
L:= [seq(ithprime(i)^6,i=1..100)]: L[1..-3]+L[2..-2]+L[3..-1]; # Robert Israel, Jun 28 2018
-
Mathematica
a = 6; Table[Prime[n]^a + Prime[n + 1]^a + Prime[n + 2]^a, {n, 1, 100}] Total/@(Partition[Prime[Range[25]],3,1]^6) (* Harvey P. Dale, Mar 29 2011 *)