cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A369394 AGM transform of the primes.

This page as a plain text file.
%I A369394 #16 Jan 31 2024 13:09:23
%S A369394 0,1,190,29761,9991618,3349024561,1787557230622,1073002497284641,
%T A369394 913569251212186570,1211439486817121619201,1701996355944048723430570,
%U A369394 3350440495714062711027347281,7769260076569386601943106748798,18992268581018658446853739996365841,54445901270324824915088660223022735282
%N A369394 AGM transform of the primes.
%C A369394 See A368366 for the definition of the AGM transform.
%H A369394 Paolo Xausa, <a href="/A369394/b369394.txt">Table of n, a(n) for n = 1..195</a>
%t A369394 A369394[n_] := With[{p = Prime[Range[n]]}, Total[p]^n - n^n*Apply[Times, p]];
%t A369394 Array[A369394, 15] (* _Paolo Xausa_, Jan 29 2024 *)
%o A369394 (PARI) a369394(n) = {my(v=primes(n)); vecsum(v)^n - n^n*vecprod(v)};
%o A369394 (Python)
%o A369394 from sympy import prime, primorial
%o A369394 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
%Y A369394 Cf. A368366.
%K A369394 nonn,easy
%O A369394 1,3
%A A369394 _Hugo Pfoertner_, Jan 24 2024