|
|
A251626
|
|
Denominator of fraction equal to the continued fraction [2,7,1,8,2,...] (first n digits of e).
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
Module[{nn=30, pd}, pd=RealDigits[E, 10, nn][[1]]; Table[Denominator[ FromContinuedFraction[Take[pd, n]]], {n, nn}]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
frac,nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|