A130744 -id:A130744 - cp's OEIS frontend

A257503 Square array A(row,col) read by antidiagonals: A(1,col) = A256450(col-1), and for row > 1, A(row,col) = A255411(A(row-1,col)); Dispersion of factorial base shift A255411 (array transposed).

1, 2, 4, 3, 12, 18, 5, 16, 72, 96, 6, 22, 90, 480, 600, 7, 48, 114, 576, 3600, 4320, 8, 52, 360, 696, 4200, 30240, 35280, 9, 60, 378, 2880, 4920, 34560, 282240, 322560, 10, 64, 432, 2976, 25200, 39600, 317520, 2903040, 3265920, 11, 66, 450, 3360, 25800, 241920, 357840, 3225600, 32659200, 36288000, 13, 70, 456, 3456, 28800, 246240, 2540160, 3588480, 35925120, 399168000, 439084800

Offset: 1

Antti Karttunen, Apr 27 2015

The array is read by antidiagonals: A(1,1), A(1,2), A(2,1), A(1,3), A(2,2), A(3,1), etc.

The first row (A256450) contains all the numbers which have at least one 1-digit in their factorial base representation (see A007623), after which the successive rows are obtained from the terms on the row immediately above by shifting their factorial representation one left and then incrementing the nonzero digits in that representation with a factorial base shift-operation A255411.

			The top left corner of the array:
     1,     2,     3,     5,      6,      7,      8,      9,     10,     11,     13
     4,    12,    16,    22,     48,     52,     60,     64,     66,     70,     76
    18,    72,    90,   114,    360,    378,    432,    450,    456,    474,    498
    96,   480,   576,   696,   2880,   2976,   3360,   3456,   3480,   3576,   3696
   600,  3600,  4200,  4920,  25200,  25800,  28800,  29400,  29520,  30120,  30840
  4320, 30240, 34560, 39600, 241920, 246240, 272160, 276480, 277200, 281520, 286560
  ...

Transpose: A257505.
Inverse permutation: A257504.
Row index: A257679, Column index: A257681.
Row 1: A256450, Row 2: A257692, Row 3: A257693.
Columns 1-3: A001563, A062119, A130744 (without their initial zero-terms).
Column 4: A213167 (without the initial one).
Column 5: A052571 (without initial zeros).
Cf. A007623, A256450, A255411.
Cf. also permutations A255565 and A255566.
Thematically similar arrays: A083412, A135764, A246278.

(define (A257503 n) (A257503bi (A002260 n) (A004736 n)))
(define (A257503bi row col) (if (= 1 row) (A256450 (- col 1)) (A255411 (A257503bi (- row 1) col))))

A(1,col) = A256450(col-1), and for row > 1, A(row,col) = A255411(A(row-1,col)).

Formula changed because of the changed starting offset of A256450 - Antti Karttunen, May 30 2016

A257505 Square array A(row,col): A(row,1) = A256450(row-1), and for col > 1, A(row,col) = A255411(A(row,col-1)); Dispersion of factorial base shift A255411.

Original entry on oeis.org

1, 4, 2, 18, 12, 3, 96, 72, 16, 5, 600, 480, 90, 22, 6, 4320, 3600, 576, 114, 48, 7, 35280, 30240, 4200, 696, 360, 52, 8, 322560, 282240, 34560, 4920, 2880, 378, 60, 9, 3265920, 2903040, 317520, 39600, 25200, 2976, 432, 64, 10, 36288000, 32659200, 3225600, 357840, 241920, 25800, 3360, 450, 66, 11, 439084800, 399168000, 35925120, 3588480, 2540160, 246240, 28800, 3456, 456, 70, 13

Offset: 1

Antti Karttunen, Apr 27 2015

The array is read by downward antidiagonals: A(1,1), A(1,2), A(2,1), A(1,3), A(2,2), A(3,1), etc.

In Kimberling's terminology, this array is called the dispersion of sequence A255411 (when started from its first nonzero term, 4). The left column is the complement of that sequence, which is A256450.

			The top left corner of the array:
   1,   4,  18,   96,   600,   4320,   35280,   322560,   3265920
   2,  12,  72,  480,  3600,  30240,  282240,  2903040,  32659200
   3,  16,  90,  576,  4200,  34560,  317520,  3225600,  35925120
   5,  22, 114,  696,  4920,  39600,  357840,  3588480,  39553920
   6,  48, 360, 2880, 25200, 241920, 2540160, 29030400, 359251200
   7,  52, 378, 2976, 25800, 246240, 2575440, 29352960, 362517120
   8,  60, 432, 3360, 28800, 272160, 2822400, 31933440, 391910400
   9,  64, 450, 3456, 29400, 276480, 2857680, 32256000, 395176320
  10,  66, 456, 3480, 29520, 277200, 2862720, 32296320, 395539200
  11,  70, 474, 3576, 30120, 281520, 2898000, 32618880, 398805120
  13,  76, 498, 3696, 30840, 286560, 2938320, 32981760, 402433920
  14,  84, 552, 4080, 33840, 312480, 3185280, 35562240, 431827200
  15,  88, 570, 4176, 34440, 316800, 3220560, 35884800, 435093120
  17,  94, 594, 4296, 35160, 321840, 3260880, 36247680, 438721920
  19, 100, 618, 4416, 35880, 326880, 3301200, 36610560, 442350720
  20, 108, 672, 4800, 38880, 352800, 3548160, 39191040, 471744000
  21, 112, 690, 4896, 39480, 357120, 3583440, 39513600, 475009920
  23, 118, 714, 5016, 40200, 362160, 3623760, 39876480, 478638720
  ...

