OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
EXAMPLE
a(1)=503 because 2^3+3^3+5^3+7^3=503.
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Sep 14 2007
STATUS
approved