RosettaCodeData/Task/Leonardo-numbers/Mathematica/leonardo-numbers.math
2023-07-01 13:44:08 -04:00

6 lines
153 B
Text

L[0,L0_:1,___]:=L0
L[1,L0_:1,L1_:1,___]:=L1
L[n_,L0_:1,L1_:1,add_:1]:=L[n-1,L0,L1,add]+L[n-2,L0,L1,add]+add
L/@(Range[25]-1)
L[#,0,1,0]&/@(Range[25]-1)