login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A179252 Numbers that have 12 terms in their Zeckendorf representation. 11

%I #21 Aug 31 2023 03:16:07

%S 75024,103681,114627,118808,120405,121015,121248,121337,121371,121384,

%T 121389,121391,121392,150049,160995,165176,166773,167383,167616,

%U 167705,167739,167752,167757,167759,167760,178706,182887,184484,185094,185327,185416,185450,185463

%N Numbers that have 12 terms in their Zeckendorf representation.

%H Reinhard Zumkeller, <a href="/A179252/b179252.txt">Table of n, a(n) for n = 1..10000</a>

%e 75024 = 1 + 3 + 8 + 21 + 55 + 144 + 377 + 987 + 2584 + 6765 + 17711 + 46368;

%e 103681 = 1 + 3 + 8 + 21 + 55 + 144 + 377 + 987 + 2584 + 6765 + 17711 + 75025.

%p 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;

%t 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 *)

%Y Cf. A000045, A035517, A007895, A179242, A179243, A179244, A179245, A179246, A179247, A179248, A179249, A179250, A179251, A179253.

%K nonn

%O 1,1

%A _Emeric Deutsch_, Jul 05 2010

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 12:59 EDT 2024. Contains 371254 sequences. (Running on oeis4.)