cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 41-50 of 70 results. Next

A227149 Numbers k for which the sum of digits is odd when k is written in the factorial base (A007623).

Original entry on oeis.org

1, 2, 5, 6, 9, 10, 13, 14, 17, 18, 21, 22, 24, 27, 28, 31, 32, 35, 36, 39, 40, 43, 44, 47, 49, 50, 53, 54, 57, 58, 61, 62, 65, 66, 69, 70, 72, 75, 76, 79, 80, 83, 84, 87, 88, 91, 92, 95, 97, 98, 101, 102, 105, 106, 109, 110, 113, 114, 117, 118, 120, 123, 124
Offset: 1

Views

Author

Antti Karttunen, Jul 02 2013

Keywords

Comments

Numbers k for which minimal number of factorials needed to add to get k is odd.
This sequence offers one possible analog to A000069 (odious numbers) in factorial base system. A227132 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, A227148.
The sequence gives the positions of odd permutations in the tables A055089 and A195663; and equivalently, the positions of odd numbers in A055091.

Crossrefs

Complement: A227148. Cf. also A000069, A034968, A055091, A227132.
Characteristic function: A374468, see also A262725.

Programs

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

A261099 Main diagonal of A261096.

Original entry on oeis.org

0, 0, 0, 4, 3, 0, 0, 0, 12, 16, 23, 19, 8, 23, 0, 20, 0, 7, 16, 11, 15, 0, 7, 0, 0, 0, 0, 4, 3, 0, 48, 48, 60, 64, 71, 67, 86, 93, 74, 94, 74, 85, 116, 111, 119, 99, 108, 99, 30, 30, 86, 89, 112, 111, 0, 0, 78, 82, 107, 103, 0, 20, 26, 46, 96, 103, 15, 0, 41, 29, 78, 73, 60, 115, 38, 119, 38, 63, 56, 107, 0, 104, 0, 55, 26, 100, 0, 104, 19, 42, 33, 56, 11, 52, 0, 25
Offset: 0

Views

Author

Antti Karttunen, Aug 26 2015

Keywords

Comments

Equally: main diagonal of A261097.
For permutation p, which has rank n in permutation list A055089 (A195663), a(n) gives the rank of the "square" of that permutation (obtained by composing it with itself as: q(i) = p(p(i))) in the same list. Thus zeros (which mark the identity permutation, with rank 0) occur at positions where the permutations of A055089/A195663 are involutions, listed by A014489.

Crossrefs

Main diagonal of A261096 and A261097.
Cf. A014489 (the positions of zeros).
Cf. also A261219.
Related permutations: A060119, A060126.

Formula

a(n) = A261096(n,n) = A261097(n,n).
By conjugating a similar sequence:
a(n) = A060119(A261219(A060126(n))).

A178475 Permutations of 12345: Numbers having each of the decimal digits 1,...,5 exactly once, and no other digit.

Original entry on oeis.org

12345, 12354, 12435, 12453, 12534, 12543, 13245, 13254, 13425, 13452, 13524, 13542, 14235, 14253, 14325, 14352, 14523, 14532, 15234, 15243, 15324, 15342, 15423, 15432, 21345, 21354, 21435, 21453, 21534, 21543, 23145, 23154, 23415
Offset: 1

Views

Author

M. F. Hasler, May 28 2010

Keywords

Comments

There are 5! = 120 terms in this finite subsequence of A030299.
It would be interesting to conceive simple and/or efficient functions which yield (a) the n-th term of this sequence: f(n) = a(n), (b) for a given term, the subsequent one: f(a(n)) = a(1 + (n mod 5!)).
From Nathaniel Johnston, May 19 2011: (Start)
Individual terms a(n) can be computed efficiently via the following procedure: Define b(n,k) = 1 + floor(((n-1) mod (k+1)!)/k!) for k = 1, 2, 3, 4. The first digit of a(n) is b(n,4). The second digit of a(n) is the b(n,3)-th number not already used. The third digit of a(n) is the b(n,2)-th number not already used. The fourth digit of a(n) is the b(n,1)-th number not already used, and the final digit of a(n) is the only digit remaining. This procedure generalizes in the obvious way for related sequences such as A178476.
For example, if n = 38 then we compute b(38,1) = 2, b(38,2) = 1, b(38,3) = 3, b(38,4) = 2. Thus a(38) = 24153 (2, followed by the 3rd digit not yet used, followed by the 1st digit not yet used, followed by the 2nd digit not yet used, followed by the last remaining digit).
(End)

