OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
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
Harvey P. Dale, Dec 07 2014
STATUS
approved