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 11-20 of 27 results. Next

A343662 Irregular triangle read by rows where T(n,k) is the number of strict length k chains of divisors of n, 0 <= k <= Omega(n) + 1.

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 2, 1, 1, 3, 3, 1, 1, 2, 1, 1, 4, 5, 2, 1, 2, 1, 1, 4, 6, 4, 1, 1, 3, 3, 1, 1, 4, 5, 2, 1, 2, 1, 1, 6, 12, 10, 3, 1, 2, 1, 1, 4, 5, 2, 1, 4, 5, 2, 1, 5, 10, 10, 5, 1, 1, 2, 1, 1, 6, 12, 10, 3, 1, 2, 1, 1, 6, 12, 10, 3, 1, 4, 5, 2, 1, 4, 5, 2
Offset: 1

Views

Author

Gus Wiseman, May 01 2021

Keywords

Examples

			Triangle begins:
   1:  1  1
   2:  1  2  1
   3:  1  2  1
   4:  1  3  3  1
   5:  1  2  1
   6:  1  4  5  2
   7:  1  2  1
   8:  1  4  6  4  1
   9:  1  3  3  1
  10:  1  4  5  2
  11:  1  2  1
  12:  1  6 12 10  3
  13:  1  2  1
  14:  1  4  5  2
  15:  1  4  5  2
  16:  1  5 10 10  5  1
For example, row n = 12 counts the following chains:
  ()  (1)   (2/1)   (4/2/1)   (12/4/2/1)
      (2)   (3/1)   (6/2/1)   (12/6/2/1)
      (3)   (4/1)   (6/3/1)   (12/6/3/1)
      (4)   (4/2)   (12/2/1)
      (6)   (6/1)   (12/3/1)
      (12)  (6/2)   (12/4/1)
            (6/3)   (12/4/2)
            (12/1)  (12/6/1)
            (12/2)  (12/6/2)
            (12/3)  (12/6/3)
            (12/4)
            (12/6)

Crossrefs

Column k = 1 is A000005.
Row ends are A008480.
Row lengths are A073093.
Column k = 2 is A238952.
The case from n to 1 is A334996 or A251683 (row sums: A074206).
A non-strict version is A334997 (transpose: A077592).
The case starting with n is A337255 (row sums: A067824).
Row sums are A337256 (nonempty: A253249).
A001055 counts factorizations.
A001221 counts distinct prime factors.
A001222 counts prime factors with multiplicity.
A097805 counts compositions by sum and length.
A122651 counts strict chains of divisors summing to n.
A146291 counts divisors of n with k prime factors (with multiplicity).
A163767 counts length n - 1 chains of divisors of n.
A167865 counts strict chains of divisors > 1 summing to n.
A337070 counts strict chains of divisors starting with superprimorials.
Cf. A002033, A007425, A007426, A051026, A062319, A143773, A186972, A327527, A337074, A337105, A337107, A343658.

