Return to Answer

Golfed 2 bytes

Source Link

edited Apr 4, 2021 at 21:07

Haskell, 57⁵⁷ 55 bytes

sum<$>iterate f[2](!1)[2]
f(x:y)=f y++!n=y!(1+length y<$[1n+1)++(n<$[1..x])
f e=ee!_=e

The whole Levine sequence.

sum<$>iterate f[2]
f(x:y)=f y++(1+length y<$[1..x])
f e=e

The whole Levine sequence.

sum<$>iterate(!1)[2]
(x:y)!n=y!(n+1)++(n<$[1..x])
e!_=e

The whole Levine sequence.

Source Link

created Apr 4, 2021 at 15:56

sum<$>iterate f[2]
f(x:y)=f y++(1+length y<$[1..x])
f e=e

The whole Levine sequence.