|
|
A133525
|
|
Sum of third powers of four consecutive primes.
|
|
19
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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):
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|