Programs

  • Mathematica
    Table[Length[Select[Reverse/@Subsets[Divisors[n],{k}],And@@Divisible@@@Partition[#,2,1]&]],{n,15},{k,0,PrimeOmega[n]+1}]

A343657 Sum of number of divisors of x^y for each x >= 1, y >= 0, x + y = n.

Original entry on oeis.org

1, 2, 4, 7, 12, 18, 27, 39, 56, 77, 103, 134, 174, 223, 283, 356, 445, 547, 666, 802, 959, 1139, 1344, 1574, 1835, 2128, 2454, 2815, 3213, 3648, 4126, 4653, 5239, 5888, 6608, 7407, 8298, 9288, 10385, 11597, 12936, 14408, 16025, 17799, 19746, 21882, 24221
Offset: 1

Views

Author

Gus Wiseman, Apr 29 2021

Keywords

Examples

			The a(7) = 27 divisors:
  1  32  81  64  25  6  1
     16  27  32  5   3
     8   9   16  1   2
     4   3   8       1
     2   1   4
     1       2
             1

Links

Crossrefs

Antidiagonal row sums (row sums of the triangle) of A343656.
Dominated by A343661.
A000005(n) counts divisors of n.
A000312(n) = n^n.
A007318(n,k) counts k-sets of elements of {1..n}.
A009998(n,k) = n^k (as an array, offset 1).
A059481(n,k) counts k-multisets of elements of {1..n}.
A343658(n,k) counts k-multisets of divisors of n.
Cf. A000169, A000272, A002064, A002109, A048691, A062319, A066959, A143773, A146291, A176029, A251683, A282935, A326358, A327527, A334996.

Programs

  • Mathematica
    Total/@Table[DivisorSigma[0,k^(n-k)],{n,30},{k,n}]

Formula

a(n) = Sum_{k=1..n} A000005(k^(n-k)).

A344859 a(n) is the number of divisors of n^n + 1.

Original entry on oeis.org

2, 2, 2, 6, 2, 8, 8, 16, 8, 16, 8, 96, 16, 32, 48, 160, 4, 12, 288, 48, 8, 64, 16, 512, 64, 128, 32, 3072, 64, 128, 1024, 384, 16, 2048, 64, 18432, 32, 128, 192, 512, 768, 64, 1024, 384, 256, 16384, 256, 2560, 64, 192, 1024, 3072, 32, 512, 16384, 4096, 128, 8192, 8192, 768, 4096, 256, 128, 1376256, 16
Offset: 0

Views

Author

Seiichi Manyama, May 31 2021

Keywords

Links

Crossrefs

Cf. A000005, A014566, A062319, A064144, A121270, A334167.
Cf. A007571 (Lpf), A055385 (lpf).

Programs

  • Mathematica
    a[0] = 2; a[n_] := DivisorSigma[0, n^n + 1]; Array[a, 45, 0] (* Amiram Eldar, May 31 2021 *)
  • PARI
    a(n) = numdiv(n^n+1);

Formula

a(n) = A000005(A014566(n)).

A343935 Number of ways to choose a multiset of n divisors of n.

Original entry on oeis.org

1, 3, 4, 15, 6, 84, 8, 165, 55, 286, 12, 6188, 14, 680, 816, 4845, 18, 33649, 20, 53130, 2024, 2300, 24, 2629575, 351, 3654, 4060, 237336, 30, 10295472, 32, 435897, 7140, 7770, 8436, 177232627, 38, 10660, 11480, 62891499, 42, 85900584, 44, 1906884, 2118760
Offset: 1

Views

Author

Gus Wiseman, May 05 2021

Keywords

Examples

			The a(1) = 1 through a(5) = 6 multisets:
  {1}  {1,1}  {1,1,1}  {1,1,1,1}  {1,1,1,1,1}
       {1,2}  {1,1,3}  {1,1,1,2}  {1,1,1,1,5}
       {2,2}  {1,3,3}  {1,1,1,4}  {1,1,1,5,5}
              {3,3,3}  {1,1,2,2}  {1,1,5,5,5}
                       {1,1,2,4}  {1,5,5,5,5}
                       {1,1,4,4}  {5,5,5,5,5}
                       {1,2,2,2}
                       {1,2,2,4}
                       {1,2,4,4}
                       {1,4,4,4}
                       {2,2,2,2}
                       {2,2,2,4}
                       {2,2,4,4}
                       {2,4,4,4}
                       {4,4,4,4}

Crossrefs

Diagonal n = k of A343658.
Choosing n divisors of n - 1 gives A343936.
The version for chains of divisors is A343939.
A000005 counts divisors.
A000312 = n^n.
A007318 counts k-sets of elements of {1..n}.
A009998 = n^k (as an array, offset 1).
A059481 counts k-multisets of elements of {1..n}.
A146291 counts divisors of n with k prime factors (with multiplicity).
A253249 counts nonempty chains of divisors of n.
Strict chains of divisors:
- A067824 counts strict chains of divisors starting with n.
- A074206 counts strict chains of divisors from n to 1.
- A251683 counts strict length k + 1 chains of divisors from n to 1.
- A334996 counts strict length-k chains of divisors from n to 1.
- A337255 counts strict length-k chains of divisors starting with n.
- A337256 counts strict chains of divisors of n.
- A343662 counts strict length-k chains of divisors.
Cf. A062319, A143773, A163767, A176029, A327527, A334997, A343661.

Programs

  • Mathematica
    multchoo[n_,k_]:=Binomial[n+k-1,k];
Table[multchoo[DivisorSigma[0,n],n],{n,25}]
  • Python
    from math import comb
from sympy import divisor_count
def A343935(n): return comb(divisor_count(n)+n-1,n) # Chai Wah Wu, Jul 05 2024

Formula

a(n) = ((sigma(n), n)) = binomial(sigma(n) + n - 1, n) where sigma = A000005 and binomial = A007318.

A343661 Sum of numbers of y-multisets of divisors of x for each x >= 1, y >= 0, x + y = n.

Original entry on oeis.org

1, 2, 4, 7, 12, 19, 30, 46, 70, 105, 155, 223, 316, 443, 619, 865, 1210, 1690, 2354, 3263, 4497, 6157, 8368, 11280, 15078, 19989, 26296, 34356, 44626, 57693, 74321, 95503, 122535, 157101, 201377, 258155, 330994, 424398, 544035, 696995, 892104, 1140298, 1455080
Offset: 1

Views

Author

Gus Wiseman, Apr 30 2021

Keywords

Examples

			The a(5) = 12 multisets of divisors:
  {1,1,1,1}  {1,1,1}  {1,1}  {1}  {}
             {1,1,2}  {1,3}  {2}
             {1,2,2}  {3,3}  {4}
             {2,2,2}

Crossrefs

Antidiagonal sums of the array A343658 (or row sums of the triangle).
Dominates A343657.
A000005 counts divisors.
A007318 counts k-sets of elements of {1..n}.
A059481 counts k-multisets of elements of {1..n}.
A343656 counts divisors of powers.
Cf. A000169, A000312, A009998, A062319, A067824, A143773, A146291, A176029, A184389, A285572, A326077, A327527, A334996, A343652, A343657.

Programs

  • Mathematica
    multchoo[n_,k_]:=Binomial[n+k-1,k];
Table[Sum[multchoo[DivisorSigma[0,k],n-k],{k,n}],{n,10}]

Formula

a(n) = Sum_{k=1..n} binomial(sigma(k) + n - k - 1, n - k).

A343939 Number of n-chains of divisors of n.

Original entry on oeis.org

1, 3, 4, 15, 6, 49, 8, 165, 55, 121, 12, 1183, 14, 225, 256, 4845, 18, 3610, 20, 4851, 484, 529, 24, 73125, 351, 729, 4060, 12615, 30, 29791, 32, 435897, 1156, 1225, 1296, 494209, 38, 1521, 1600, 505981, 42, 79507, 44, 46575, 49726, 2209, 48
Offset: 1

Views

Author

Gus Wiseman, May 05 2021

Keywords

Examples

			The a(1) = 1 through a(5) = 6 chains:
  (1)  (1/1)  (1/1/1)  (1/1/1/1)  (1/1/1/1/1)
       (2/1)  (3/1/1)  (2/1/1/1)  (5/1/1/1/1)
       (2/2)  (3/3/1)  (2/2/1/1)  (5/5/1/1/1)
              (3/3/3)  (2/2/2/1)  (5/5/5/1/1)
                       (2/2/2/2)  (5/5/5/5/1)
                       (4/1/1/1)  (5/5/5/5/5)
                       (4/2/1/1)
                       (4/2/2/1)
                       (4/2/2/2)
                       (4/4/1/1)
                       (4/4/2/1)
                       (4/4/2/2)
                       (4/4/4/1)
                       (4/4/4/2)
                       (4/4/4/4)

Crossrefs

Diagonal n = k - 1 of the array A077592.
Chains of length n - 1 are counted by A163767.
Diagonal n = k of the array A334997.
The version counting all multisets of divisors (not just chains) is A343935.
A000005(n) counts divisors of n.
A067824(n) counts strict chains of divisors starting with n.
A074206(n) counts strict chains of divisors from n to 1.
A146291(n,k) counts divisors of n with k prime factors (with multiplicity).
A251683(n,k-1) counts strict k-chains of divisors from n to 1.
A253249(n) counts nonempty chains of divisors of n.
A334996(n,k) counts strict k-chains of divisors from n to 1.
A337255(n,k) counts strict k-chains of divisors starting with n.
A343658(n,k) counts k-multisets of divisors of n.
A343662(n,k) counts strict k-chains of divisors of n (row sums: A337256).
Cf. A062319, A066959, A143773, A176029, A327527, A343656.

Programs

  • Mathematica
    Table[Length[Select[Tuples[Divisors[n],n],OrderedQ[#]&&And@@Divisible@@@Reverse/@Partition[#,2,1]&]],{n,10}]

A280256 Numbers k such that tau(k^k) is a prime.

Original entry on oeis.org

2, 9, 6561, 25937424601, 1853020188851841, 58149737003040059690390169, 54116956037952111668959660849, 2787593149816327892691964784081045188247552, 2465034704958067503996131453373943813074726512397600969, 285273917723723876056171083405292782327767461712708093041
Offset: 1

Views

Author

Jaroslav Krizek, Mar 07 2017

Keywords

Comments

tau(k) is the number of positive divisors of k (A000005).
Numbers k such that A000005(A000312(k)) = A062319(k) is a prime.
Corresponding values of primes: 3, 19, 52489, ...
All the terms are prime powers.

Examples

			tau(9^9) = tau(387420489) = 19 (prime).

Links

Crossrefs

Cf. A000005, A000312, A062319, A280255, A280257.

Programs

  • Magma
    [n: n in [1..500] | IsPrime(NumberOfDivisors(n^n))];
  • Mathematica
    mx = 10^200; Union@ Flatten@ Reap[ Sow[2^ Select[ Range@ Log2[mx], PrimeQ[1 + # 2^#] &]]; Do[ If[ PrimeQ[1 + q p^q], Sow[p^q]], {p, Prime@ Range@ PrimePi@ 34}, {q, 2, Log[p, mx], 2}]; Do[ Sow@ (Select[ Prime@ Range[2, PrimePi[ mx^(1/e)]], PrimeQ[1 + e #^e] &]^e), {e, 34, Floor@Log[31, mx], 2}]][[2, 1]] (* all the 231 terms < 10^200, Giovanni Resta, Mar 07 2017 *)
  • PARI
    isok(n) = isprime(numdiv(n^n)); \\ Michel Marcus, Mar 07 2017

Extensions

a(4)-a(10) from Giovanni Resta, Mar 07 2017

A344226 a(n) = Sum_{d|n} n^omega(d) / d.

Original entry on oeis.org

1, 2, 2, 4, 2, 12, 2, 8, 5, 18, 2, 50, 2, 24, 24, 16, 2, 90, 2, 80, 32, 36, 2, 198, 7, 42, 14, 110, 2, 1232, 2, 32, 48, 54, 48, 476, 2, 60, 56, 324, 2, 2310, 2, 170, 210, 72, 2, 782, 9, 338, 72, 200, 2, 756, 72, 450, 80, 90, 2, 12558, 2, 96, 290, 64, 84, 5474, 2, 260, 96, 5940
Offset: 1

Views

Author

Seiichi Manyama, May 12 2021

Keywords

Links

Crossrefs

Cf. A062319, A344223.

Programs

  • Mathematica
    Table[DivisorSum[n,n^PrimeNu@#/#&],{n,100}] (* Giorgos Kalogeropoulos, May 13 2021 *)
  • PARI
    a(n) = sumdiv(n, d, n^omega(d)/d);
  • PARI
    a(n) = sum(k=1, n, numdiv(gcd(k, n)^n))/n;
  • PARI
    a(n) = sumdiv(n, d, eulerphi(n/d)*numdiv(d^n))/n;

Formula

a(n) = (1/n) * Sum_{k=1..n} tau(gcd(k,n)^n).
a(n) = (1/n) * Sum_{d|n} phi(n/d) * tau(d^n).
If p is prime, a(p) = 2.

A046688 Antidiagonals of square array in which k-th row (k>0) is an arithmetic progression of difference 2^(k-1).

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 1, 3, 3, 1, 1, 4, 5, 5, 1, 1, 5, 7, 9, 9, 1, 1, 6, 9, 13, 17, 17, 1, 1, 7, 11, 17, 25, 33, 33, 1, 1, 8, 13, 21, 33, 49, 65, 65, 1, 1, 9, 15, 25, 41, 65, 97, 129, 129, 1, 1, 10, 17, 29, 49, 81, 129, 193, 257, 257, 1, 1, 11, 19, 33, 57, 97, 161, 257, 385, 513, 513, 1
Offset: 0

Views

Author

N. J. A. Sloane

Keywords

Examples

			From _Gus Wiseman_, May 08 2021: (Start):
Array A(m,n) = 1 + n*2^(m-1) begins:
       n=0: n=1: n=2: n=3: n=4: n=5: n=6: n=7: n=8: n=9:
  m=0:   1    1    1    1    1    1    1    1    1    1
  m=1:   1    2    3    5    9   17   33   65  129  257
  m=2:   1    3    5    9   17   33   65  129  257  513
  m=3:   1    4    7   13   25   49   97  193  385  769
  m=4:   1    5    9   17   33   65  129  257  513 1025
  m=5:   1    6   11   21   41   81  161  321  641 1281
  m=6:   1    7   13   25   49   97  193  385  769 1537
  m=7:   1    8   15   29   57  113  225  449  897 1793
  m=8:   1    9   17   33   65  129  257  513 1025 2049
  m=9:   1   10   19   37   73  145  289  577 1153 2305
Triangle T(n,k) = 1 + (n-k)*2^(k-1) begins:
   1
   1   1
   1   2   1
   1   3   3   1
   1   4   5   5   1
   1   5   7   9   9   1
   1   6   9  13  17  17   1
   1   7  11  17  25  33  33   1
   1   8  13  21  33  49  65  65   1
   1   9  15  25  41  65  97 129 129   1
   1  10  17  29  49  81 129 193 257 257   1
   1  11  19  33  57  97 161 257 385 513 513   1
(End)

References

  • G. H. Hardy, A Theorem Concerning the Infinite Cardinal Numbers, Quart. J. Math., 35 (1904), p. 90 = Collected Papers, Vol. VII, p. 430.

Links

Crossrefs

Row sums are A000079.
Diagonal n = m + 1 of the array is A002064.
Diagonal n = m of the array is A005183.
Column m = 1 of the array is A094373.
Diagonal n = m - 1 of the array is A131056.
A002109 gives hyperfactorials (sigma: A260146, omega: A303281).
A009998(k,n) = n^k.
A009999(n,k) = n^k.
A057156 = (2^n)^(2^n).
A062319 counts divisors of n^n.
Cf. A000169, A000272, A000312, A036289, A343656, A343658.

Programs

  • Mathematica
    Table[If[k==0,1,n*2^(k-1)+1],{n,0,9},{k,0,9}] (* ARRAY, Gus Wiseman, May 08 2021 *)
Table[If[k==0,1,1+(n-k)*2^(k-1)],{n,0,10},{k,0,n}] (* TRIANGLE, Gus Wiseman, May 08 2021 *)
  • PARI
    A(m,n)={if(m>0, 1+n*2^(m-1), 1)}
{ for(m=0, 10, for(n=0, 10, print1(A(m,n), ", ")); print) } \\ Andrew Howroyd, Mar 07 2020

Formula

A(m,n) = 1 + n*2^(m-1) for m > 1. - Andrew Howroyd, Mar 07 2020
As a triangle, T(n,k) = A(k,n-k) = 1 + (n-k)*2^(k-1). - Gus Wiseman, May 08 2021

Extensions

More terms from Larry Reeves (larryr(AT)acm.org), Apr 06 2000

A173339 Positive integers n for which the number of divisors of n^n is a square.

Original entry on oeis.org

1, 3, 4, 6, 8, 10, 14, 15, 21, 22, 26, 33, 34, 35, 36, 38, 39, 46, 51, 55, 57, 58, 60, 62, 65, 69, 74, 77, 82, 84, 85, 86, 87, 91, 93, 94, 95, 100, 106, 111, 115, 118, 119, 120, 122, 123, 129, 133, 134, 141, 142, 143, 145, 146
Offset: 1

Views

Author

John W. Layman, Feb 16 2010

Keywords

Crossrefs

Cf. A062319

Programs

  • PARI
    isok(n) = issquare(numdiv(n^n)); \\ Michel Marcus, Jul 09 2014
Previous Showing 11-20 of 27 results. Next

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.