login
Decimal expansion of Sum_{n>=0} A346838(n) / n!.
1

%I #9 Aug 17 2021 09:27:15

%S 2,9,3,4,0,7,9,9,3,0,2,6,0,2,3,3,8,7,4,0,4,7,7,8,4,3,3,9,4,0,2,9,0,0,

%T 2,0,3,8,3,1,4,5,8,8,2,7,1,2,4,8,9,2,6,0,4,5,1,2,1,1,6,7,2,1,5,9,9,5,

%U 4,0,1,4,1,0,9,8,6,9,4,1,6,3,6,6,7,4,1,4,4,8

%N Decimal expansion of Sum_{n>=0} A346838(n) / n!.

%F Equals sec(1) - tan(1) = A073448 - A049471. - _Amiram Eldar_, Aug 17 2021

%e 0.29340799302602338740477843394029002038314588271248926...

%p A := n -> I*(polylog(-n, -I) - exp(I*Pi*n)*polylog(-n, I)) / exp(I*Pi*n/2):

%p Digits := 120; sum(A(n)/n!, n = 0..infinity): evalf(%)*10^91:

%p ListTools:-Reverse(convert(floor(%), base, 10));

%t RealDigits[Sec[1] - Tan[1], 10 , 100][[1]] (* _Amiram Eldar_, Aug 17 2021 *)

%Y Cf. A049471, A073448, A346838.

%K nonn,cons

%O 0,1

%A _Peter Luschny_, Aug 13 2021