A369394 AGM transform of the primes.

0, 1, 190, 29761, 9991618, 3349024561, 1787557230622, 1073002497284641, 913569251212186570, 1211439486817121619201, 1701996355944048723430570, 3350440495714062711027347281, 7769260076569386601943106748798, 18992268581018658446853739996365841, 54445901270324824915088660223022735282

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

Cf. A368366.

Sequence in context: A229903 A221386 A217225 * A207211 A207205 A206731

Adjacent sequences: A369391 A369392 A369393 * A369395 A369396 A369397

Keyword

nonn,easy

Author

Hugo Pfoertner, Jan 24 2024

Status

approved