A135709 Not the sum of three distinct nonzero Fibonacci numbers.

1, 2, 3, 4, 5, 7, 33, 46, 51, 53, 54, 67, 72, 74, 75, 80, 82, 83, 85, 86, 87, 88, 101, 106, 108, 109, 114, 116, 117, 119, 120, 121, 122, 127, 129, 130, 132, 133, 134, 135, 137, 138, 139, 140, 141, 142, 143, 156, 161, 163, 164, 169, 171, 172, 174, 175, 176, 177, 182, 184, 185

Offset: 1

Author

N. J. A. Sloane, Mar 05 2008

Keywords

• nonn

Links

• R. J. Mathar, Table of n, a(n) for n = 1..1000
• Colm Mulcahy, Additional Certainties, MAA, Feb 2008

Crossrefs

Complement of A135558.

Cf. A179244, A111458.

Programs

Maple

# needs isA135558 from A135558
A135709 := proc(n)
    option remember;
    local a;
    if n = 1 then
        1;
    else
        for a from procname(n-1)+1 do
            if not isA135558(a) then
                return a;
            end if;
        end do:
    end if;
end proc: # R. J. Mathar, Sep 09 2015

Mathematica

With[{f=15},Complement[Range[Fibonacci[f]],Total/@Subsets[Fibonacci[ Range[ 2,f]],{3}]]] (* Harvey P. Dale, Sep 08 2019 *)