|
%I #12 Aug 12 2016 06:19:30
%S 0,1,2,3,1,2,4,5,6,7,5,6,2,3,4,5,3,4,1,2,3,4,2,3,8,9,10,11,9,10,12,13,
%T 14,15,13,14,10,11,12,13,11,12,9,10,11,12,10,11,4,5,6,7,5,6,8,9,10,11,
%U 9,10,6,7,8,9,7,8,5,6,7,8,6,7,2,3,4,5,3,4,6,7,8,9,7,8,4,5,6,7,5,6,3,4,5,6,4,5,1,2,3,4
%N a(0) = 0, for n >= 1, a(n) = A275736(n) + a(A257684(n)); a(n) = A048675(A275734(n)).
%C See graph: pine trees on a snowy mountain. - _N. J. A. Sloane_, Aug 12 2016
%H Antti Karttunen, <a href="/A275728/b275728.txt">Table of n, a(n) for n = 0..40320</a>
%H <a href="/index/Fa#facbase">Index entries for sequences related to factorial base representation</a>
%F a(0) = 0, for n >= 1, a(n) = A275736(n) + a(A257684(n)).
%F a(n) = A048675(A275734(n)).
%o (Scheme, with memoization-macro definec)
%o (definec (A275728 n) (if (zero? n) n (+ (A275736 n) (A275728 (A257684 n)))))
%o (define (A275728 n) (A048675 (A275734 n)))
%Y Cf. A048675, A257684, A275734, A275736.
%Y Cf. also A275727, A275808.
%K nonn,base,look
%O 0,3
%A _Antti Karttunen_, Aug 09 2016
|