Antti Karttunen, Table of n, a(n) for n = 1..1275; the first 50 antidiagonals of array
Clark Kimberling, Interspersions and Dispersions.
Clark Kimberling, Interspersions and Dispersions, Proceedings of the American Mathematical Society, 117 (1993) 313-321.
Index entries for sequences related to factorial base representation
Index entries for sequences that are permutations of the natural numbers

Transpose: A257503.
Inverse permutation: A257506.
Row index: A257681, Column index: A257679.
Columns 1-3: A256450, A257692, A257693.
Rows 1-3: A001563, A062119, A130744 (without their initial zero-terms).
Row 4: A213167 (without the initial one).
Row 5: A052571 (without initial zeros).
Cf. A007623, A256450, A255411.
Cf. also permutations A255565, A255566.
Thematically similar arrays: A035513, A054582, A246279.

(define (A257505 n) (A257505bi (A002260 n) (A004736 n)))
(define (A257505bi row col) (if (= 1 col) (A256450 (- row 1)) (A255411 (A257505bi row (- col 1)))))

A(row,1) = A256450(row-1), and for col > 1, A(row,col) = A255411(A(row,col-1)).

Formula changed because of the changed starting offset of A256450 - Antti Karttunen, May 30 2016

A276326 Numbers expressed in greedy A001563-base.

Original entry on oeis.org

0, 1, 2, 3, 10, 11, 12, 13, 20, 21, 22, 23, 30, 31, 32, 33, 40, 41, 100, 101, 102, 103, 110, 111, 112, 113, 120, 121, 122, 123, 130, 131, 132, 133, 140, 141, 200, 201, 202, 203, 210, 211, 212, 213, 220, 221, 222, 223, 230, 231, 232, 233, 240, 241, 300, 301, 302, 303, 310, 311, 312, 313, 320, 321, 322, 323, 330, 331, 332, 333, 340, 341, 400

Offset: 0

Antti Karttunen, Aug 30 2016

Terms A001563(1) = 1, A001563(2) = 4, A001563(3) = 18, ... give the base values for the digit positions from 1 onward. Digit places are filled by always trying to find the largest possible term of A001563 that still fits into the sum.

A130744(8) = 3225600 = 10*A001563(8) is the first number which yields an ambiguous representation when expressed in decimal, because in this base it is actually "A0000000" (where digit "A" stands for ten).

			To recover n from a(n) the digits in positions i = 1, 2, 3, ... (starting indexing from the least significant digit at right) are multiplied by A001563(i) and added together:
  ----------------
   n         a(n)
  ----------------
   0           0
   1           1
   2           2
   3           3
   4          10
   5          11
   6          12
   7          13
   8          20
   9          21
  10          22
  11          23
  12          30
  13          31
  14          32
  15          33
  16          40
  17          41 (as 4*A001563(2) + 1*A001563(1) = 17)
  18         100 (as 1*A001563(3) + 0*A001563(2) + 0*A001563(1) = 18)
and:
3225599 99111111 (as 3225599 = 9*b(8) + 9*b(7) + b(6) + b(5) + b(4) + b(3) + b(2) + b(1)), where b(n) = A001563(n).

Antti Karttunen, Table of n, a(n) for n = 0..4320

Cf. A001563, A130744, A258198, A276335.
Cf. A276327 (the least significant nonzero digit).
Cf. A276328 (the sum of digits).
Cf. A276333 (the most significant digit).
Cf. A276336 (a largest digit).
Cf. A276337 (number of nonzero digits).
Cf. A033312 (repunits).
Cf. A276091 (no digits larger than one).
Differs from A007090 for the first time at n=16 and from A055655 at n=18.
Cf. also A007623, A007961, A000433, A014418, A265747.

