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.

Showing 1-3 of 3 results.

A089208 Duplicate of A083282.

Original entry on oeis.org

1, 64, 19683, 16777216, 30517578125, 101559956668416, 558545864083284007
Offset: 1

Views

Author

Keywords

A089072 Triangle read by rows: T(n,k) = k^n, n >= 1, 1 <= k <= n.

Original entry on oeis.org

1, 1, 4, 1, 8, 27, 1, 16, 81, 256, 1, 32, 243, 1024, 3125, 1, 64, 729, 4096, 15625, 46656, 1, 128, 2187, 16384, 78125, 279936, 823543, 1, 256, 6561, 65536, 390625, 1679616, 5764801, 16777216, 1, 512, 19683, 262144, 1953125, 10077696, 40353607, 134217728, 387420489
Offset: 1

Views

Author

Alford Arnold, Dec 04 2003

Keywords

Comments

T(n, k) = number of mappings from an n-element set into a k-element set. - Clark Kimberling, Nov 26 2004
Let S be the semigroup of (full) transformations on [n]. Let a be in S with rank(a) = k. Then T(n,k) = |a S|, the number of elements in the right principal ideal generated by a. - Geoffrey Critzer, Dec 30 2021
From Manfred Boergens, Jun 23 2024: (Start)
In the following two comments the restriction k<=n can be lifted, allowing all k>=1.
T(n,k) is the number of n X k binary matrices with row sums = 1.
T(n,k) is the number of coverings of [n] by tuples (A_1,...,A_k) in P([n])^k with disjoint A_j, with P(.) denoting the power set.
For nonempty A_j see A019538.
For tuples with "disjoint" dropped see A092477.
For tuples with nonempty A_j and with "disjoint" dropped see A218695. (End)

Examples

			Triangle begins:
  1;
  1,  4;
  1,  8,  27;
  1, 16,  81,  256;
  1, 32, 243, 1024,  3125;
  1, 64, 729, 4096, 15625, 46656;
  ...
		

Crossrefs

Related to triangle of Eulerian numbers A008292.

Programs

  • Haskell
    a089072 = flip (^)
    a089072_row n = map (a089072 n) [1..n]
    a089072_tabl = map a089072_row [1..]  -- Reinhard Zumkeller, Mar 18 2013
    
  • Magma
    [k^n: k in [1..n], n in [1..12]]; // G. C. Greubel, Nov 01 2022
    
  • Mathematica
    Column[Table[k^n, {n, 8}, {k, n}], Center] (* Alonso del Arte, Nov 14 2011 *)
  • SageMath
    flatten([[k^n for k in range(1,n+1)] for n in range(1,12)]) # G. C. Greubel, Nov 01 2022

Formula

Sum_{k=1..n} T(n, k) = A031971(n).
T(n, n) = A000312(n).
T(2*n, n) = A062206(n).
a(n) = (n + T*(1-T)/2)^T, where T = round(sqrt(2*n),0). - Gerald Hillier, Apr 12 2015
T(n,k) = A051129(n,k). - R. J. Mathar, Dec 10 2015
T(n,k) = Sum_{i=0..k} Stirling2(n,i)*binomial(k,i)*i!. - Geoffrey Critzer, Dec 30 2021
From G. C. Greubel, Nov 01 2022: (Start)
T(n, n-1) = A007778(n-1), n >= 2.
T(n, n-2) = A008788(n-2), n >= 3.
T(2*n+1, n) = A085526(n).
T(2*n-1, n) = A085524(n).
T(2*n-1, n-1) = A085526(n-1), n >= 2.
T(3*n, n) = A083282(n).
Sum_{k=1..n} (-1)^k * T(n, k) = (-1)^n * A120485(n).
Sum_{k=1..floor(n/2)} T(n-k, k) = A226065(n).
Sum_{k=1..floor(n/2)} T(n, k) = A352981(n).
Sum_{k=1..floor(n/3)} T(n, k) = A352982(n). (End)

Extensions

More terms and better definition from Herman Jamke (hermanjamke(AT)fastmail.fm), Jul 10 2004
Offset corrected by Reinhard Zumkeller, Mar 18 2013

A383746 Numbers k such that k divides the sum of the digits of k^(3k).

Original entry on oeis.org

1, 2, 3, 6, 9, 11, 18, 38, 43, 87, 126, 670, 1098, 2421, 3588, 4201, 5114, 5877, 5922, 6048, 11799, 46119, 46419, 55098, 55945, 77439, 91541, 129624, 153229, 182402
Offset: 1

Views

Author

J.W.L. (Jan) Eerland, May 08 2025

Keywords

Examples

			2 is a term since the sum of digits of 2^(3*2) is 64, which is divisible by 2.
3 is a term since the sum of digits of 3^(3*3) is 19683, which is divisible by 3.
1098 is a term since the sum of digits of 1098^(3*1098) is 45018, which is divisible by 1098.
		

Crossrefs

Programs

  • Mathematica
    Do[If[Mod[Plus @@ IntegerDigits[n^(3*n)], n] == 0, Print[n]], {n, 1, 10000}]
  • Python
    from gmpy2 import digits, mpz
    def ok(n): return n and sum(map(mpz, digits(n**(3*n))))%n == 0
    print([k for k in range(1100) if ok(k)]) # Michael S. Branicky, May 08 2025

Extensions

a(21)-a(23) and a(28)-a(30) from Michael S. Branicky, May 08 2025
Showing 1-3 of 3 results.