A276943 -id:A276943 - cp's OEIS frontend

A286623 Square array A(n,k) = A276943(n,k)/A002110(n-1), read by descending antidiagonals A(1,1), A(1,2), A(2,1), A(1,3), A(2,2), A(3,1), etc.

1, 3, 1, 4, 4, 1, 5, 6, 6, 1, 7, 7, 10, 8, 1, 9, 16, 11, 14, 12, 1, 10, 19, 36, 15, 22, 14, 1, 11, 21, 41, 78, 23, 26, 18, 1, 13, 22, 45, 85, 144, 27, 34, 20, 1, 15, 31, 46, 91, 155, 222, 35, 38, 24, 1, 16, 34, 71, 92, 165, 235, 324, 39, 46, 30, 1, 17, 36, 76, 155, 166, 247, 341, 438, 47, 58, 32, 1, 18, 37, 80, 162, 287, 248, 357, 457, 668, 59, 62, 38, 1

Offset: 1

Antti Karttunen, Jun 28 2017

			The top left 12 X 12 corner of the array:
  1,  3,  4,  5,    7,    9,   10,   11,   13,   15,   16,   17
  1,  4,  6,  7,   16,   19,   21,   22,   31,   34,   36,   37
  1,  6, 10, 11,   36,   41,   45,   46,   71,   76,   80,   81
  1,  8, 14, 15,   78,   85,   91,   92,  155,  162,  168,  169
  1, 12, 22, 23,  144,  155,  165,  166,  287,  298,  308,  309
  1, 14, 26, 27,  222,  235,  247,  248,  443,  456,  468,  469
  1, 18, 34, 35,  324,  341,  357,  358,  647,  664,  680,  681
  1, 20, 38, 39,  438,  457,  475,  476,  875,  894,  912,  913
  1, 24, 46, 47,  668,  691,  713,  714, 1335, 1358, 1380, 1381
  1, 30, 58, 59,  900,  929,  957,  958, 1799, 1828, 1856, 1857
  1, 32, 62, 63, 1148, 1179, 1209, 1210, 2295, 2326, 2356, 2357
  1, 38, 74, 75, 1518, 1555, 1591, 1592, 3035, 3072, 3108, 3109

Transpose: A286625.
Cf. A002110, A276943.
Row 1: A276155.
Column 1: A000012, Column 2: A008864, Column 3: A100484, Column 4: A072055, Column 5: A023523 (from its second term onward), Column 6: A286624 (= 1 + A123134), Column 11: 2*A123134, Column 13: 3*A006094.
Cf. A276616 (analogous array).

(define (A286623 n) (A286623bi (A002260 n) (A004736 n)))
(define (A286623bi row col) (/ (A276943bi row col) (A002110 (- row 1))))

A(n,k) = A276943(n, k) / A002110(n-1).

A276944 Inverse permutation to A276943.

Original entry on oeis.org

1, 3, 2, 4, 7, 6, 11, 5, 16, 22, 29, 8, 37, 12, 46, 56, 67, 79, 92, 106, 121, 137, 154, 172, 191, 211, 232, 254, 277, 10, 301, 17, 326, 352, 379, 9, 407, 23, 436, 466, 497, 30, 529, 38, 562, 596, 631, 667, 704, 742, 781, 821, 862, 904, 947, 991, 1036, 1082, 1129, 13, 1177, 47, 1226, 1276, 1327, 18, 1379, 57, 1432, 1486, 1541, 68, 1597, 80, 1654

Offset: 1

Antti Karttunen, Sep 24 2016

Inverse: A276943.

Differs from analogous A276954 for the first time at n=24, where a(24)=172, while A276954(24)=10.

A276154 a(n) = Shift primorial base representation (A049345) of n left by one digit (append one zero to the right, then convert back to decimal).

Original entry on oeis.org

0, 2, 6, 8, 12, 14, 30, 32, 36, 38, 42, 44, 60, 62, 66, 68, 72, 74, 90, 92, 96, 98, 102, 104, 120, 122, 126, 128, 132, 134, 210, 212, 216, 218, 222, 224, 240, 242, 246, 248, 252, 254, 270, 272, 276, 278, 282, 284, 300, 302, 306, 308, 312, 314, 330, 332, 336, 338, 342, 344, 420, 422, 426, 428, 432, 434, 450, 452, 456, 458, 462, 464, 480, 482, 486, 488

Offset: 0

Antti Karttunen, Aug 24 2016

			   n   A049345  with one zero           converted back
                appended to the right   to decimal = a(n)
