%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