A138403 a(n) = p^3*(p-1), where p = prime(n).

8, 54, 500, 2058, 13310, 26364, 78608, 123462, 267674, 682892, 893730, 1823508, 2756840, 3339294, 4775858, 7741604, 11911982, 13618860, 19850358, 25053770, 28009224, 38457042, 46886534, 62037272, 87616608, 103030100, 111458154

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..200

Index to sequences related to prime powers.

Formula

a(n) = A000010(prime(n)^4). - R. J. Mathar, Oct 15 2017

From Amiram Eldar, Nov 22 2022: (Start)

a(n) = prime(n)^4 - prime(n)^3 = A030514(n) - A030078(n).

Product_{n>=1} (1 - 1/a(n)) = A065415. (End)

Mathematica

a = {}; Do[p = Prime[n]; AppendTo[a, p^4 - p^3], {n, 1, 50}]; a

Prog

(PARI) forprime(p=2, 1e3, print1(p^4-p^3", ")) \\ Charles R Greathouse IV, Jun 16 2011
(Magma) [NthPrime((n))^4 - NthPrime((n))^3: n in [1..40] ]; // Vincenzo Librandi, Jun 17 2011

Crossrefs

Cf. A000010, A030514, A030078, A065415.

Sequence in context: A347274 A298985 A142703 * A013499 A134825 A279854

Adjacent sequences: A138400 A138401 A138402 * A138404 A138405 A138406

Keyword

nonn,easy

Author

Artur Jasinski, Mar 19 2008

Status

approved