OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
EXAMPLE
75024 = 1 + 3 + 8 + 21 + 55 + 144 + 377 + 987 + 2584 + 6765 + 17711 + 46368;
103681 = 1 + 3 + 8 + 21 + 55 + 144 + 377 + 987 + 2584 + 6765 + 17711 + 75025.
MAPLE
with(combinat): B := proc (n) local A, ct, m, j: A := proc (n) local i: for i while fibonacci(i) <= n do n-fibonacci(i) end do end proc: ct := 0: m := n: for j while 0 < A(m) do ct := ct+1: m := A(m) end do: ct+1 end proc: Q := {}: for i from fibonacci(25)-1 to 180000 do if B(i) = 12 then Q := `union`(Q, {i}) else end if end do: Q;
MATHEMATICA
Reap[For[m = 0; k = 1, k <= 10^8, k++, If[BitAnd[k, 2 k] == 0, m++; If[DigitCount[k, 2, 1] == 12, Print[m]; Sow[m]]]]][[2, 1]] (* Jean-François Alcover, Aug 20 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Emeric Deutsch, Jul 05 2010
STATUS
approved