OFFSET
1,3
COMMENTS
See A368366 for the definition of the AGM transform.
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..195
MATHEMATICA
A369394[n_] := With[{p = Prime[Range[n]]}, Total[p]^n - n^n*Apply[Times, p]];
Array[A369394, 15] (* Paolo Xausa, Jan 29 2024 *)
PROG
(PARI) a369394(n) = {my(v=primes(n)); vecsum(v)^n - n^n*vecprod(v)};
(Python)
from sympy import prime, primorial
def A369394(n): return sum(prime(i) for i in range(1, n+1))**n-n**n*primorial(n) # Chai Wah Wu, Jan 25 2024
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Hugo Pfoertner, Jan 24 2024
STATUS
approved