login
A230426
a(n)=0 if n is in the infinite trunk of factorial beanstalk (in A219666), otherwise the number of terminal nodes (leaves) in that finite branch of the beanstalk.
3
0, 0, 0, 1, 1, 0, 2, 0, 1, 1, 0, 3, 0, 1, 1, 2, 2, 0, 1, 1, 1, 1, 1, 0, 2, 0, 1, 1, 0, 3, 0, 1, 1, 2, 4, 0, 1, 1, 2, 2, 0, 1, 1, 1, 1, 1, 0, 3, 0, 1, 1, 2, 0, 3, 1, 1, 3, 0, 2, 1, 1, 2, 3, 0, 1, 1, 1, 1, 1, 2, 0, 3, 1, 1, 0, 6, 2, 1, 1, 0, 4, 2, 1, 1, 2, 0, 3
OFFSET
0,7
COMMENTS
This sequence relates to the factorial base representation (A007623) in the same way as A213726 relates to the binary system.
LINKS
FORMULA
If A230412(n)=0, a(n)=1; otherwise, if n is in A219666, a(n)=0; otherwise a(n) = a(A230423(n)) + a(A230424(n)).
EXAMPLE
From 11 sprouts the following finite side-tree of "factorial beanstalk":
18 19
\ /
14 15
\ /
11
Its leaves are the numbers 14, 18 and 19 (which all occur in A219658), whose factorial base representations (see A007623) are '210', '300' and '301' respectively. The corresponding parent nodes are obtained by subtracting the sum of factorial base digits, thus we get 18-3 = 15 and also 19-4 = 15, thus 15 ('211' in factorial base) is the parent of 18 and 19. For 14 and 15 we get 14-3 = 15-4 = 11, thus 11 is the parent of both 14 and 15, and the common ancestor of all numbers 11, 14, 15, 18 and 19.
For numbers not occurring in A219666 this sequence gives the number of leaves in such subtrees. Thus a(11)=3, a(14)=1 (counting just the leaf 14 itself), a(15)=2 and a(18) = a(19) = 1.
PROG
(Scheme with memoization-macro definec from Antti Karttunen's IntSeq-library)
(definec (A230426 n) (cond ((zero? (A230412 n)) 1) ((inA219666? n) 0) (else (+ (A230426 (A230423 n)) (A230426 (A230424 n))))))
(define (inA219666? n) (or (zero? n) (= 1 (- (A230418 (1+ n)) (A230418n)))))
CROSSREFS
A219658 gives the position of ones in this sequence (which are the leaves of the tree).
Differs from A230425 for the first time at n=34, where a(n)=4, while A230425(34)=3. Cf. also A230427.
Sequence in context: A293293 A228783 A230425 * A337048 A318051 A301569
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 10 2013
STATUS
approved