cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A129701 Difference between successive primes cubed: a(n) = prime(n+1)^3 - prime(n)^3.

This page as a plain text file.
%I A129701 #20 Sep 08 2022 08:45:30
%S A129701 19,98,218,988,866,2716,1946,5308,12222,5402,20862,18268,10586,24316,
%T A129701 45054,56502,21602,73782,57148,31106,104022,78748,133182,207704,
%U A129701 117628,62426,132316,69986,147868,605486,199708,323262,114266,622330,135002
%N A129701 Difference between successive primes cubed: a(n) = prime(n+1)^3 - prime(n)^3.
%H A129701 Harvey P. Dale, <a href="/A129701/b129701.txt">Table of n, a(n) for n = 1..1000</a>
%F A129701 a(n) = A030078(n+1) - A030078(n). - _Michel Marcus_, Sep 04 2013
%e A129701 a(3) because the fourth prime is 7, cubed 343, the third prime is 5, cubed 125, 343-125=218.
%p A129701 last:=8;for i from 3 to 30 do > while isprime(i)=false do > i:=i + 1; > end do; > r:= i^3 - last; > last:=i^3; > end do;
%t A129701 Table[Prime[n+1]^3 - Prime[n]^3, {n, 1, 40}] (* _Stefan Steinerberger_, Jun 05 2007 *)
%t A129701 Last[#]-First[#]&/@(Partition[Prime[Range[40]],2,1]^3) (* _Harvey P. Dale_, Oct 13 2012 *)
%o A129701 (PARI) {a(n) = prime(n+1)^3 - prime(n)^3}; \\ _G. C. Greubel_, May 19 2019
%o A129701 (Magma) [NthPrime(n+1)^3 - NthPrime(n)^3: n in [1..40]]; // _G. C. Greubel_, May 19 2019
%o A129701 (Sage) [nth_prime(n+1)^3 - nth_prime(n)^3 for n in (1..40)] # _G. C. Greubel_, May 19 2019
%Y A129701 Cf. A030078 (cubes of primes).
%K A129701 nonn
%O A129701 1,1
%A A129701 _Ben Paul Thurston_, Jun 01 2007
%E A129701 More terms from _Stefan Steinerberger_, Jun 05 2007