|
%I #11 Sep 08 2019 14:39:29
%S 1,2,3,4,5,7,33,46,51,53,54,67,72,74,75,80,82,83,85,86,87,88,101,106,
%T 108,109,114,116,117,119,120,121,122,127,129,130,132,133,134,135,137,
%U 138,139,140,141,142,143,156,161,163,164,169,171,172,174,175,176,177,182,184,185
%N Not the sum of three distinct nonzero Fibonacci numbers.
%H R. J. Mathar, <a href="/A135709/b135709.txt">Table of n, a(n) for n = 1..1000</a>
%H Colm Mulcahy, <a href="http://www.maa.org/community/maa-columns/past-columns-card-colm/additional-certainties">Additional Certainties</a>, MAA, Feb 2008
%p # needs isA135558 from A135558
%p A135709 := proc(n)
%p option remember;
%p local a;
%p if n = 1 then
%p 1;
%p else
%p for a from procname(n-1)+1 do
%p if not isA135558(a) then
%p return a;
%p end if;
%p end do:
%p end if;
%p end proc: # _R. J. Mathar_, Sep 09 2015
%t With[{f=15},Complement[Range[Fibonacci[f]],Total/@Subsets[Fibonacci[ Range[ 2,f]],{3}]]] (* _Harvey P. Dale_, Sep 08 2019 *)
%Y Complement of A135558.
%Y Cf. A179244, A111458.
%K nonn
%O 1,2
%A _N. J. A. Sloane_, Mar 05 2008
|
