OFFSET
1,2
COMMENTS
The k-th Fibonacci number is a term for all even k, since its negaFibonacci representation is 1 followed by (k-1) zeros.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
4 is a term since the negaFibonacci representation of -4 is 1010 whose sum of digits is 1 + 0 + 1 + 0 = 2 which is a divisor of 4.
MATHEMATICA
ind[n_] := Floor[Log[Abs[n]*Sqrt[5] + 1/2]/Log[GoldenRatio]];
f[1] = 1; f[n_] := If[n > 0, i = ind[n - 1]; If[EvenQ[i], i++]; i, i = ind[-n]; If[OddQ[i], i++]; i];
negaFibTermsNum[n_] := Module[{k = n, s = 0}, While[k != 0, i = f[k]; s += 1; k -= Fibonacci[-i]]; s];
Select[Range[200], Divisible[#, negaFibTermsNum[-#]] &]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Jan 08 2020
STATUS
approved