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,2

Links

R. J. Mathar, Table of n, a(n) for n = 1..1000

Colm Mulcahy, Additional Certainties, MAA, Feb 2008

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 *)

Crossrefs

Complement of A135558.

Cf. A179244, A111458.

Sequence in context: A338121 A278342 A276522 * A263043 A028980 A183108

Adjacent sequences: A135706 A135707 A135708 * A135710 A135711 A135712

Keyword

nonn

Author

N. J. A. Sloane, Mar 05 2008

Status

approved