A036795 Integers that can be decomposed into sums of different Fibonacci numbers of even argument.

1, 2, 4, 5, 9, 10, 12, 13, 22, 23, 25, 26, 30, 31, 33, 34, 56, 57, 59, 60, 64, 65, 67, 68, 77, 78, 80, 81, 85, 86, 88, 89, 145, 146, 148, 149, 153, 154, 156, 157, 166, 167, 169, 170, 174, 175, 177, 178, 200, 201, 203, 204, 208, 209, 211, 212, 221, 222, 224, 225

Offset: 0

Author

Wouter Meeussen

Keywords

• nonn

Crossrefs

Cf. A036796.

Programs

Mathematica

FoldList[ #1+#2&, 1, Fold[ {#1, #2, #1}&, 1, 1+Table[ Fibonacci[ k ], {k, 2, 15, 2} ] ]//Flatten ]