%I #16 Jul 02 2023 21:18:28
%S 1,5,7,7,1,6,3,3,7,0,3,4,3,2,2,1,3,4,9,8,6,1,0,8,9,3,4,5,9,6,8,8,0,8,
%T 6,0,4,8,0,1,2,0,8,6,1,4,2,9,0,5,4,3,0,3,4,9,0,8,9,3,4,5,0,2,0,0,0,9,
%U 8,8,5,3,1,2,2,8,7,6
%N Decimal expansion of the number whose continued fraction expansion is A000001.
%H Charles R Greathouse IV, <a href="/A173930/b173930.txt">Table of n, a(n) for n = 1..2500</a> (first 400 terms from Muniru A Asiru)
%e 1.577163370... = 1/(1+1/(1+1/(1+1/(2+... +1/(A000001(i)+...
%p Digits := 80 ; read("transforms3") ;
%p L := BFILETOLIST("b000001.txt") ; for n from 80 to 200 do x := numtheory[nthconver](L,n) ; x := evalf(x) ; print(x) ; end do : # _R. J. Mathar_, Mar 05 2010
%t FiniteGroupCount[Range[80]] // FromContinuedFraction // N[#, 80]& // RealDigits // First (* _Jean-François Alcover_, Apr 06 2020 *)
%Y Cf. A000001.
%K nonn,cons
%O 1,2
%A Schmieding-Forland (Kerranti(AT)gmail.com), Mar 02 2010
%E Keyword:cons added, more digits appended by _R. J. Mathar_, Mar 05 2010