%I
%S 0,0,0,1,0,0,0,0,1,2,1,1,0,1,0,1,0,1,0,0,0,1,0,0,0,0,0,1,0,0,1,1,2,3,
%T 2,2,1,2,1,2,1,2,1,1,1,2,1,1,0,0,1,2,1,1,0,0,1,2,1,1,0,1,1,2,1,2,0,0,
%U 1,2,1,1,0,1,0,1,0,1,0,1,1,2,1,2,0,1,0,1,0,1,0,1,0,1,0,1,0,0,0,1,0,0,0,0,1,2,1,1,0,1,0,1,0,1,0,0,0,1,0,0,0
%N a(n) = number of nonzero digits in factorial base representation of n that are hit by more significant digits from left; a(n) = A060502(n)  A060128(n).
%C a(n) = Number of times a nonzero digit d_i appears in position i of factorial base representation of n (where the least significant digit is in the position 1) such that there is another nonzero digit d_j in such position j > i that j  d_j = i.
%H Antti Karttunen, <a href="/A276004/b276004.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(n) = A060502(n)  A060128(n).
%F a(n) = A000120(2*A275727(n) AND A276010(n)), where AND is a bitwiseand given in A004198.
%e For n=15 ("211" in factorial base) the least significant 1 at position 1 is hit by its immediate left neighbor 1 and also by 2 at position 3, as (21) = (32) = 1, the position where the least significant 1 itself is. However, this is counted just as one hit, because this sequence gives the number of digits that are hit, instead of number digits that hit, thus a(15)=1.
%o (Scheme, two variants)
%o (define (A276004 n) ( (A060502 n) (A060128 n)))
%o (define (A276004 n) (let ((fv (list>vector (cons 0 (reverse (n>factbase n)))))) (let loop ((i 1) (c 0)) (if (>= i (vectorlength fv)) c (let ((d (vectorref fv i))) (cond ((zero? d) (loop (+ 1 i) c)) ((zero? (vectorref fv ( i d))) (loop (+ 1 i) c)) (else (begin (vectorset! fv ( i d) 0) (loop (+ 1 i) (+ 1 c))))))))))
%o (define (n>factbase n) (let loop ((n n) (fex (if (zero? n) (list 0) (list))) (i 2)) (cond ((zero? n) fex) (else (loop (floor>exact (/ n i)) (cons (modulo n i) fex) (+ 1 i))))))
%Y Cf. A000120, A004198, A060128, A060502, A275727, A276010.
%Y Cf. A276005 (indices of zeros), A276006 (of nonzeros).
%Y Differs from A276007 for the first time at n=15, where a(15)=1, while A276004(15)=2.
%K nonn,base
%O 0,10
%A _Antti Karttunen_, Aug 17 2016
