|
%I #32 Dec 07 2014 18:08:58
%S 1,7,8,71,150,1271,1421,12639,26699,226231,931623,4884346,44890737,
%T 4884346,64428121,327024951,718478023,2482459020,13130773123,
%U 41874778389,264379443457,41874778389,348129000235,2826906780269,20136476462118,83372812628741
%N Denominator of fraction equal to the continued fraction [2,7,1,8,2,...] (first n digits of e).
%H Harvey P. Dale, <a href="/A251626/b251626.txt">Table of n, a(n) for n = 1..1000</a>
%t Module[{nn=30,pd},pd=RealDigits[E,10,nn][[1]];Table[Denominator[ FromContinuedFraction[Take[pd,n]]],{n,nn}]]
%Y Cf. A036253, A036254, A249944.
%K frac,nonn,base
%O 1,2
%A _Harvey P. Dale_, Dec 07 2014
|
