A060130 -id:A060130 - cp's OEIS frontend

A278236 Filter-sequence for factorial base (digit values): least number with the same prime signature as A276076(n).

1, 2, 2, 6, 4, 12, 2, 6, 6, 30, 12, 60, 4, 12, 12, 60, 36, 180, 8, 24, 24, 120, 72, 360, 2, 6, 6, 30, 12, 60, 6, 30, 30, 210, 60, 420, 12, 60, 60, 420, 180, 1260, 24, 120, 120, 840, 360, 2520, 4, 12, 12, 60, 36, 180, 12, 60, 60, 420, 180, 1260, 36, 180, 180, 1260, 900, 6300, 72, 360, 360, 2520, 1800, 12600, 8, 24, 24, 120, 72, 360, 24, 120, 120, 840, 360, 2520

Offset: 0

Antti Karttunen, Nov 16 2016

This sequence can be used for filtering certain factorial base related sequences, because it matches only with any such sequence b that can be computed as b(n) = f(A276076(n)), where f(n) is any function that depends only on the prime signature of n (some of these are listed under the index entry for "sequences computed from exponents in ...").
Matching in this context means that the sequence a matches with the sequence b iff for all i, j: a(i) = a(j) => b(i) = b(j). In other words, iff the sequence b partitions the natural numbers to the same or coarser equivalence classes (as/than the sequence a) by the distinct values it obtains.
Any such sequence should match where the result is computed from the nonzero digits (that may also be > 9) in the factorial base representation of n, but does not depend on their order. Some of these are listed on the last line of the Crossrefs section.
Note that as A275735 is present in that list it means that the sequences matching to its filter-sequence A278235 form a subset of the sequences matching to this sequence. Also, for A275735 there is a stronger condition that for any i, j: a(i) = a(j) <=> A275735(i) = A275735(j), which if true, would imply that there is an injective function f such that f(A275735(n)) = A278236(n), and indeed, this function seems to be A181821.

Cf. A007623, A046523, A181821, A276076.
Similar sequences: A278222 (base-2 related), A069877 (base-10), A278226 (primorial base), A278225, A278234, A278235 (other variants for factorial base),
Differs from A278226 for the first time at n=24, where a(24)=2, while A278226(24)=16.
Sequences that partition N into same or coarser equivalence classes: A275735 (<=>), A034968, A060130, A227153, A227154, A246359, A257079, A257511, A257679, A257694, A257695, A257696, A264990, A275729, A275806, A275948, A275964, A278235.

a[n_] := Module[{k = n, m = 2, r, s = {}}, While[{k, r} = QuotientRemainder[k, m]; k != 0|| r != 0, AppendTo[s, r]; m++]; s = ReverseSort[s]; Times @@ (Prime[Range[Length[s]]] ^ s)]; Array[a, 100, 0] (* Amiram Eldar, Feb 07 2024 *)

(define (A278236 n) (A046523 (A276076 n)))

a(n) = A046523(A276076(n)).

a(n) = A181821(A275735(n)). [Empirical formula found with the help of equivalence class matching. Not yet proved.]

A246359 Maximum digit in the factorial base expansion of n (A007623).

Original entry on oeis.org

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

Offset: 0

Antti Karttunen, Oct 20 2014

Maximum entry in n-th row of A108731.

			Factorial base representation of 46 is "1320" as 46 = 1*4! + 3*3! + 2*2! + 0*1!, and the largest of these digits is 3, thus a(46) = 3.

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

Cf. A007623, A034968, A051903, A060130, A084558, A099563, A257684, A257687, A276076.

Cf. also A249070.

nn = 96; m = 1; While[Factorial@ m < nn, m++]; m; Table[Max@ IntegerDigits[n, MixedRadix[Reverse@ Range[2, m]]], {n, 0, nn}] (* 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}]; Table[Max@ f@ n, {n, 0, 96}] (* Michael De Vlieger, Aug 29 2016 *)

def a007623(n, p=2): return n if nIndranil Ghosh, Jun 21 2017

From Antti Karttunen, Aug 29 2016: (Start)
a(0) = 0; for n >= 1, a(n) = 1 + a(A257684(n)).
a(0) = 0; for n >= 1, a(n) = max(A099563(n), a(A257687(n))).
a(n) = A051903(A276076(n)).
(End)

