A060502 -id:A060502 - cp's OEIS frontend

A276004 a(n) is the number of nonzero digits in the factorial-base representation of n that are matched by more significant digits from left; a(n) = A060502(n) - A060128(n).

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, 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, 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

Offset: 0

Antti Karttunen, Aug 17 2016

a(n) is the number of times a nonzero digit d_i appears in position i of the factorial-base representation of n (where the least significant digit is in position 1) such that there is another nonzero digit d_j in such position j > i that j - d_j = i.

			For n=15 ("211" in factorial base) the least significant 1 at position 1 is matched by its immediate left neighbor 1 and also by 2 at position 3, as (2-1) = (3-2) = 1, the position where the least significant 1 itself is. However, this is counted just as one match, because this sequence gives the number of digits that are matched, instead of the number of digits that match, thus a(15)=1.

Antti Karttunen, Table of n, a(n) for n = 0..40320
Index entries for sequences related to factorial base representation

Cf. A000120, A004198, A060128, A060502, A275727, A276010.
Cf. A276005 (indices of zeros), A276006 (of nonzeros).
Differs from A276007 for the first time at n=15, where a(15)=1, while A276004(15)=2.

a(n) = A060502(n) - A060128(n).

a(n) = A000120(2*A275727(n) AND A276010(n)), where AND is a bitwise-and given in A004198.

A275849 Number of unoccupied slopes in factorial base representation of n: a(n) = A084558(n) - A060502(n).

Original entry on oeis.org

0, 0, 1, 0, 1, 1, 2, 1, 1, 0, 1, 1, 2, 1, 2, 1, 1, 1, 2, 2, 1, 1, 2, 2, 3, 2, 2, 1, 2, 2, 2, 1, 1, 0, 1, 1, 2, 1, 2, 1, 1, 1, 2, 2, 1, 1, 2, 2, 3, 2, 2, 1, 2, 2, 3, 2, 2, 1, 2, 2, 2, 1, 2, 1, 1, 1, 2, 2, 1, 1, 2, 2, 3, 2, 3, 2, 2, 2, 2, 1, 2, 1, 1, 1, 3, 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 2, 2, 3, 3, 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 2, 2, 3, 3, 4

Offset: 0

Antti Karttunen, Aug 15 2016

Antti Karttunen, Table of n, a(n) for n = 0..40320
Index entries for sequences related to factorial base representation

Cf. A060501, A060502, A084558.
Cf. A007489 (the indices of zeros).
Cf. also A225901, A275850, A275851, A275853.

(define (A275849 n) (- (A084558 n) (A060502 n)))

a(n) = A084558(n) - A060502(n).
Other identities. For all n >= 0:
a(n) = A275850(A225901(n)).
a(n) = A060501(n)-1. [To be proved.]

A275956 Numbers n for which A060502(n) = A275806(n); numbers whose factorial base representation has an equal number of distinct nonzero digits and occupied slopes.

Original entry on oeis.org

0, 1, 2, 4, 6, 10, 11, 12, 13, 15, 17, 18, 20, 21, 24, 28, 29, 36, 38, 42, 43, 48, 49, 50, 53, 55, 56, 58, 59, 62, 66, 68, 69, 70, 72, 73, 75, 76, 78, 80, 82, 83, 88, 91, 92, 93, 94, 96, 98, 99, 102, 103, 108, 112, 120, 124, 125, 132, 134, 138, 139, 166, 167, 168, 174, 186, 187, 190, 191, 192, 194, 196, 197, 205, 207, 208, 209, 214, 215, 216, 217, 226

Offset: 0

Antti Karttunen, Aug 16 2016

