login
A135709
Not the sum of three distinct nonzero Fibonacci numbers.
5
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
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.
Sequence in context: A338121 A278342 A276522 * A263043 A028980 A183108
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Mar 05 2008
STATUS
approved