The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A179253 Numbers k that have 13 terms in their Zeckendorf representation. 18
 196417, 271442, 300099, 311045, 315226, 316823, 317433, 317666, 317755, 317789, 317802, 317807, 317809, 317810, 392835, 421492, 432438, 436619, 438216, 438826, 439059, 439148, 439182, 439195, 439200, 439202, 439203, 467860, 478806, 482987 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS A007895(a(n)) = 13. - Reinhard Zumkeller, Mar 10 2013 LINKS Reinhard Zumkeller, Table of n, a(n) for n = 1..1000 EXAMPLE 196417 = 1 + 3 + 8 + 21 + 55 + 144 + 377 + 987 + 2584 + 6765 + 17711 + 46368 + 121393; 271442 = 1 + 3 + 8 + 21 + 55 + 144 + 377 + 987 + 2584 + 6765 + 17711 + 46368 + 196418; MAPLE with(combinat): seq(add(fibonacci(2*k), k = 1 .. 13-m)+add(fibonacci(27-2*k+2), k = 1 .. m), m = 0 .. 13); # this program yields only the first 14 terms of the sequence From R. J. Mathar, Jul 23 2010: (Start) Lzto10 := proc(L) local i ; add( op(i, L)*combinat[fibonacci](i+1), i=1..nops(L) ) ; end proc: zbits := proc(numbits, toset, upbits) local L, hibi ; if 2*toset-1 > numbits then return ; end if; if toset = 0 then L := [(seq(0, i=1..numbits)), op(upbits)] ; Lzto10(L); print(%) ; else for hibi from toset-1 to numbits -1 do if toset = 1 then procname(hibi, toset-1, [1, seq(0, i=1..numbits-hibi-1), op(upbits)]) ; else procname(hibi-1, toset-1, [0, 1, seq(0, i=1..numbits-hibi-1), op(upbits)]) ; end if; end do; end if; return ; end proc: ztot := 13 : for numbits from 2*ztot -1 to 50 do zbits(numbits-2, ztot-1, [0, 1]) ; end do: (End) PROG (Haskell) a179253 n = a179253_list !! (n-1) a179253_list = filter ((== 13) . a007895) [1..] -- Reinhard Zumkeller, Mar 10 2013 CROSSREFS Cf. A035517, A007895, A179242, A179243, A179244, A179245, A179246, A179247, A179248, A179249, A179250, A179251, A179252. Sequence in context: A234393 A234394 A202434 * A008408 A305920 A001942 Adjacent sequences:  A179250 A179251 A179252 * A179254 A179255 A179256 KEYWORD nonn AUTHOR Emeric Deutsch, Jul 05 2010 EXTENSIONS More terms from R. J. Mathar, Jul 23 2010 STATUS approved

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

Last modified June 24 18:38 EDT 2021. Contains 345419 sequences. (Running on oeis4.)