OFFSET
0,4
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..16384
FORMULA
a(2^n) = 1 for n >= 0.
MAPLE
b:= proc(n, i) option remember; `if`(n<2, n, (h->
`if`(p=0, b(h, i), i*b(h, i)+b(h+1, i)))(iquo(n, 2, 'p')))
end:
a:= n-> b(n$2):
seq(a(n), n=0..55);
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Alois P. Heinz, Mar 17 2021
STATUS
approved