Nonnegative integer n is included here iff the number of distinct nonzero digits elements present in its factorial base representation is equal to the number of distinct elements in a multiset [(i_x - d_x) | where d_x ranges over each (not all necessarily distinct) nonzero digit present and i_x is that digit's position from the right].

If n is included, then A153880(n), A255411(n) and A225901(n) are also included.

			11 ("121" in factorial base) is included, as there are two occupied slopes (3-1 = 2 and 2-2 = 1-1 = 0) and also two distinct nonzero digits, namely 1 and 2.
59 ("2121" in factorial base) is included, as there are two occupied slopes (4-2 = 3-1 and 2-2 = 1-1) and also two distinct nonzero digits, namely 1 and 2.
226 ("14120") is included, as there are three occupied slopes (5-1 = 4, 4-4 = 2-2 = 0, 3-1 = 2) and also three distinct nonzero digits, 1, 2 and 4.

Antti Karttunen, Table of n, a(n) for n = 0..12558
Index entries for sequences related to factorial base representation

Cf. A060502, A275806.
Cf. A153880, A255411, A225901.
Cf. A000142, A275959 (subsequences).

A276001 Numbers n for which A060502(n) <= 1; numbers with at most one distinct slope in their factorial representation.

Original entry on oeis.org

0, 1, 2, 4, 5, 6, 12, 14, 18, 19, 22, 23, 24, 48, 54, 72, 74, 84, 86, 96, 97, 100, 101, 114, 115, 118, 119, 120, 240, 264, 360, 366, 408, 414, 480, 482, 492, 494, 552, 554, 564, 566, 600, 601, 604, 605, 618, 619, 622, 623, 696, 697, 700, 701, 714, 715, 718, 719, 720, 1440, 1560, 2160, 2184, 2400, 2424, 2880, 2886, 2928, 2934, 3240, 3246, 3288, 3294

Offset: 0

Antti Karttunen, Aug 16 2016

Indexing starts from zero, because a(0)=0 is a special case in this sequence. To get those n for which A060502(n) = 1, start listing terms from a(1) = 1 onward.
From n=1 onward numbers in whose factorial base representation (A007623) the difference i_x - d_x is the same for all nonzero digits d_x present. Here i_x is the position of digit d_x from the least significant end.
From n=1 onward also n such that A060498(n) is a one-ball juggling pattern.

			4 ("20" in factorial base) is present, because all nonzero digits are on the same slope as there is only one nonzero digit.
14 ("210" in factorial base) is present, because all nonzero digits are on the same slope, as 3-2 = 2-1.
19 ("301" in factorial base) is present, because all nonzero digits are on the same slope, as 3-3 = 1-1.
21 ("311" in factorial base) is NOT present, because not all of its nonzero digits are on the same slope, as 3-3 <> 2-1.

Index entries for sequences related to factorial base representation

Cf. A007623, A060498, A060502, A276002, A276003.

Cf. A000142, A033312, A051683 (subsequences).

A276002 Numbers n for which A060502(n) = 2; numbers with exactly two occupied slopes in their factorial representation.

Original entry on oeis.org

3, 7, 8, 10, 11, 13, 15, 16, 17, 20, 21, 25, 26, 28, 29, 30, 36, 38, 42, 43, 46, 47, 49, 50, 52, 53, 55, 56, 58, 59, 60, 62, 66, 67, 70, 71, 73, 75, 76, 77, 78, 80, 85, 87, 88, 89, 90, 91, 92, 93, 94, 95, 98, 99, 102, 103, 106, 107, 108, 109, 110, 111, 112, 113, 116, 117, 121, 122, 124, 125, 126, 132, 134, 138, 139, 142, 143, 144, 168, 174, 192, 194

Offset: 1

Antti Karttunen, Aug 16 2016

Also numbers n such that A060498(n) is a two-ball juggling pattern.

Antti Karttunen, Table of n, a(n) for n = 1..14609
Index entries for sequences related to factorial base representation

Cf. A060130, A060498, A060502, A276001, A276003.

Other identities. For all n >= 1:

A060130(a(n)) >= 2.

A276003 Numbers n for which A060502(n) = 3; numbers with exactly three occupied slopes in their factorial representation.

Original entry on oeis.org

9, 27, 31, 32, 34, 35, 37, 39, 40, 41, 44, 45, 51, 57, 61, 63, 64, 65, 68, 69, 79, 81, 82, 83, 104, 105, 123, 127, 128, 130, 131, 133, 135, 136, 137, 140, 141, 145, 146, 148, 149, 150, 156, 158, 162, 163, 166, 167, 169, 170, 172, 173, 175, 176, 178, 179, 180, 182, 186, 187, 190, 191, 193, 195, 196, 197, 198, 200, 205, 207, 208, 209, 210, 211, 212

Offset: 1

Antti Karttunen, Aug 16 2016

Also numbers n such that A060498(n) is a three-ball juggling pattern.

			27 ("1011" in factorial base) is included as there are three distinct values attained by the difference digit_position - digit_value when computed for its nonzero digits: 4-1 = 3, 2-1 = 1 and 1-1 = 0.
51 ("2011" in factorial base) is included as there are three distinct values attained by the difference digit_position - digit_value when computed for its nonzero digits: 4-2 = 2, 2-1 = 1 and 1-1 = 0.
57 ("2111" in factorial base) is included as there are three distinct values attained by the difference digit_position - digit_value when computed for its nonzero digits: 4-2 = 3-1 = 2, 2-1 = 1 and 1-1 = 0.

Antti Karttunen, Table of n, a(n) for n = 1..15620
Index entries for sequences related to factorial base representation

Cf. A060130, A060498, A060502, A276001, A276002.

Other identities. For all n >= 1:

A060130(a(n)) >= 3.

A275853 a(n) = A060502(n) + A275851(n).

Original entry on oeis.org

1, 1, 2, 2, 2, 1, 3, 2, 3, 3, 3, 2, 3, 3, 2, 2, 2, 2, 3, 2, 2, 2, 2, 1, 4, 3, 3, 3, 3, 2, 4, 3, 4, 4, 4, 3, 4, 4, 3, 3, 3, 3, 4, 3, 3, 3, 3, 2, 4, 3, 4, 4, 4, 3, 3, 2, 3, 3, 3, 2, 3, 3, 3, 3, 3, 3, 3, 2, 3, 3, 3, 2, 4, 4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 3, 3, 2, 2, 2, 2, 4, 3, 3, 3, 3, 2, 3, 2, 3, 3, 3, 2, 3, 3, 2, 2, 2, 2, 3, 2, 2, 2, 2, 1, 5

Offset: 0

Antti Karttunen, Aug 15 2016

These are averages (number of balls) in siteswap-patterns constructed like in A060498, but with 0's replaced by the length of the pattern.

Antti Karttunen, Table of n, a(n) for n = 0..40320
Index entries for sequences related to factorial base representation

Cf. A060498, A060500, A060501, A060502, A275849, A275851.

(define (A275853 n) (+ (A060502 n) (A275851 n)))

a(n) = A060502(n) + A275851(n).

A225901 Write n in factorial base, then replace each nonzero digit d of radix k with k-d.

Original entry on oeis.org

0, 1, 4, 5, 2, 3, 18, 19, 22, 23, 20, 21, 12, 13, 16, 17, 14, 15, 6, 7, 10, 11, 8, 9, 96, 97, 100, 101, 98, 99, 114, 115, 118, 119, 116, 117, 108, 109, 112, 113, 110, 111, 102, 103, 106, 107, 104, 105, 72, 73, 76, 77, 74, 75, 90, 91, 94, 95, 92, 93, 84, 85, 88, 89, 86, 87, 78, 79, 82, 83, 80, 81, 48, 49, 52, 53, 50, 51, 66, 67, 70, 71, 68

Offset: 0

Paul Tek, May 20 2013

Analogous to A004488 or A048647 for the factorial base.
A self-inverse permutation of the natural numbers.
From Antti Karttunen, Aug 16-29 2016: (Start)
Consider the following way to view a factorial base representation of nonnegative integer n. For each nonzero digit d_i present in the factorial base representation of n (where i is the radix = 2.. = one more than 1-based position from the right), we place a pebble to the level (height) d_i at the corresponding column i of the triangular diagram like below, while for any zeros the corresponding columns are left empty:
.
Level
  6        o
          ─ ─
  5        . .
          ─ ─ ─
  4        . . .
          ─ ─ ─ ─
  3        . . . .
          ─ ─ ─ ─ ─
  2        . . o . .
          ─ ─ ─ ─ ─ ─
  1        . o . . o o
          ─ ─ ─ ─ ─ ─ ─
  Radix:   7 6 5 4 3 2
  Digits:  6 1 2 0 1 1 = A007623(4491)
Instead of levels, we can observe on which "slope" each pebble (nonzero digit) is located at. Formally, the slope of nonzero digit d_i with radix i is (i - d_i). Thus in above example, both the most significant digit (6) and the least significant 1 are on slope 1 (called "maximal slope", because it contains digits that are maximal allowed in those positions), while the second 1 from the right is on slope 2 ("submaximal slope").
This involution (A225901) sends each nonzero digit at level k to the slope k (and vice versa) by flipping such a diagram by the shallow diagonal axis that originates from the bottom right corner. Thus, from above diagram we obtain:
Slope (= digit's radix - digit's value)
   1
   2 .
   3 .  .╲
   4 .  .╲o╲
   5 .  .╲.╲.╲
   6 .  .╲.╲o╲.╲
     .  .╲.╲.╲.╲o╲
        o╲.╲.╲.╲.╲o╲
        -----------------
        1  5  3 0  2  1  = A007623(1397)
and indeed, a(4491) = 1397 and a(1397) = 4491.
Thus this permutation maps between polynomial encodings A275734 & A275735 and all the respective sequences obtained from them, where the former set of sequences are concerned with the "slopes" and the latter set with the "levels" of the factorial base representation. See the Crossrefs section.
Sequences A231716 and A275956 are closed with respect to this sequence, in other words, for all n, a(A231716(n)) is a term of A231716 and a(A275956(n)) is a term of A275956.
(End)

			a(1000) = a(1*6! + 2*5! + 1*4! + 2*3! + 2*2!) = (7-1)*6! + (6-2)*5! + (5-1)*4! + (4-2)*3! + (3-2)*2! = 4910.
a(1397) = a(1*6! + 5*5! + 3*4! + 0*3! + 2*2! + 1*1!) = (7-1)*6! + (6-5)*5! + (5-3)*4! + (3-2)*2! + (2-1)*1! = 4491.

Cf. A000142, A007623, A004488, A048647, A001563, A007489, A257684, A257687, A276091, A275736, A276149.
Cf. A275959 (fixed points), A231716, A275956.
Cf. A153880 & A255411.
Cf. also A275734 & A275735, A275952 & A275954.
This involution maps between the following sequences related to "levels" and "slopes" (see comments): A275806 <--> A060502, A257511 <--> A260736, A264990 <--> A275811, A275729 <--> A275728, A275948 <--> A275946, A275949 <--> A275947, A275964 <--> A275962, A059590 <--> A276091.
Related permutations: A275957, A275958, A275835, A275836, A275837, A275838, A276011, A276012.

b = MixedRadix[Reverse@ Range[2, 12]]; Table[FromDigits[Map[Boole[# > 0] &, #] (Reverse@ Range[2, Length@ # + 1] - #), b] &@ IntegerDigits[n, b], {n, 0, 82}] (* Version 10.2, or *)
f[n_] := Block[{a = {{0, n}}}, Do[AppendTo[a, {First@ #, Last@ #} &@ QuotientRemainder[a[[-1, -1]], Times @@ Range[# - i]]], {i, 0, #}] &@ NestWhile[# + 1 &, 0, Times @@ Range[# + 1] <= n &]; Most@ Rest[a][[All, 1]] /. {} -> {0}]; g[w_List] := Total[Times @@@ Transpose@ {Map[Times @@ # &, Range@ Range[0, Length@ w]], Reverse@ Append[w, 0]}]; Table[g[Map[Boole[# > 0] &, #] (Reverse@ Range[2, Length@ # + 1] - #)] &@ f@ n, {n, 0, 82}] (* Michael De Vlieger, Aug 29 2016 *)

a(n)=my(s=0,d,k=2);while(n,d=n%k;n=n\k;if(d,s=s+(k-d)*(k-1)!);k=k+1);return(s)

from sympy import factorial as f
def a(n):
    s=0
    k=2
    while(n):
        d=n%k
        n=(n//k)
        if d: s=s+(k - d)*f(k - 1)
        k+=1
    return s
print([a(n) for n in range(101)]) # Indranil Ghosh, Jun 19 2017

(define (A225901 n) (let loop ((n n) (z 0) (m 2) (f 1)) (cond ((zero? n) z) (else (loop (quotient n m) (if (zero? (modulo n m)) z (+ z (* f (- m (modulo n m))))) (+ 1 m) (* f m))))))
;; One implementing the first recurrence, with memoization-macro definec:
(definec (A225901 n) (if (zero? n) n (+ (A276091 (A275736 n)) (A153880 (A225901 (A257684 n))))))
;; Antti Karttunen, Aug 29 2016

From Antti Karttunen, Aug 29 2016: (Start)
a(0) = 0; for n >= 1, a(n) = A276091(A275736(n)) + A153880(a(A257684(n))).
or, for n >= 1, a(n) = A276149(n) + a(A257687(n)).
(End)
Other identities. For n >= 0:
a(n!) = A001563(n).
a(n!-1) = A007489(n-1).
From Antti Karttunen, Aug 16 2016: (Start)
A275734(a(n)) = A275735(n) and vice versa, A275735(a(n)) = A275734(n).
A060130(a(n)) = A060130(n). [The flip preserves the number of nonzero digits.]
A153880(n) = a(A255411(a(n))) and A255411(n) = a(A153880(a(n))). [This involution conjugates between the two fundamental factorial base shifts.]
a(n) = A257684(a(A153880(n))) = A266193(a(A255411(n))). [Follows from above.]
A276011(n) = A273662(a(A273670(n))).
A276012(n) = A273663(a(A256450(n))).
(End)

A060130 Number of nonzero digits in factorial base representation (A007623) of n; minimum number of transpositions needed to compose each permutation in the lists A060117 & A060118.

Original entry on oeis.org

0, 1, 1, 2, 1, 2, 1, 2, 2, 3, 2, 3, 1, 2, 2, 3, 2, 3, 1, 2, 2, 3, 2, 3, 1, 2, 2, 3, 2, 3, 2, 3, 3, 4, 3, 4, 2, 3, 3, 4, 3, 4, 2, 3, 3, 4, 3, 4, 1, 2, 2, 3, 2, 3, 2, 3, 3, 4, 3, 4, 2, 3, 3, 4, 3, 4, 2, 3, 3, 4, 3, 4, 1, 2, 2, 3, 2, 3, 2, 3, 3, 4, 3, 4, 2, 3, 3, 4, 3, 4, 2, 3, 3, 4, 3, 4, 1, 2, 2, 3, 2, 3, 2, 3, 3

Offset: 0

Antti Karttunen, Mar 02 2001

nonn

			19 = 3*(3!) + 0*(2!) + 1*(1!), thus it is written as "301" in factorial base (A007623). The count of nonzero digits in that representation is 2, so a(19) = 2.

Antti Karttunen, Table of n, a(n) for n = 0..40320
Index entries for sequences related to factorial base representation

Cf. A007623, A034968, A055091, A060117, A060118, A060128, A060129, A060131, A060502, A257687, A275734, A275735, A276076.
Cf. A227130 (positions of even terms), A227132 (of odd terms).
Cf. also A225901, A232094, A257694, A257695.
The topmost row and the leftmost column in array A230415, the left edge of triangle A230417.
Differs from similar A267263 for the first time at n=30.

A060130(n) = count_nonfixed(convert(PermUnrank3R(n), 'disjcyc'))-nops(convert(PermUnrank3R(n), 'disjcyc')) or nops(fac_base(n))-nops(positions(0, fac_base(n)))
fac_base := n -> fac_base_aux(n, 2); fac_base_aux := proc(n, i) if(0 = n) then RETURN([]); else RETURN([op(fac_base_aux(floor(n/i), i+1)), (n mod i)]); fi; end;
count_nonfixed := l -> convert(map(nops, l), `+`);
positions := proc(e, ll) local a, k, l, m; l := ll; m := 1; a := []; while(member(e, l[m..nops(l)], 'k')) do a := [op(a), (k+m-1)]; m := k+m; od; RETURN(a); end;
# For procedure PermUnrank3R see A060117

Block[{nn = 105, r}, r = MixedRadix[Reverse@ Range[2, -1 + SelectFirst[Range@ 12, #! > nn &]]]; Array[Count[IntegerDigits[#, r], k_ /; k > 0] &, nn, 0]] (* Michael De Vlieger, Dec 30 2017 *)

(define (A060130 n) (let loop ((n n) (i 2) (s 0)) (cond ((zero? n) s) (else (loop (quotient n i) (+ 1 i) (+ s (if (zero? (remainder n i)) 0 1)))))))
;; Two other implementations, that use memoization-macro definec:
(definec (A060130 n) (if (zero? n) n (+ 1 (A060130 (A257687 n)))))
(definec (A060130 n) (if (zero? n) n (+ (A257511 n) (A060130 (A257684 n)))))
;; Antti Karttunen, Dec 30 2017

a(0) = 0; for n > 0, a(n) = 1 + a(A257687(n)).
a(0) = 0; for n > 0, a(n) = A257511(n) + a(A257684(n)).
a(n) = A060129(n) - A060128(n).
a(n) = A084558(n) - A257510(n).
a(n) = A275946(n) + A275962(n).
a(n) = A275948(n) + A275964(n).
a(n) = A055091(A060119(n)).
a(n) = A069010(A277012(n)) = A000120(A275727(n)).
a(n) = A001221(A275733(n)) = A001222(A275733(n)).
a(n) = A001222(A275734(n)) = A001222(A275735(n)) = A001221(A276076(n)).
a(n) = A046660(A275725(n)).
a(A225901(n)) = a(n).
A257511(n) <= a(n) <= A034968(n).
A275806(n) <= a(n).
a(A275804(n)) = A060502(A275804(n)). [A275804 gives all the positions where this coincides with A060502.]
a(A276091(n)) = A260736(A276091(n)). [A276091 gives all the positions where this coincides with A260736.]

Example-section added, name edited, the old Maple-code moved away from the formula-section, and replaced with all the new formulas by Antti Karttunen, Dec 30 2017

A275734 Prime-factorization representations of "factorial base slope polynomials": a(0) = 1; for n >= 1, a(n) = A275732(n) * a(A257684(n)).

Original entry on oeis.org

1, 2, 3, 6, 2, 4, 5, 10, 15, 30, 10, 20, 3, 6, 9, 18, 6, 12, 2, 4, 6, 12, 4, 8, 7, 14, 21, 42, 14, 28, 35, 70, 105, 210, 70, 140, 21, 42, 63, 126, 42, 84, 14, 28, 42, 84, 28, 56, 5, 10, 15, 30, 10, 20, 25, 50, 75, 150, 50, 100, 15, 30, 45, 90, 30, 60, 10, 20, 30, 60, 20, 40, 3, 6, 9, 18, 6, 12, 15, 30, 45, 90, 30, 60, 9, 18, 27

Offset: 0

Antti Karttunen, Aug 08 2016

These are prime-factorization representations of single-variable polynomials where the coefficient of term x^(k-1) (encoded as the exponent of prime(k) in the factorization of n) is equal to the number of nonzero digits that occur on the slope (k-1) levels below the "maximal slope" in the factorial base representation of n. See A275811 for the definition of the "digit slopes" in this context.

			For n=23 ("321" in factorial base representation, A007623), all three nonzero digits are maximal for their positions (they all occur on "maximal slope"), thus a(23) = prime(1)^3 = 2^3 = 8.
For n=29 ("1021"), there are three nonzero digits, where both 2 and the rightmost 1 are on the "maximal slope", while the most significant 1 is on the "sub-sub-sub-maximal", thus a(29) = prime(1)^2 * prime(4)^1 = 2*7 = 28.
For n=37 ("1201"), there are three nonzero digits, where the rightmost 1 is on the maximal slope, 2 is on the sub-maximal, and the most significant 1 is on the "sub-sub-sub-maximal", thus a(37) = prime(1) * prime(2) * prime(4) = 2*3*7 = 42.
For n=55 ("2101"), the least significant 1 is on the maximal slope, and the digits "21" at the beginning are together on the sub-sub-maximal slope (as they are both two less than the maximal digit values 4 and 3 allowed in those positions), thus a(55) = prime(1)^1 * prime(3)^2 = 2*25 = 50.

Antti Karttunen, Table of n, a(n) for n = 0..40320
Index entries for sequences related to factorial base representation

Cf. A001221, A001222, A002110, A007489, A007814, A048675, A051903, A056169, A056170, A060130, A060502, A225901.
Cf. A257684, A275732.
Cf. A275811.
Cf. A260736, A275728, A275808, A275812, A275946, A275947, A275962.
Cf. A275804 (indices of squarefree terms), A275805 (of terms not squarefree).
Cf. also A275725, A275733, A275735, A276076 for other such prime factorization encodings of A060117/A060118-related polynomials.

from operator import mul
from sympy import prime, factorial as f
def a007623(n, p=2): return n if n0 else '0' for i in x)[::-1]
    return 0 if n==1 else sum(int(y[i])*f(i + 1) for i in range(len(y)))
def a(n): return 1 if n==0 else a275732(n)*a(a257684(n))
print([a(n) for n in range(101)]) # Indranil Ghosh, Jun 19 2017

a(0) = 1; for n >= 1, a(n) = A275732(n) * a(A257684(n)).
Other identities and observations. For all n >= 0:
a(n) = A275735(A225901(n)).
a(A007489(n)) = A002110(n).
A001221(a(n)) = A060502(n).
A001222(a(n)) = A060130(n).
A007814(a(n)) = A260736(n).
A051903(a(n)) = A275811(n).
A048675(a(n)) = A275728(n).
A248663(a(n)) = A275808(n).
A056169(a(n)) = A275946(n).
A056170(a(n)) = A275947(n).
A275812(a(n)) = A275962(n).

cp's OEIS Frontend

A276004 a(n) is the number of nonzero digits in the factorial-base representation of n that are matched by more significant digits from left; a(n) = A060502(n) - A060128(n).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Formula

A275849 Number of unoccupied slopes in factorial base representation of n: a(n) = A084558(n) - A060502(n).

Views

Author

Keywords

Links

Crossrefs

Programs

Scheme

Formula

A275956 Numbers n for which A060502(n) = A275806(n); numbers whose factorial base representation has an equal number of distinct nonzero digits and occupied slopes.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

A276001 Numbers n for which A060502(n) <= 1; numbers with at most one distinct slope in their factorial representation.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

A276002 Numbers n for which A060502(n) = 2; numbers with exactly two occupied slopes in their factorial representation.

Views

Author

Keywords

Comments

Links

Crossrefs

Formula

A276003 Numbers n for which A060502(n) = 3; numbers with exactly three occupied slopes in their factorial representation.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Formula

A275853 a(n) = A060502(n) + A275851(n).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Scheme

Formula

A225901 Write n in factorial base, then replace each nonzero digit d of radix k with k-d.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Python

Scheme

Formula

A060130 Number of nonzero digits in factorial base representation (A007623) of n; minimum number of transpositions needed to compose each permutation in the lists A060117 & A060118.

Views

Author

Keywords