---------------------------------------------------------
   0       0            00                     0
   1       1            10                     2
   2      10           100                     6
   3      11           110                     8
   4      20           200                    12
   5      21           210                    14
   6     100          1000                    30
   7     101          1010                    32
   8     110          1100                    36
   9     111          1110                    38
  10     120          1200                    42
  11     121          1210                    44
  12     200          2000                    60
  13     201          2010                    62
  14     210          2100                    66
  15     211          2110                    68
  16     220          2200                    72

Antti Karttunen, Table of n, a(n) for n = 0..30029
Index entries for sequences related to primorial base

Complement: A276155.
Cf. A002110, A003961, A049345, A276085, A276086, A276151, A276152, A286629 [= a(A061720(n-1))], A324384 [= gcd(n, a(n))], A323879, A328770 (a subsequence).
Cf. also A276156, A328461, A328464.
Dispersion array and its transpose: A276943, A276945, with primorials divided out: A286623, A286625.
Analogous to A153880.

nn = 75; b = MixedRadix[Reverse@ Prime@ NestWhileList[# + 1 &, 1, Times @@ Prime@ Range[#] <= nn &]]; Table[FromDigits[#, b] &@ Append[IntegerDigits[n, b], 0], {n, 0, nn}] (* Version 10.2, or *)
f[n_] := Block[{a = {{0, n}}}, Do[AppendTo[a, {First@ #, Last@ #} &@ QuotientRemainder[a[[-1, -1]], Times @@ Prime@ Range[# - i]]], {i, 0, #}] &@ NestWhile[# + 1 &, 0, Times @@ Prime@ Range[# + 1] <= n &]; Rest[a][[All, 1]]]; Table[Total[Times @@@ Transpose@ {Map[Times @@ # &, Prime@ Range@ Range[0, Length@ # - 1]], Reverse@ #}] &@ Append[f@ n, 0], {n, 0, 75}] (* Michael De Vlieger, Aug 26 2016 *)

A276154(n) = A276085(A003961(A276086(n))); \\ Antti Karttunen, Mar 15 2021

A276151(n) = { my(s=1); forprime(p=2, , if(n%p, return(n-s), s *= p)); };
A276152(n) = { my(s=1); forprime(p=2, , if(n%p, return(s*p), s *= p)); };
A276154(n) = if(!n,n,(A276152(n) + A276154(A276151(n)))); \\ Antti Karttunen, Mar 15 2021

(definec (A276154 n) (if (zero? n) n (+ (A276152 n) (A276154 (A276151 n)))))

a(0) = 0; for n >= 1, a(n) = A276152(n) + a(A276151(n)).

a(n) = A276085(A003961(A276086(n))). - Antti Karttunen, Mar 15 2021

A276945 Square array A(row,col): A(row,1) = A276155(row), and for col > 1, A(row,col) = A276154(A(row,col-1)); Dispersion of primorial base left shift A276154.

Original entry on oeis.org

1, 2, 3, 6, 8, 4, 30, 36, 12, 5, 210, 240, 60, 14, 7, 2310, 2520, 420, 66, 32, 9, 30030, 32340, 4620, 450, 216, 38, 10, 510510, 540540, 60060, 4830, 2340, 246, 42, 11, 9699690, 10210200, 1021020, 62370, 30240, 2550, 270, 44, 13, 223092870, 232792560, 19399380, 1051050, 512820, 32550, 2730, 276, 62, 15

Offset: 1

Antti Karttunen, Sep 24 2016

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

Entries in column k are all multiples of A002110(k-1). Dividing that factor out gives array A286625. - Antti Karttunen, Jun 30 2017

			The top left corner of the array:
   1,  2,   6,   30,   210,    2310,    30030,    510510
   3,  8,  36,  240,  2520,   32340,   540540,  10210200
   4, 12,  60,  420,  4620,   60060,  1021020,  19399380
   5, 14,  66,  450,  4830,   62370,  1051050,  19909890
   7, 32, 216, 2340, 30240,  512820,  9729720, 223603380
   9, 38, 246, 2550, 32550,  542850, 10240230, 233303070
  10, 42, 270, 2730, 34650,  570570, 10720710, 242492250
  11, 44, 276, 2760, 34860,  572880, 10750740, 243002760
  13, 62, 426, 4650, 60270, 1023330, 19429410, 446696250
  15, 68, 456, 4860, 62580, 1053360, 19939920, 456395940
  16, 72, 480, 5040, 64680, 1081080, 20420400, 465585120
  17, 74, 486, 5070, 64890, 1083390, 20450430, 466095630
  18, 90, 630, 6930, 90090, 1531530, 29099070, 669278610

Inverse permutation: A276946.
Transpose: A276943. One more than A286615.
Column 1: A276155.
Row 1: A002110.
Row 2: A276939.
Row 3: A088860 (2*A002110).
Row 11: 2*A276939 (row 2) from 16, 72, 480, 5040, 64680, ... onward.
Row 13: 3*A002110, from 18, 90, 630, 6930, 90090, ... onward.
Cf. A276154.
Cf. also arrays A286625, A276955.

(define (A276945 n) (A276945bi (A002260 n) (A004736 n)))
(define (A276945bi row col) (if (= 1 col) (A276155 row) (A276154 (A276945bi row (- col 1)))))

A(row,1) = A276155(row); for row > 1, A(row,col) = A276154(A(row,col-1)).

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

Original entry on oeis.org

1, 3, 2, 4, 8, 6, 5, 12, 30, 24, 7, 14, 48, 144, 120, 9, 26, 54, 240, 840, 720, 10, 32, 126, 264, 1440, 5760, 5040, 11, 36, 150, 744, 1560, 10080, 45360, 40320, 13, 38, 168, 864, 5160, 10800, 80640, 403200, 362880, 15, 50, 174, 960, 5880, 41040, 85680, 725760, 3991680, 3628800, 16, 56, 246, 984, 6480, 46080, 367920, 766080, 7257600, 43545600, 39916800

Offset: 1

Antti Karttunen, Sep 22 2016

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

Entries on row n are all multiples of n!. Dividing that factor out gives another array A276616.

			The top left corner of the array:
    1,    3,     4,     5,     7,     9,    10,    11,    13,    15,    16
    2,    8,    12,    14,    26,    32,    36,    38,    50,    56,    60
    6,   30,    48,    54,   126,   150,   168,   174,   246,   270,   288
   24,  144,   240,   264,   744,   864,   960,   984,  1464,  1584,  1680
  120,  840,  1440,  1560,  5160,  5880,  6480,  6600, 10200, 10920, 11520
  720, 5760, 10080, 10800, 41040, 46080, 50400, 51120, 81360, 86400, 90720

Inverse permutation: A276954.
Transpose: A276955.
Cf. A276949 (index of row where n appears), A276951 (index of column).
Cf. A153880, A273670.
Row 1: A273670, Row 2: A276932, Row 3: A276933.
Column 1: A000142. For other columns, see the rows of transposed array A276955.
Related or similar permutations: A257503, A275848, A273666.
Cf. also arrays A276616, A276589 & A276943.

(define (A276953 n) (A276953bi (A002260 n) (A004736 n)))
(define (A276953bi row col) (if (= 1 row) (A273670 (- col 1)) (A153880 (A276953bi (- row 1) col))))

A(1,col) = A273670(col-1), and for row > 1, A(row,col) = A153880(A(row-1,col))
As a composition of other permutations:
a(n) = A275848(A257503(n)).
Other identities. For all n >= 1:
A(A276949(n),A276951(n)) = n.

A276155 Complement of A276154; numbers that cannot be obtained by shifting left the primorial base representation (A049345) of some number.

Original entry on oeis.org

1, 3, 4, 5, 7, 9, 10, 11, 13, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 31, 33, 34, 35, 37, 39, 40, 41, 43, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 61, 63, 64, 65, 67, 69, 70, 71, 73, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 91, 93, 94, 95, 97, 99, 100, 101, 103, 105, 106, 107, 108, 109

Offset: 1

Antti Karttunen, Aug 24 2016

The first 25 terms, when viewed in primorial base (A049345) look as: 1, 11, 20, 21, 101, 111, 120, 121, 201, 211, 220, 221, 300, 301, 310, 311, 320, 321, 400, 401, 410, 411, 420, 421, 1001.

Antti Karttunen, Table of n, a(n) for n = 1..10000
Index entries for sequences related to primorial base

Complement: A276154.
Row 1 of A276943 and A286623. Column 1 of A276945 and A286625.
Cf. A002110, A049345.
Cf. A005408, A057588, A061720, A143293, A286630 (subsequences).
For the first 17 terms coincides with A273670.

nn = 109; b = MixedRadix[Reverse@ Prime@ NestWhileList[# + 1 &, 1, Times @@ Prime@ Range[# + 1] <= nn &]]; Complement[Range@ nn, Table[FromDigits[#, b] &@ Append[IntegerDigits[n, b], 0], {n, 0, nn}]] (* Version 10.2, or *)
nn = 109; f[n_] := Block[{a = {{0, n}}}, Do[AppendTo[a, {First@ #, Last@ #} &@ QuotientRemainder[a[[-1, -1]], Times @@ Prime@ Range[# - i]]], {i, 0, #}] &@ NestWhile[# + 1 &, 0, Times @@ Prime@ Range[# + 1] <= n &]; Rest[a][[All, 1]]]; Complement[Range@ nn, Table[Total[Times @@@ Transpose@ {Map[Times @@ # &, Prime@ Range@ Range[0, Length@ # - 1]], Reverse@ #}] &@ Append[f@ n, 0], {n, 0, nn}]] (* Michael De Vlieger, Aug 26 2016 *)

A276939 Row 2 of A276945: a(n) = A002110(n) + A002110(n+1).

Original entry on oeis.org

3, 8, 36, 240, 2520, 32340, 540540, 10210200, 232792560, 6692786100, 207030183360, 7621298624940, 311671001662020, 13387011595197240, 627972543920161440, 33204048259778536140, 1955349508631402683800, 119211141709561183622340, 7975609932439674026862360, 565799151677779228023294480, 41287621429375723111588738860

Offset: 0

Antti Karttunen, Sep 24 2016

a(n) = number whose primorial base representation (A049345) begins with digits "11", followed by n zeros: 11, 110, 1100, 11000, 110000, ...

Michael De Vlieger, Table of n, a(n) for n = 0..349
Index entries for sequences related to primorial base

Row 2 of A276945 (column 2 of A276943).

Cf. A002110, A049345.

Total /@ Partition[FoldList[Times, 1, Prime@ Range[20]], 2, 1] (* Michael De Vlieger, Jun 24 2023 *)

a(n) = factorback(primes(n)) + factorback(primes(n+1)); \\ Michel Marcus, Nov 23 2022

(define (A276939 n) (+ (A002110 n) (A002110 (+ 1 n))))

a(n) = A002110(n) + A002110(n+1).

A286616 Transpose of square array A286615.

Original entry on oeis.org

0, 2, 1, 3, 7, 5, 4, 11, 35, 29, 6, 13, 59, 239, 209, 8, 31, 65, 419, 2519, 2309, 9, 37, 215, 449, 4619, 32339, 30029, 10, 41, 245, 2339, 4829, 60059, 540539, 510509, 12, 43, 269, 2549, 30239, 62369, 1021019, 10210199, 9699689, 14, 61, 275, 2729, 32549, 512819, 1051049, 19399379, 232792559, 223092869

Offset: 1

Antti Karttunen, Jun 30 2017

A permutation of nonnegative integers.

			The top left 7 X 7 corner of the array:
      0,      2,       3,       4,       6,        8,        9
      1,      7,      11,      13,      31,       37,       41
      5,     35,      59,      65,     215,      245,      269
     29,    239,     419,     449,    2339,     2549,     2729
    209,   2519,    4619,    4829,   30239,    32549,    34649
   2309,  32339,   60059,   62369,  512819,   542849,   570569
  30029, 540539, 1021019, 1051049, 9729719, 10240229, 10720709

Transpose: A286615.
One less than A276943.
Column 1: A057588.

(define (A286616 n) (A286615bi (A004736 n) (A002260 n))) ;; For the rest, see under A286615, A276945, etc.

A(n,k) = A286615(k,n) = A276943(n,k)-1.

cp's OEIS Frontend

A286623 Square array A(n,k) = A276943(n,k)/A002110(n-1), read by descending antidiagonals A(1,1), A(1,2), A(2,1), A(1,3), A(2,2), A(3,1), etc.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Scheme

Formula

A276944 Inverse permutation to A276943.

Views

Author

Keywords

Links

Crossrefs

A276154 a(n) = Shift primorial base representation (A049345) of n left by one digit (append one zero to the right, then convert back to decimal).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

PARI

Scheme

Formula

A276945 Square array A(row,col): A(row,1) = A276155(row), and for col > 1, A(row,col) = A276154(A(row,col-1)); Dispersion of primorial base left shift A276154.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Scheme

Formula

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Scheme

Formula

A276155 Complement of A276154; numbers that cannot be obtained by shifting left the primorial base representation (A049345) of some number.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

A276939 Row 2 of A276945: a(n) = A002110(n) + A002110(n+1).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Scheme

Formula

A286616 Transpose of square array A286615.

Views

Author

Keywords

Comments

Examples

Links