RosettaCodeData/Task/Sylvesters-sequence/Maxima/sylvesters-sequence.maxima

7 lines
147 B
Plaintext

sylvester[n]:= if n=0 then sylvester[n]:2 else sylvester[n-1]^2-sylvester[n-1]+1$
/* Test cases */
makelist(sylvester[i],i,0,9);
apply("+",1/%);