OFFSET
1,2
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: A101711 := proc(n) A101646(n, n) ; end: seq(A101711(n), n=1..80) ; # R. J. Mathar, Aug 07 2007
MATHEMATICA
a[n_] := n^2 - Floor[(n+1)/GoldenRatio^2]^2;
CROSSREFS
KEYWORD
nonn
AUTHOR
David Applegate and N. J. A. Sloane, Jan 26 2005
EXTENSIONS
More terms from R. J. Mathar, Aug 07 2007
STATUS
approved