|
|
A133538
|
|
Sum of seventh powers of two consecutive primes.
|
|
14
|
|
|
2315, 80312, 901668, 20310714, 82235688, 473087190, 1304210412, 4298697186, 20654701756, 44762490420, 122444491244, 289686151014, 466572884988, 778441731570, 1681334260300, 3663362624656, 5631394320840, 9203454441344, 15155831763714, 20142518677488
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
a(1)=2315 because 2^7 + 3^7 = 2315.
|
|
MAPLE
|
seq(add(ithprime(n+k)^7, k=0..1), n=1..20); # Muniru A Asiru, Aug 22 2018
|
|
MATHEMATICA
|
e = 7; Table[Prime[n]^e + Prime[n + 1]^e, {n, 1, 100}]
Total/@Partition[Prime[Range[20]]^7, 2, 1] (* Harvey P. Dale, Oct 16 2014 *)
|
|
PROG
|
(PARI) a(n) = prime(n)^7 + prime(n+1)^7; \\ Michel Marcus, Aug 22 2018
(Magma) [NthPrime(n)^7 + NthPrime(n+1)^7: n in [1..25]]; // Vincenzo Librandi, Aug 23 2018
|
|
CROSSREFS
|
Cf. A034963, A133524, A133525, A133526, A133527, A133528, A133529, A133530, A133531, A133532, A069484, A133534, A133535, A133536, A133537.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|