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

Author

Artur Jasinski, Mar 19 2008

Keywords

• nonn
• easy

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..200
• Index to sequences related to prime powers

Crossrefs

Cf. A000040, A001248, A030078, A030514.

Programs

Magma

[NthPrime((n))^4 - NthPrime(n): n in [1..50] ]; // Vincenzo Librandi, Jun 17 2011

Mathematica

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

PARI

forprime(p=2,1e3,print1(p^4-p", ")) \\ Charles R Greathouse IV, Jun 16 2011

Formula

a(n) = A030514(n) - A000040(n). - Elmo R. Oliveira, Jan 27 2023