|
%I #23 Sep 08 2022 08:45:32
%S 2315,80312,901668,20310714,82235688,473087190,1304210412,4298697186,
%T 20654701756,44762490420,122444491244,289686151014,466572884988,
%U 778441731570,1681334260300,3663362624656,5631394320840,9203454441344,15155831763714,20142518677488
%N Sum of seventh powers of two consecutive primes.
%H Muniru A Asiru, <a href="/A133538/b133538.txt">Table of n, a(n) for n = 1..4000</a>
%F a(n) = A092759(n) + A092759(n+1). - _Michel Marcus_, Nov 09 2013
%e a(1)=2315 because 2^7 + 3^7 = 2315.
%p seq(add(ithprime(n+k)^7,k=0..1),n=1..20); # _Muniru A Asiru_, Aug 22 2018
%t e = 7; Table[Prime[n]^e + Prime[n + 1]^e, {n, 1, 100}]
%t Total/@Partition[Prime[Range[20]]^7,2,1] (* _Harvey P. Dale_, Oct 16 2014 *)
%o (PARI) a(n) = prime(n)^7 + prime(n+1)^7; \\ _Michel Marcus_, Aug 22 2018
%o (Magma) [NthPrime(n)^7 + NthPrime(n+1)^7: n in [1..25]]; // _Vincenzo Librandi_, Aug 23 2018
%Y Cf. A034963, A133524, A133525, A133526, A133527, A133528, A133529, A133530, A133531, A133532, A069484, A133534, A133535, A133536, A133537.
%K nonn
%O 1,1
%A _Artur Jasinski_, Sep 14 2007
|
