A251626 Denominator of fraction equal to the continued fraction [2,7,1,8,2,...] (first n digits of e).
1, 7, 8, 71, 150, 1271, 1421, 12639, 26699, 226231, 931623, 4884346, 44890737, 4884346, 64428121, 327024951, 718478023, 2482459020, 13130773123, 41874778389, 264379443457, 41874778389, 348129000235, 2826906780269, 20136476462118, 83372812628741
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Module[{nn=30,pd},pd=RealDigits[E,10,nn][[1]];Table[Denominator[ FromContinuedFraction[Take[pd,n]]],{n,nn}]]