Sylvester's sequence: Difference between revisions

</pre>

=={{header|Seed7}}==

<lang seed7>$ include "seed7_05.s7i";

include "bigint.s7i";

include "bigrat.s7i";

const func bigInteger: nextSylvester (in bigInteger: prev) is

return prev * prev - prev + 1_;

const proc: main is func

local

var bigInteger: number is 2_;

var bigRational: reciprocalSum is 0_ / 1_;

var integer: n is 0;

begin

writeln("First 10 elements of Sylvester's sequence:");

for n range 1 to 10 do

writeln(number);

reciprocalSum +:= 1_ / number;

number := nextSylvester(number);

end for;

writeln("\nSum of the reciprocals of the first 10 elements:");

writeln(reciprocalSum digits 210);

end func;</lang>

{{out}}

<pre>

First 10 elements of Sylvester's sequence:

2

3

7

43

1807

3263443

10650056950807

113423713055421844361000443

12864938683278671740537145998360961546653259485195807

165506647324519964198468195444439180017513152706377497841851388766535868639572406808911988131737645185443

Sum of the reciprocals of the first 10 elements:

0.999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999963