A144989 Denominators of an Egyptian fraction for 1/Sqrt[11] = 0.301511344577763622646812...
4, 20, 662, 1297759, 1844432493162, 5639188476912002976180302, 82026153762914421289030509892448816950653744800250, 41282640425840814517611601419413673319625465033274597914250689256152252919560334025322141823942800904
Offset: 1
Crossrefs
Programs
-
Mathematica
a = {}; k = N[1/Sqrt[11], 1000]; Do[s = Ceiling[1/k]; AppendTo[a, s]; k = k - 1/s, {n, 1, 10}]; a (*Artur Jasinski*)