|
%I #2 Mar 31 2012 10:22:10
%S 5,55,27723,1084714750,2579620657453546201,
%T 120904392155429552198250382953194665437,
%U 29567118984689950525496948880094499522270777838300280083816338513462653571335
%N Denominators of an Egyptian fraction for 1/Sqrt[21] = 0.21821789...
%t a = {}; k = N[1/Sqrt[21], 1000]; Do[s = Ceiling[1/k]; AppendTo[a, s]; k = k - 1/s, {n, 1, 10}]; a (*Artur Jasinski*)
%Y A069139, A006487, A006526, A006525, A006524, A001466, A110820, A117116, A118323, A118324, A118325, A144835, A132480-A132574, A069261, A144984-A145003
%K frac,nonn
%O 1,1
%A _Artur Jasinski_, Sep 28 2008
|