A275804 Numbers with at most one nonzero digit on each digit slope of the factorial base representation of n.

Original entry on oeis.org

0, 1, 2, 3, 4, 6, 7, 8, 9, 10, 12, 13, 16, 18, 20, 24, 25, 26, 27, 28, 30, 31, 32, 33, 34, 36, 37, 40, 42, 44, 48, 49, 50, 51, 52, 60, 61, 64, 66, 68, 72, 73, 76, 78, 79, 82, 90, 96, 98, 102, 104, 108, 120, 121, 122, 123, 124, 126, 127, 128, 129, 130, 132, 133, 136, 138, 140, 144, 145, 146, 147, 148, 150, 151, 152, 153, 154, 156, 157, 160

Offset: 0

Antti Karttunen, Aug 10 2016

Indexing starts from zero, because a(0) = 0 is a special case in this sequence.
Numbers n for which A275947(n) = 0 or equally, for which A275811(n) <= 1.
Numbers n for which A008683(A275734(n)) <> 0, that is, indices of squarefree terms in A275734.
Numbers n for which A060130(n) = A060502(n).
Numbers with at most one nonzero digit on each digit slope of the factorial base representation of n (see A275811 and A060502 for the definition of slopes in this context). More exactly: numbers n in whose factorial base representation (A007623) there does not exist a pair of digit positions i_1 and i_2 with nonzero digits d_1 and d_2, such that (i_1 - d_1) = (i_2 - d_2).

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

Complement: A275805.
Indices of zeros in A275947 and A275962.
Intersection with A276005 gives A261220.
Cf. A059590 (a subsequence).
Cf. A007623, A008683, A060130, A060502, A275734, A275811.

from operator import mul
from sympy import prime, factorial as f
from sympy.ntheory.factor_ import core
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))
def ok(n): return 1 if n==0 else core(a(n))==a(n)
print([n for n in range(201) if ok(n)]) # Indranil Ghosh, Jun 19 2017

A275806 a(n) = number of distinct nonzero digits in factorial base representation of n.

Original entry on oeis.org

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

Offset: 0

Antti Karttunen, Aug 11 2016

			For n=0, with factorial base representation (A007623) also 0, there are no nonzero digits, thus a(0) = 0.
For n=2, with factorial base representation "10", there is one distinct nonzero digit, thus a(2) = 1.
For n=3, with factorial base representation "11", there is just one distinct nonzero digit, thus a(3) = 1.
For n=44, with factorial base representation "1310", there are two distinct nonzero digits ("1" and "3"), thus a(44) = 2.

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

Cf. A000142, A001221, A007623, A033312, A060130, A060502, A225901, A265349, A275735.

Cf. also A153880, A255411.

