cp's OEIS Frontend

A114605 Sum of first n digits of e to digit-wise power of first n digits of Pi.

%I A114605 #16 Feb 16 2025 08:32:59
%S A114605 8,15,16,24,56,134217784,134217785,134479929,134479961,134480473,
%T A114605 134481497,134872122,522292611,522292611,522554755,522554880,
%U A114605 522554884,522554911,522945536,522945617
%N A114605 Sum of first n digits of e to digit-wise power of first n digits of Pi.
%H A114605 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PiDigits.html">Pi Digits</a>.
%H A114605 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/e.html">e</a>.
%F A114605 a(n) = Sum_{i=1..n} A001113(i)^A000796(i).
%e A114605 Since e = 2.71828182845904523536028747135266249775724709369995957496696762772407663...
%e A114605 and Pi =
%e A114605 3.1415926535897932384626433832795028841971693993751058209749445923078164062...
%e A114605 a(1) = 8 = 2^3.
%e A114605 a(2) = 15 = 2^3 + 7^1.
%e A114605 a(3) = 16 = 2^3 + 7^1 + 1^4.
%e A114605 a(4) = 24 = 2^3 + 7^1 + 1^4 + 8^1.
%e A114605 a(5) = 56 = 2^3 + 7^1 + 1^4 + 8^1 + 2^5.
%e A114605 a(6) = 134217784 = 2^3 + 7^1 + 1^4 + 8^1 + 2^5 + 8^9.
%t A114605 Module[{nn=20,pi,ee},pi=RealDigits[Pi,10,nn][[1]];ee=RealDigits[E, 10, nn] [[1]]; Table[Total[Take[ee,n]^Take[pi,n]],{n,nn}]] (* _Harvey P. Dale_, Jan 13 2017 *)
%Y A114605 Cf. A000796, A001113, A039661.
%K A114605 base,easy,nonn
%O A114605 1,1
%A A114605 _Jonathan Vos Post_, Feb 17 2006