OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = A000010(prime(n)^3). - R. J. Mathar, Oct 15 2017
Sum_{n>=1} 1/a(n) = A152441. - Amiram Eldar, Nov 09 2020
From Amiram Eldar, Nov 22 2022: (Start)
Product_{n>=1} (1 + 1/a(n)) = A065483.
Product_{n>=1} (1 - 1/a(n)) = A065414. (End)
EXAMPLE
a(4) = 294 because the 4th prime number is 7, 7^2 = 49, 7-1 = 6 and 49 * 6 = 294.
MATHEMATICA
Table[Prime[n]^3-Prime[n]^2, {n, 1, 12}] (* Vladimir Joseph Stephan Orlovsky, Apr 29 2008 *)
Table[p^3-p^2, {p, Prime[Range[40]]}] (* Harvey P. Dale, Jan 15 2015 *)
PROG
(Magma)[(p^3-p^2): p in PrimesUpTo(200)]; // Vincenzo Librandi, Dec 15 2010
(PARI) forprime(p=2, 1e3, print1(p^2*(p-1)", ")) \\ Charles R Greathouse IV, Jun 16 2011
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Omar E. Pol, Nov 25 2007
STATUS
approved