OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
EXAMPLE
a(3) because the fourth prime is 7, cubed 343, the third prime is 5, cubed 125, 343-125=218.
MAPLE
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;
MATHEMATICA
Table[Prime[n+1]^3 - Prime[n]^3, {n, 1, 40}] (* Stefan Steinerberger, Jun 05 2007 *)
Last[#]-First[#]&/@(Partition[Prime[Range[40]], 2, 1]^3) (* Harvey P. Dale, Oct 13 2012 *)
PROG
(PARI) {a(n) = prime(n+1)^3 - prime(n)^3}; \\ G. C. Greubel, May 19 2019
(Magma) [NthPrime(n+1)^3 - NthPrime(n)^3: n in [1..40]]; // G. C. Greubel, May 19 2019
(Sage) [nth_prime(n+1)^3 - nth_prime(n)^3 for n in (1..40)] # G. C. Greubel, May 19 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Ben Paul Thurston, Jun 01 2007
EXTENSIONS
More terms from Stefan Steinerberger, Jun 05 2007
STATUS
approved