A138401 a(n) = prime(n)^4 - prime(n).

14, 78, 620, 2394, 14630, 28548, 83504, 130302, 279818, 707252, 923490, 1874124, 2825720, 3418758, 4879634, 7890428, 12117302, 13845780, 20151054, 25411610, 28398168, 38950002, 47458238, 62742152, 88529184, 104060300, 112550778

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) = A030514(n) - A000040(n). - Elmo R. Oliveira, Jan 27 2023

Mathematica

Table[p = Prime[n]; p^4 - p, {n, 50}]
#^4-#&/@Prime[Range[30]] (* Harvey P. Dale, Aug 14 2011 *)

Prog

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

Crossrefs

Cf. A000040, A001248, A030078, A030514.

Sequence in context: A364770 A370960 A231241 * A099360 A329820 A239421

Adjacent sequences: A138398 A138399 A138400 * A138402 A138403 A138404

Keyword

nonn,easy

Author

Artur Jasinski, Mar 19 2008

Status

approved