RosettaCodeData/Task/Sylvesters-sequence/Mathematica/sylvesters-sequence.math

3 lines
70 B
Plaintext

Rest[Nest[Append[#, (Times @@ #) + 1] &, {1}, 10]]
N[Total[1/%], 250]