Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #8 Apr 02 2020 06:54:05
%S 1,2,66,70,18084,19180,24934,26715,5346390,8197798,8424178,9088863,
%T 1874967204,1988601580,2585182054,2769837915
%N Numbers whose divisors can be partitioned into two disjoint sets whose sums are consecutive Fibonacci numbers.
%C Since the sum of divisors of each term is also a Fibonacci number, this sequence is a subsequence of A272412.
%F 66 is a term since its divisors {1, 2, 3, 6, 11, 22, 33, 66} can be partitioned into the two disjoint sets, {2, 3, 6, 11, 33} and {1, 22, 66}, whose sums, 55 and 89, are 2 consecutive Fibonacci numbers.
%t fibs = Fibonacci @ Range[2, 40]; seqQ[n_] := MemberQ[fibs, DivisorSigma[1, n]] && Module[{d = Divisors[n], s}, s = Round[Plus @@ d/GoldenRatio]; c = CoefficientList[Product[1 + x^i, {i, d}], x]; c[[1 + s]] > 0]; Select[Range[10^5], seqQ]
%Y Cf. A000045, A000203, A083207, A272412.
%K nonn,more
%O 1,2
%A _Amiram Eldar_, Apr 01 2020
%E a(13)-a(16) from _Giovanni Resta_, Apr 02 2020