|
%I #12 Jun 28 2018 21:45:12
%S 16418,134003,1904835,6716019,30735939,76010259,219219339,789905091,
%T 1630362891,4048053411,8203334331,13637193699,21850682619,39264939507,
%U 75124110099,115865269131,184159290171,270079040451,369892892379
%N Sum of sixth powers of three consecutive primes.
%H Robert Israel, <a href="/A133533/b133533.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A133537(n) + A030516(n+2). - _Michel Marcus_, Nov 09 2013
%e a(1)=16418 because 2^6+3^6+5^6=16418.
%p L:= [seq(ithprime(i)^6,i=1..100)]:
%p L[1..-3]+L[2..-2]+L[3..-1]; # _Robert Israel_, Jun 28 2018
%t a = 6; Table[Prime[n]^a + Prime[n + 1]^a + Prime[n + 2]^a, {n, 1, 100}]
%t Total/@(Partition[Prime[Range[25]],3,1]^6) (* _Harvey P. Dale_, Mar 29 2011 *)
%Y Cf. A034963, A133524, A133525, A133526, A133527, A133528, A133529, A133530, A133531, A133532.
%K nonn
%O 1,1
%A _Artur Jasinski_, Sep 14 2007
|
