A138409 a(n) = prime(n)^6 - prime(n)^2.

60, 720, 15600, 117600, 1771440, 4826640, 24137280, 47045520, 148035360, 594822480, 887502720, 2565725040, 4750102560, 6321361200, 10779213120, 22164358320, 42180530160, 51520370640, 90458377680, 128100278880

Offset

1,1

Links

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

Index to sequences related to prime powers

Formula

From Elmo R. Oliveira, Jan 17 2023: (Start)

a(n) = A030516(n) - A001248(n).

a(n) = 2 * A138441(n).

a(n) = A001248(n) * (A030514(n) - 1). (End)

Mathematica

a = {}; Do[p = Prime[n]; AppendTo[a, p^6 - p^2], {n, 1, 50}]; a
#^6-#^2&/@Prime[Range[20]] (* Harvey P. Dale, Jul 04 2023 *)

Prog

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

Crossrefs

Cf. A030516, A001248, A138441, A030514.

Sequence in context: A136008 A000555 A034865 * A024016 A348583 A349871

Adjacent sequences: A138406 A138407 A138408 * A138410 A138411 A138412

Keyword

nonn,easy

Author

Artur Jasinski, Mar 19 2008

Status

approved