|
Search: id:A101741
|
|
| |
|
| 4, 7, 11, 15, 18, 22, 25, 29, 33, 36, 40, 44, 47, 51, 54, 58, 62, 65, 69, 72, 76, 80, 83, 87, 91, 94, 98, 101, 105, 109, 112, 116, 120, 123, 127, 130, 134, 138, 141, 145, 148, 152, 156, 159, 163, 167, 170, 174, 177, 181, 185, 188, 192, 195, 199, 203, 206, 210, 214
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MAPLE
|
with(combinat) : A014417 := proc(n) local a, i, nredu, j; i := 1 ; while fibonacci(i) <= n do i := i+1 ; od ; nredu := n ; a := [seq(0, j=1..i-1)] ; while i >= 2 do if fibonacci(i) <= nredu then nredu := nredu-fibonacci(i) ; a := subsop(i=1, a) ; fi ; i := i-1 ; od ; RETURN(a) ; end: A101646 := proc(n, k) local a, nZeck, kZeck, i, j ; a := 0 ; nZeck := A014417(n) ; kZeck := A014417(k) ; for i from 2 to nops(nZeck) do for j from 2 to nops(kZeck) do a := a+op(i, nZeck)*op(j, kZeck)*fibonacci(i+j-2) ; od: od: RETURN(a) ; end: A101741 := proc(n) A101646(4, n) ; end: seq(A101741(n), n=1..80) ; - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Aug 07 2007
|
|
CROSSREFS
|
Cf. A101646.
Adjacent sequences: A101738 A101739 A101740 this_sequence A101742 A101743 A101744
Sequence in context: A087070 A003670 A084390 this_sequence A056548 A065981 A130252
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
David Applegate (david(AT)research.att.com) and njas, Jan 27 2005
|
|
EXTENSIONS
|
More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Aug 07 2007
|
|
|
Search completed in 0.002 seconds
|
