login
A138401
a(n) = prime(n)^4 - prime(n).
4
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
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
KEYWORD
nonn,easy
AUTHOR
Artur Jasinski, Mar 19 2008
STATUS
approved