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

 

Logo


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.

License Agreements, Terms of Use, Privacy Policy. .

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