Crossrefs

Programs

  • Mathematica
    FromDigits/@Permutations[Range[5]] (* Harvey P. Dale, Jan 19 2019 *)
  • PARI
    A178475(n)={my(b=vector(4,k,1+(n-1)%(k+1)!\k!),t=b[4],d=vector(4,i,i+(i>=t)));for(i=1,3,t=10*t+d[b[4-i]];d=vecextract(d,Str("^"b[4-i])));t*10+d[1]} \\ - M. F. Hasler (following N. Johnston's comment), Jan 10 2012
    
  • PARI
    v=vector(5,i,10^(i-1))~; A178475=vecsort(vector(5!,i,numtoperm(5,i)*v))
    is_A178475(x)={ vecsort(Vecsmall(Str(x)))==Vecsmall("12345") }
    forstep( m=12345,54321,9, is_A178475(m) & print1(m","))

Formula

a(n) + a(5! + 1 - n) = 66666.
floor( a(n) / 10^4 ) = ceiling( n / 4! ).
a(n) = A030299(n+33).
a(n) == 6 (mod 9).
a(n) = 6 + 9*A178485(n).

A261097 Transpose of square array A261096.

Original entry on oeis.org

0, 1, 1, 2, 0, 2, 3, 3, 4, 3, 4, 2, 0, 5, 4, 5, 5, 5, 1, 2, 5, 6, 4, 1, 4, 5, 3, 6, 7, 7, 3, 0, 0, 4, 7, 7, 8, 6, 8, 2, 3, 1, 12, 6, 8, 9, 9, 10, 9, 1, 2, 13, 13, 10, 9, 10, 8, 6, 11, 10, 0, 18, 12, 14, 11, 10, 11, 11, 11, 7, 8, 11, 19, 19, 16, 15, 8, 11, 12, 10, 7, 10, 11, 9, 0, 18, 20, 17, 16, 9, 12, 13, 13, 9, 6, 6, 10, 1, 1, 22, 21, 14, 17, 18, 13, 14, 12, 14, 8, 9, 7, 14, 0, 2, 23, 22, 15, 6, 19, 14
Offset: 0

Views

Author

Antti Karttunen, Aug 26 2015

Keywords

Comments

Each row and column is a permutation of A001477. See the comments at A261096.

Examples

			The top left corner of the array:
   0,  1,  2,  3,  4,  5,  6,  7,  8,  9, 10, 11, 12, ...
   1,  0,  3,  2,  5,  4,  7,  6,  9,  8, 11, 10, 13, ...
   2,  4,  0,  5,  1,  3,  8, 10,  6, 11,  7,  9, 14, ...
   3,  5,  1,  4,  0,  2,  9, 11,  7, 10,  6,  8, 15, ...
   4,  2,  5,  0,  3,  1, 10,  8, 11,  6,  9,  7, 16, ...
   5,  3,  4,  1,  2,  0, 11,  9, 10,  7,  8,  6, 17, ...
   6,  7, 12, 13, 18, 19,  0,  1, 14, 15, 20, 21,  2, ...
   7,  6, 13, 12, 19, 18,  1,  0, 15, 14, 21, 20,  3, ...
   8, 10, 14, 16, 20, 22,  2,  4, 12, 17, 18, 23,  0, ...
   9, 11, 15, 17, 21, 23,  3,  5, 13, 16, 19, 22,  1, ...
  10,  8, 16, 14, 22, 20,  4,  2, 17, 12, 23, 18,  5, ...
  11,  9, 17, 15, 23, 21,  5,  3, 16, 13, 22, 19,  4, ...
  12, 18,  6, 19,  7, 13, 14, 20,  0, 21,  1, 15,  8, ...
  ...
		

Crossrefs

Transpose: A261096.
Row 0 & Column 0: A001477 (identity permutation).
Row 1: A004442.
Column 1: A261098.
Main diagonal: A261099.
Cf. also A055089, A195663.
Cf. also A261216, A261217 (similar arrays, but using different orderings of permutations).
Permutations used in conjugation-formulas: A056019, A060119, A060120, A060126, A060127.

Formula

By conjugating with related permutations and arrays:
A(i,j) = A056019(A261096(A056019(i),A056019(j))).
A(i,j) = A060119(A261217(A060126(i),A060126(j))).
A(i,j) = A060120(A261216(A060127(i),A060127(j))).

A057112 Sequence of 719 adjacent transpositions (a[n] a[n]+1), which, when starting from the identity permutation and applied successively, produce a Hamiltonian circuit/path through all 720 permutations of S_6, in such a way that S_{n-1} is always traversed before the rest of S_n.

Original entry on oeis.org

1, 2, 1, 2, 1, 3, 1, 2, 3, 2, 1, 2, 3, 2, 1, 2, 3, 1, 3, 2, 3, 2, 3, 4, 1, 2, 1, 2, 1, 3, 1, 2, 3, 2, 1, 2, 3, 2, 1, 2, 3, 1, 3, 2, 3, 2, 3, 4, 1, 2, 1, 2, 1, 3, 1, 2, 3, 2, 1, 2, 3, 2, 1, 2, 3, 1, 3, 2, 3, 2, 3, 4, 1, 2, 1, 2, 1, 3, 1, 2, 3, 2, 1, 2, 3, 2, 1, 2, 3, 1, 3, 2, 3, 2, 3, 4, 1, 2, 1, 2, 1, 3, 1, 2, 3, 2, 1, 2, 3, 2, 1, 2, 3, 1, 3, 2, 3, 2, 3
Offset: 1

Views

Author

Antti Karttunen, Aug 09 2000

Keywords

Comments

If the 120 permutations of S_5 are connected by adjacent transpositions, the graph produced is isomorphic to the prismatodecachoron (a 4-dimensional polytope) graph (see the Olshevsky link) and this sequence gives directions for a Hamiltonian circuit through its vertices. The first 24 terms give a Hamiltonian path through truncated octahedron's graph (the last path shown in the Karttunen link).
Comment from N. J. A. Sloane: This is the subject of "bell-ringing" or "change-ringing", which has been studied for hundreds of years. See for example Amer. Math. Monthly, Vol. 94, Number 8, 1987, pp. 721-.

Examples

			Starting from the identity permutation and applying these transpositions (from right), we get:
[1,2,3,4,5,6,...] o (1 2) ->
[2,1,3,4,5,6,...] o (2 3) ->
[2,3,1,4,5,6,...] o (1 2) ->
[3,2,1,4,5,6,...] o (2 1) ->
[3,1,2,4,5,6,...] o (1 2) ->
[1,3,2,4,5,6,...] o (3 4) ->
[1,3,4,2,5,6,...] o (1 2) ->
[3,1,4,2,5,6,...] o (2 3) ->
[3,4,1,2,5,6,...] o (3 4) etc.
		

Crossrefs

Cf. A057113, A055089 (for the Maple definitions of fac_base and cdr), A060135 (palindromic variant of the same idea).

Programs

  • Maple
    adj_tp_seq := proc(n) local fl,fd,v; fl := fac_base(n); fd := fl[1]; if((1 = fd) and (0 = convert(cdr(fl),`+`))) then RETURN(nops(fl)); fi; if(n < 6) then RETURN(2 - (`mod`(n,2))); fi; if((0 = convert(cdr(fl),`+`)) and (n < 24)) then RETURN((nops(fl)+1)-fd); fi; if(n < 18) then if(0 = (`mod`(n,2))) then RETURN(2); else RETURN(4-(`mod`(n,4))); fi; else if(n < 24) then RETURN(2+(`mod`(n,2))); else if(n < 120) then if(0 = convert(cdr(fl),`+`)) then RETURN(nops(fl)); else RETURN(adj_tp_seq(`mod`(n,24))); fi; else if(n < 720) then if(125 = n) then RETURN(5); fi; v := (`mod`(n,5)); if(0 = v) then v := (n-125)/5; RETURN(adj_tp_seq(v)+(`mod`(v+1,2))); else if(5 > (`mod`(n,10))) then RETURN(5-v); else RETURN(v); fi; fi; else if(0 = convert(cdr(fl),`+`)) then RETURN(nops(fl)); fi; RETURN(adj_tp_seq(`mod`(n,720))); fi; fi; fi; fi; end;

Formula

tp_seq := [seq(adj_tp_seq(n), n=1..719)];

A178476 Permutations of 123456: Numbers having each of the decimal digits 1,...,6 exactly once, and no other digit.

Original entry on oeis.org

123456, 123465, 123546, 123564, 123645, 123654, 124356, 124365, 124536, 124563, 124635, 124653, 125346, 125364, 125436, 125463, 125634, 125643, 126345, 126354, 126435, 126453, 126534, 126543, 132456, 132465, 132546, 132564, 132645, 132654
Offset: 1

Views

Author

M. F. Hasler, May 28 2010

Keywords

Comments

This finite sequence contains 6!=720 terms.
This is a subsequence of A030299, consisting of elements A030299(154)..A030299(873).
If individual digits are be split up into separate terms, we get a subsequence of A030298.
It would be interesting to conceive simple and/or efficient functions which yield (a) the n-th term of this sequence: f(n)=a(n), (b) for a given term, the subsequent one: f(a(n)) = a(1 + (n mod 6!)).
The expression a(n+6) - a(n) takes only 18 different values for n = 1..6!-6.
An efficient procedure for generating the n-th term of this sequence can be found at A178475. - Nathaniel Johnston, May 19 2011
From Hieronymus Fischer, Feb 13 2013: (Start)
The sum of all terms as decimal numbers is 279999720.
General formula for the sum of all terms (interpreted as decimal permutational numbers with exactly d different digits from the range 1..d < 10): sum = (d+1)!*(10^d-1)/18.
If the terms are interpreted as base-7 numbers the sum is 49412160.
General formula for the sum of all terms of the corresponding sequence of base-p permutational numbers (numbers with exactly p-1 different digits excluding the zero digit): sum = (p-2)!*(p^p-p)/2. (End)

Crossrefs

Programs

  • Mathematica
    Take[FromDigits/@Permutations[Range[6]],40] (* Harvey P. Dale, Jun 05 2012 *)
  • PARI
    v=vector(6,i,10^(i-1))~; A178476=vecsort(vector(6!,i,numtoperm(6,i)*v));
    is_A178476(x)= { vecsort(Vec(Str(x)))==Vec("123456") }
    forstep( m=123456,654321,9, is_A178476(m) & print1(m","))

Formula

a(n) + a(6! + 1 - n) = 777777.
floor( a(n) / 10^5 ) = ceiling( n / 5! ).
a(n) = A030299(n+153).
a(n) == 3 (mod 9).
a(n) = 3 + 9*A178486(n).

A178485 (A178475(n)-6)/9.

Original entry on oeis.org

1371, 1372, 1381, 1383, 1392, 1393, 1471, 1472, 1491, 1494, 1502, 1504, 1581, 1583, 1591, 1594, 1613, 1614, 1692, 1693, 1702, 1704, 1713, 1714, 2371, 2372, 2381, 2383, 2392, 2393, 2571, 2572, 2601, 2605, 2612, 2615, 2681, 2683, 2701, 2705, 2723, 2725
Offset: 1

Views

Author

M. F. Hasler, May 28 2010

Keywords

Comments

There are 5!=120 terms in this finite sequence. Its origin is the fact that numbers whose decimal expansion is a permutation of 12345 are all of the form 9k+6.

Crossrefs

Programs

  • PARI
    v=vector(5,i,10^(i-1))~; vecsort(vector(5!,i,numtoperm(5,i)*v))
    is_A178475(x)= { vecsort(Vec(Str(x)))==Vec("12345") }
    forstep( m=12345,54321,9, is_A178475(m) & print1(m","))

Formula

a(n) + a(5!+1-n) = 7406.
a(n) == 1, 2, 3, 4 or 5 (mod 10).
a(n+6)-a(n) is an element of { 100, 110, 111, 200, 220, 222, 679 }.
a(n+6)-a(n) = 679 iff (n-1)%24 > 17, where % denotes the remainder upon division.
a(n+6)-a(n) = 200, 220 or 222 iff (n-1)%30 > 23, i.e. n==25,...,30 (mod 30).

A178486 (A178476(n)-3)/9.

Original entry on oeis.org

13717, 13718, 13727, 13729, 13738, 13739, 13817, 13818, 13837, 13840, 13848, 13850, 13927, 13929, 13937, 13940, 13959, 13960, 14038, 14039, 14048, 14050, 14059, 14060, 14717, 14718, 14727, 14729, 14738, 14739, 14917, 14918, 14947, 14951, 14958, 14961
Offset: 1

Views

Author

M. F. Hasler, May 28 2010

Keywords

Comments

The sequence is motivated by the fact that numbers whose decimal expansion is a permutation of 123456, are all of the form 9k+3.
There are 6!=720 terms in this finite sequence.

Crossrefs

Programs

  • PARI
    forstep( m=123456,654321/*or less*/,9, is_A178476(m) & print1(m\9",")) /*cf. A178476*/

Formula

a(n) + a(6!+1-n) = 86419.
a(n) == 0, 1, 2, 7, 8 or 9 (mod 10).

A198380 Cycle type of the n-th finite permutation represented by index number of A194602.

Original entry on oeis.org

0, 1, 1, 2, 2, 1, 1, 3, 2, 4, 4, 2, 2, 4, 1, 2, 3, 4, 4, 2, 2, 1, 4, 3, 1, 3, 3, 5, 5, 3, 2, 5, 4, 6, 6, 4, 4, 6, 2, 4, 5, 6, 6, 4, 4, 2, 6, 5, 2, 5, 4, 6, 6, 4, 1, 3, 2, 4, 4, 2, 3, 5, 4, 6, 6, 5, 5, 3, 6, 4, 5, 6, 4, 6, 2, 4, 5, 6, 2, 4, 1, 2, 3, 4, 4, 6
Offset: 0

Views

Author

Tilman Piesk, Oct 23 2011

Keywords

Comments

This sequence shows the cycle type of each finite permutation (A195663) as the index number of the corresponding partition. (When a permutation has a 3-cycle and a 2-cycle, this corresponds to the partition 3+2, etc.) Partitions can be ordered, so each partition can be denoted by its index in this order, e.g. 6 for the partition 3+2. Compare A194602.
From the properties of A194602 follows:
Entries 1,2,4,6,10,14,21... ( A000041(n)-1 from n=2 ) correspond to permutations with exactly one n-cycle (and no other cycles).
Entries 1,3,7,15,30,56,101... ( A000041(2n-1) from n=1 ) correspond to permutations with exactly n 2-cycles (and no other cycles), so these are the symmetric permutations.
Entries n = 1,3,4,7,9,10,12... ( A194602(n) has an even binary digit sum ) correspond to even permutations. This goes along with the fact, that a permutation is even when its partition contains an even number of even addends.
(Compare "Table for A194602" in section LINKS. Concerning the first two properties see especially the end of this file.)

Crossrefs

Cf. A195663, A195664, A055089 (ordered finite permutations).
Cf. A194602 (ordered partitions interpreted as binary numbers).
Cf. A181897 (number of n-permutations with cycle type k).

Extensions

Changed offset to 0 by Tilman Piesk, Jan 25 2012

A220658 Irregular table, where the n-th row consists of A084558(n)+1 copies of n.

Original entry on oeis.org

0, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6, 6, 7, 7, 7, 7, 8, 8, 8, 8, 9, 9, 9, 9, 10, 10, 10, 10, 11, 11, 11, 11, 12, 12, 12, 12, 13, 13, 13, 13, 14, 14, 14, 14, 15, 15, 15, 15, 16, 16, 16, 16, 17, 17, 17, 17, 18, 18, 18, 18, 19, 19, 19, 19, 20, 20
Offset: 0

Views

Author

Antti Karttunen, Dec 18 2012

Keywords

Comments

Equally, for n>=1, each i in range [n!,(n+1)!-1] occurs n+1 times.
Used for computing A220659, A055089 and A060118: The n-th term a(n) tells which permutation (counted from the start, zero-based) of A055089 or A060117/A060118 the n-th term in those sequence belongs to.

Examples

			Rows of this irregular table begin as:
0;
1, 1;
2, 2, 2;
3, 3, 3;
4, 4, 4;
5, 5, 5;
6, 6, 6, 6;
The terms A055089(3), A055089(4) and A055089(5) are 1,3,2. As a(3), a(4) and a(5) are all 2, we see that "132" is the second permutation in A055089-list, after the identity permutation "1", which has the index zero.
		

Crossrefs

Previous Showing 41-50 of 70 results. Next