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!)
 A101741 4th row of A101646. 2
 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; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS 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, Aug 07 2007 MATHEMATICA T[n_, k_] := With[{phi2 = GoldenRatio^2}, n k - Floor[(k + 1)/phi2] Floor[ (n + 1)/phi2]]; a[k_] := T[4, k]; Array[a, 60] (* Jean-François Alcover, Mar 31 2020 *) CROSSREFS Cf. A101646. Sequence in context: A310735 A003670 A084390 * A247432 A310736 A310737 Adjacent sequences:  A101738 A101739 A101740 * A101742 A101743 A101744 KEYWORD nonn AUTHOR David Applegate and N. J. A. Sloane, Jan 27 2005 EXTENSIONS More terms from R. J. Mathar, Aug 07 2007 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 2 17:02 EDT 2020. Contains 334787 sequences. (Running on oeis4.)