f[n_] := Block[{a = {{0, n}}}, Do[AppendTo[a, {First@ #, Last@ #} &@ QuotientRemainder[a[[-1, -1]], (# #!) &[# - i]]], {i, 0, # - 1}] &@ NestWhile[# + 1 &, 0, (# #!) &[# + 1] <= n &]; Rest[a][[All, 1]]]; Table[FromDigits@ f@ n, {n, 72}] (* Michael De Vlieger, Aug 31 2016 *)

(define (A276326 n) (let loop ((n n) (s 0)) (if (zero? n) s (let ((dig (A276333 n))) (if (> dig 9) (error "A276326: ambiguous representation of n, digit > 9 would be needed: " n dig) (loop (A276335 n) (+ s (* dig (expt 10 (- (A258198 n) 1))))))))))

A276336 The largest digit used when n is written in greedy A001563-base (A276326).

Original entry on oeis.org

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

Offset: 0

Antti Karttunen, Aug 30 2016

After a(1) = 1 and a(2) = 2, the records occur at positions given by A130744, so that each n >= 3 occurs for the first time at A130744(n-2). This holds because A001563(n) = (n*n!) < A130744(n) = (n+2)*(n*n!) < (n+1)*(n+1)! = A001563(n+1).

First term > 9 occurs thus at A130744(8) = 3225600 with a(3225600)=10.

Antti Karttunen, Table of n, a(n) for n = 0..4320

Cf. A001563, A130744, A276326, A276333, A276335.

Cf. A276091 (indices of terms <= 1).

f[n_] := Block[{a = {{0, n}}}, Do[AppendTo[a, {First@ #, Last@ #} &@ QuotientRemainder[a[[-1, -1]], (# #!) &[# - i]]], {i, 0, # - 1}] &@ NestWhile[# + 1 &, 0, (# #!) &[# + 1] <= n &]; Rest[a][[All, 1]]]; {0}~Join~Table[Max@ f@ n, {n, 120}] (* Michael De Vlieger, Aug 31 2016 *)

a(0) = 0; for n >= 1, a(n) = max(A276333(n), a(A276335(n))).

A193094 Augmentation of the triangular array P=A130296 whose n-th row is (n+1,1,1,1,1...,1) for 0<=k<=n. See Comments.

Original entry on oeis.org

1, 2, 1, 6, 4, 3, 24, 18, 16, 13, 120, 96, 90, 84, 71, 720, 600, 576, 558, 532, 461, 5040, 4320, 4200, 4128, 4050, 3908, 3447, 40320, 35280, 34560, 34200, 33888, 33462, 32540, 29093, 362880, 322560, 317520, 315360, 313800, 312096, 309330, 302436

Offset: 0

Clark Kimberling, Jul 30 2011

For an introduction to the unary operation "augmentation" as applied to triangular arrays or sequences of polynomials, see A193091.
Regarding W=A193093:
col 1:  A000142, n!
col 2:  A001593, n*n!
col 3:  A130744, n*(n+2)*n!
diag (1,1,3,13,71,...):  A003319, indecomposable permutations.
It appears that T(n,k) is the number of indecomposable permutations p of [n+2] for which p(k+2) = 1. For example, T(2,1) = 4 counts 2413, 3412, 4213, 4312. - David Callan, Aug 27 2014

			First 5 rows:
1
2.....1
6.....4....3
24....18...16...13
120...96...90...84...71

Cf. A193091, A130296, A193093.

p[n_, k_] := If[k == 0, n + 1, 1]
Table[p[n, k], {n, 0, 5}, {k, 0, n}] (* A130296 *)
m[n_] := Table[If[i <= j, p[n + 1 - i, j - i], 0], {i, n}, {j, n + 1}]
TableForm[m[4]]
w[0, 0] = 1; w[1, 0] = p[1, 0]; w[1, 1] = p[1, 1];
v[0] = w[0, 0]; v[1] = {w[1, 0], w[1, 1]};
v[n_] := v[n - 1].m[n]
TableForm[Table[v[n], {n, 0, 6}]] (* A193094 *)
Flatten[Table[v[n], {n, 0, 9}]]

cp's OEIS Frontend

A257503 Square array A(row,col) read by antidiagonals: A(1,col) = A256450(col-1), and for row > 1, A(row,col) = A255411(A(row-1,col)); Dispersion of factorial base shift A255411 (array transposed).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Scheme

Formula

Extensions

A257505 Square array A(row,col): A(row,1) = A256450(row-1), and for col > 1, A(row,col) = A255411(A(row,col-1)); Dispersion of factorial base shift A255411.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Scheme

Formula

Extensions

A276326 Numbers expressed in greedy A001563-base.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Scheme

A276336 The largest digit used when n is written in greedy A001563-base (A276326).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A193094 Augmentation of the triangular array P=A130296 whose n-th row is (n+1,1,1,1,1...,1) for 0<=k<=n. See Comments.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica