OFFSET
1,4
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..10000
FORMULA
Given a(1) = 1, perform the operation n * a(n) and append to the right of current subset; each operation doubles the number of terms.
a(2^k+m) = m*a(m), 1 <= m < 2^k, k=0,1,2,3,... - R. J. Mathar, Aug 17 2006
MAPLE
A120405 := proc(n) local l, bas ; if n = 1 then RETURN(1) ; else bas := floor( log[2](n-1) ) ; l := n-2^bas ; RETURN(l*A120405(l)) ; fi ; end; for n from 1 to 200 do printf("%d, ", A120405(n)) ; od ; # R. J. Mathar, Aug 17 2006
MATHEMATICA
Nest[Join[#, # Range[Length[#]]]&, {1, 1}, 6] (* Harvey P. Dale, Nov 23 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Gary W. Adamson, Jul 03 2006
EXTENSIONS
More terms from R. J. Mathar, Aug 17 2006
STATUS
approved