login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A369394
AGM transform of the primes.
4
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
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
KEYWORD
nonn,easy
AUTHOR
Hugo Pfoertner, Jan 24 2024
STATUS
approved