OEIS A244953: Ridiculous Formula

[Thomas Klemm]

In the same spirit we can use the following in Clojure:

Code:

(->> [0 3 2 1]
     cycle
     (reductions +)
     (take 50))

This leads to:

Code:

(0 3 5 6 6 9 11 12 12 15 17 18 18 21 23 24 24 27 29 30 30 33 35 36 36 39 41 42 42 45 47 48 48 51 53 54 54 57 59 60 60 63 65 66 66 69 71 72 72 75)

It takes 0.032141 msecs for 5000 on a Macbook Pro.