A144986 Denominators of an Egyptian fraction for 1/Sqrt[7]=0.377964473...

3, 23, 868, 1242123, 2776290405248, 11161696107523243223922840, 261638153821481209775970282548980739821715625184617, 189055393361766552088064316219614698328133697744770641431804048878604165927723712902309210241320415402

Offset: 1

Author

Artur Jasinski, Oct 07 2008

Keywords

• frac
• nonn

Crossrefs

A069139, A006487, A006526, A006525, A006524, A001466, A110820, A117116, A118323, A118324, A118325, A144835, A132480-A132574, A069261, A144984-A145003

Programs

Mathematica

a = {}; k = N[1/Sqrt[7], 1000]; Do[s = Ceiling[1/k]; AppendTo[a, s]; k = k - 1/s, {n, 1, 10}]; a (*Artur Jasinski*)