OFFSET
0,3
LINKS
Peter Kagey, Table of n, a(n) for n = 0..10000
StackExchange user "orlp", Fibonacci products.
EXAMPLE
a(33) = 21*8*3*1 because 33 = 21+8+3+1.
MAPLE
A273156 := proc(n)
local nred, a, f ;
if n = 0 then
0;
else
nred := n ;
a := 1 ;
while nred > 1 do
f := A087172(nred) ;
a := a*f ;
nred := nred-f ;
end do:
a ;
end if;
end proc: # R. J. Mathar, May 17 2016
MATHEMATICA
t = Fibonacci /@ Range@ 21; {0}~Join~Table[Times @@ If[MemberQ[t, n], {n}, Most@ MapAt[# + 1 &, Abs@ Differences@ FixedPointList[# - First@ Reverse@ TakeWhile[t, Function[k, # >= k]] &, n], -1]], {n, 58}] (* Michael De Vlieger, May 17 2016 *)
a[0]=0; a[n_]:=Block[{m=n, p=1, f, k=0}, While[Fibonacci@ ++k <= n]; While[ m>1, f= Fibonacci@ --k; If[ f<=m, m-=f; p*=f]]; p]; Array[a, 80, 0] (* Giovanni Resta, May 17 2016 *)
PROG
(Haskell)
a273156 = product . a035516_row
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Peter Kagey, May 16 2016
STATUS
approved