A133525 Sum of third powers of four consecutive primes.

503, 1826, 3996, 8784, 15300, 26136, 48328, 73206, 117000, 173754, 228872, 302904, 401128, 537586, 685060, 882000, 1091034, 1274672, 1540730, 1811754, 2158812, 2682468, 3219730, 3740670, 4260744, 4643100, 5055696, 6011352, 7034400

Offset: 1

Author

Artur Jasinski, Sep 14 2007

Keywords

• nonn

Examples

			a(1)=503 because 2^3+3^3+5^3+7^3=503.
		

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A034963, A133524, A133526, A133527, A133528.

Programs

Maple

N:= 50: # for a(1)..a(N)
P3:= [0,seq(ithprime(i)^3,i=1..N+3)]:
S:= ListTools:-PartialSums(P3):
seq(S[i+4]-S[i],i=1..N); # Robert Israel, Jan 01 2024

Mathematica

a = 3; Table[Prime[n]^a + Prime[n + 1]^a + Prime[n + 2]^a + Prime[n + 3]^a, {n, 1, 100}]
Total/@Partition[Prime[Range[40]]^3,4,1] (* Harvey P. Dale, Jan 06 2019 *)

Formula

a(n) = A133530(n) + A030078(n+3). - Michel Marcus, Nov 08 2013