a[n_] := Module[{k = n, m = 2, r, s = {}}, While[{k, r} = QuotientRemainder[k, m]; k != 0|| r != 0, AppendTo[s, r]; m++]; Length[Union[Select[s, # > 0 &]]]]; Array[a, 100, 0] (* Amiram Eldar, Feb 07 2024 *)

from sympy import prime, primefactors
from operator import mul
import collections
def a007623(n, p=2): return n if nIndranil Ghosh, Jun 20 2017

(define (A275806 n) (A001221 (A275735 n)))

a(n) = A001221(A275735(n)).
a(n) = A060502(A225901(n)).
Other identities. For all n >= 0:
a(n) = a(A153880(n)) = a(A255411(n)). [The shift-operations do not change the number of distinct nonzero digits.]
a(A265349(n)) = A060130(A265349(n)).
a(A000142(n)) = 1.
a(A033312(n)) = n-1, for all n >= 1.

A060129 Number of moved (non-fixed) elements in the permutation with rank number n in lists A060117 (or in A060118), i.e., the sum of the lengths of all cycles larger than one in that permutation.

Original entry on oeis.org

0, 2, 2, 3, 2, 3, 2, 4, 3, 4, 3, 4, 2, 3, 3, 4, 4, 4, 2, 3, 4, 4, 3, 4, 2, 4, 4, 5, 4, 5, 3, 5, 4, 5, 4, 5, 3, 4, 4, 5, 5, 5, 3, 4, 5, 5, 4, 5, 2, 4, 3, 4, 3, 4, 3, 5, 4, 5, 4, 5, 4, 5, 4, 5, 5, 5, 4, 5, 5, 5, 4, 5, 2, 3, 3, 4, 4, 4, 4, 5, 4, 5, 5, 5, 3, 4, 4, 5, 5, 5, 4, 4, 5, 5, 5, 5, 2, 3, 4, 4, 3, 4, 4, 5, 5, 5, 4, 5, 4, 4, 5, 5, 5, 5, 3, 4, 5, 5, 4, 5, 2

Offset: 0

Antti Karttunen, Mar 05 2001

nonn

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

Cf. also A000142, A055093, A060117, A060118, A060120, A060128, A060130, A084558, A275851.

a(n) = A060128(n) + A060130(n).
From Antti Karttunen, Aug 11 2016: (Start)
a(n) = A275812(A275725(n)).
a(n) = 1 + A084558(n) - A275851(n).
Other identities. For all n >= 0:
a(n) = A055093(A060120(n)).
a(A000142(n)) = 2.
(End)

A227130 Numbers k for which there is an even number of nonzero digits when k is written in the factorial base (A007623).

Original entry on oeis.org

0, 3, 5, 7, 8, 10, 13, 14, 16, 19, 20, 22, 25, 26, 28, 30, 33, 35, 36, 39, 41, 42, 45, 47, 49, 50, 52, 54, 57, 59, 60, 63, 65, 66, 69, 71, 73, 74, 76, 78, 81, 83, 84, 87, 89, 90, 93, 95, 97, 98, 100, 102, 105, 107, 108, 111, 113, 114, 117, 119, 121, 122, 124

Offset: 1

Antti Karttunen, Jul 02 2013

This sequence offers one possible analog to A001969 (evil numbers) in the factorial base system. A227148 gives another kind of analog.
In each range [0,n!-1] exactly half of the integers are found in this sequence, and the other half of them are found in the complement, A227132.
The sequence gives the positions of even permutations in the tables A060117 and A060118.

Antti Karttunen, Table of n, a(n) for n = 1..2520
Wikipedia, Parity of permutation.

Complement: A227132. Cf. also A001969, A060130, A227148.

q[n_] := Module[{k = n, m = 2, c = 0, r}, While[{k, r} = QuotientRemainder[k, m]; k != 0 || r != 0, If[r != 0, c++]; m++]; EvenQ[c]]; Select[Range[0, 150], q] (* Amiram Eldar, Jan 23 2024 *)

A055091 Minimum number of transpositions needed to represent each permutation given in reversed colexicographic ordering A055089.

Original entry on oeis.org

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

Offset: 0

Antti Karttunen, Apr 18 2000

nonn

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

Cf. A046660, A055089, A055090, A055093, A060130, A290095.

Cf. also A034968 (minimum number of adjacent transpositions).

with(group); [seq(count_transpositions(convert(PermRevLexUnrank(j),'disjcyc')),j=0..)];
count_transpositions := proc(l) local c,t; t := 0; for c in l do t := t + (nops(c)-1); od; RETURN(t); end;
# Procedure PermRevLexUnrank given in A055089.

a(n) = A055093(n) - A055090(n).

a(n) = A046660(A290095(n)) = A060130(A060126(n)). - Antti Karttunen, Dec 30 2017

Entry revised by Antti Karttunen, Dec 30 2017

A060128 a(n) is the number of disjoint cycles (excluding 1-cycles, i.e., fixed elements) in the n-th permutation of A060117 and A060118.

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 2, 2, 2, 2, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 2, 1, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 2, 2

Offset: 0

Antti Karttunen, Mar 05 2001

nonn

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

Cf. A055090, A056170, A060118, A060120, A060129, A060130, A275725, A278225, A276004.

Cf. A276005 (positions where coincides with A060502).

A060128(n) = nops(convert(PermUnrank3L(n), 'disjcyc')); # Code for function PermUnrank3L given in A060118.

a(n) = A060129(n) - A060130(n).
From Antti Karttunen, Aug 07 2017: (Start)
a(n) = A056170(A275725(n)).
a(n) = A055090(A060120(n)).
a(n) = A060502(n) - A276004(n).
(End)

A227132 Numbers k for which there is an odd number of nonzero digits when k is written in the factorial base (A007623).

Original entry on oeis.org

1, 2, 4, 6, 9, 11, 12, 15, 17, 18, 21, 23, 24, 27, 29, 31, 32, 34, 37, 38, 40, 43, 44, 46, 48, 51, 53, 55, 56, 58, 61, 62, 64, 67, 68, 70, 72, 75, 77, 79, 80, 82, 85, 86, 88, 91, 92, 94, 96, 99, 101, 103, 104, 106, 109, 110, 112, 115, 116, 118, 120, 123, 125

Offset: 1

Antti Karttunen, Jul 02 2013

This sequence offers one possible analog to A000069 (odious numbers) in the factorial base system. A227149 gives another kind of analog.
In each range [0,n!-1] exactly half of the integers are found in this sequence, and the other half of them are found in the complement, A227130.
The sequence gives the positions of odd permutations in the tables A060117 and A060118.

Antti Karttunen, Table of n, a(n) for n = 1..2520
Wikipedia, Parity of permutation.

Complement: A227130.
Cf. A007623, A060117, A060118.
Cf. also A000069, A060130, A227149.

q[n_] := Module[{k = n, m = 2, c = 0, r}, While[{k, r} = QuotientRemainder[k, m]; k != 0 || r != 0, If[r != 0, c++]; m++]; OddQ[c]]; Select[Range[150], q] (* Amiram Eldar, Jan 24 2024 *)

A275733 a(0) = 1; for n >= 1, a(n) = A275732(n) * A003961(a(A257684(n))).

Original entry on oeis.org

1, 2, 3, 6, 3, 6, 5, 10, 15, 30, 15, 30, 5, 10, 15, 30, 15, 30, 5, 10, 15, 30, 15, 30, 7, 14, 21, 42, 21, 42, 35, 70, 105, 210, 105, 210, 35, 70, 105, 210, 105, 210, 35, 70, 105, 210, 105, 210, 7, 14, 21, 42, 21, 42, 35, 70, 105, 210, 105, 210, 35, 70, 105, 210, 105, 210, 35, 70, 105, 210, 105, 210, 7, 14, 21, 42, 21, 42

Offset: 0

Antti Karttunen, Aug 08 2016

a(n) = product of primes whose indices are positions of nonzero-digits in factorial base representation of n (see A007623). Here positions are one-based, so that the least significant digit is the position 1, the next least significant the position 2, etc.

			For n=19, A007623(19) = 301, thus a(19) = prime(3)*prime(1) = 5*2 = 10.
For n=52, A007623(52) = 2020, thus a(52) = prime(2)*prime(4) = 3*7 = 21.

Antti Karttunen, Table of n, a(n) for n = 0..40320
Indranil Ghosh, Python program for computing this sequence
Index entries for sequences related to factorial base representation

Cf. A001221, A002110, A003961, A005117, A007489, A007623, A048675, A060130, A061395, A084558, A257684, A275732.
Subsequence of A005117.
Cf. A275727.
Cf. also A275725, A275734, A275735 for other such prime factorization encodings of A060117/A060118-related polynomials.

a(0) = 1; for n >= 1, a(n) = A275732(n) * A003961(a(A257684(n))).
Other identities and observations. For all n >= 0:
a(A007489(n)) = A002110(n).
A001221(a(n)) = A001222(a(n)) = A060130(n).
A048675(a(n)) = A275727(n).
A061395(a(n)) = A084558(n).

cp's OEIS Frontend

A278236 Filter-sequence for factorial base (digit values): least number with the same prime signature as A276076(n).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Scheme

Formula

A246359 Maximum digit in the factorial base expansion of n (A007623).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Python

Formula

A275804 Numbers with at most one nonzero digit on each digit slope of the factorial base representation of n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Python

A275806 a(n) = number of distinct nonzero digits in factorial base representation of n.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Python

Scheme

Formula

A060129 Number of moved (non-fixed) elements in the permutation with rank number n in lists A060117 (or in A060118), i.e., the sum of the lengths of all cycles larger than one in that permutation.

Views

Author

Keywords

Links

Crossrefs

Formula

A227130 Numbers k for which there is an even number of nonzero digits when k is written in the factorial base (A007623).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

A055091 Minimum number of transpositions needed to represent each permutation given in reversed colexicographic ordering A055089.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Formula

Extensions

A060128 a(n) is the number of disjoint cycles (excluding 1-cycles, i.e., fixed elements) in the n-th permutation of A060117 and A060118.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Formula