A000004 -id:A000004 - cp's OEIS frontend

A238012 Number A(n,k) of partitions of k^n into parts that are at most n with at least one part of each size; square array A(n,k), n>=0, k>=0, read by antidiagonals.

0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 4, 2, 0, 0, 0, 1, 7, 48, 9, 0, 0, 0, 1, 12, 310, 3042, 119, 0, 0, 0, 1, 17, 1240, 109809, 1067474, 4935, 0, 0, 0, 1, 24, 3781, 1655004, 370702459, 2215932130, 596763, 0, 0, 0, 1, 31, 9633, 14942231, 32796849930, 13173778523786, 29012104252380, 211517867, 0, 0

Offset: 0

Alois P. Heinz, Feb 16 2014

In general, column k>=2 is asymptotic to k^(n*(n-1)) / (n!*(n-1)!). - Vaclav Kotesovec, Jun 05 2015

			Square array A(n,k) begins:
  0, 0,   0,       0,         0,           0, ...
  0, 1,   1,       1,         1,           1, ...
  0, 0,   1,       4,         7,          12, ...
  0, 0,   2,      48,       310,        1240, ...
  0, 0,   9,    3042,    109809,     1655004, ...
  0, 0, 119, 1067474, 370702459, 32796849930, ...

Alois P. Heinz, Antidiagonals n = 0..43, flattened
A. V. Sills and D. Zeilberger, Formulae for the number of partitions of n into at most m parts (using the quasi-polynomial ansatz), arXiv:1108.4391 [math.CO], 2011.

Columns k=0-10 give: A000004, A063524, A237999, A239162, A239163, A239164, A239165, A239166, A239167, A239168, A239169.
Rows n=0-2 give: A000004, A057427, A074148(k-1) for k>1.
Main diagonal gives A238001.
Cf. A238010.

A[0, 0] = 0;
A[n_, k_] := SeriesCoefficient[Product[1/(1-x^j), {j, 1, n}], {x, 0, k^n - n(n+1)/2}];
Table[A[n-k, k], {n, 0, 10}, {k, n, 0, -1}] // Flatten (* Jean-François Alcover, Aug 18 2018, after Alois P. Heinz *)

A(n,k) = [x^(k^n-n*(n+1)/2)] Product_{j=1..n} 1/(1-x^j).

A291556 Square array A(n,k), n>=0, k>=0, read by antidiagonals: A(n,k) = (n!)^k * Sum_{i=1..n} 1/i^k.

Original entry on oeis.org

0, 0, 1, 0, 1, 2, 0, 1, 3, 3, 0, 1, 5, 11, 4, 0, 1, 9, 49, 50, 5, 0, 1, 17, 251, 820, 274, 6, 0, 1, 33, 1393, 16280, 21076, 1764, 7, 0, 1, 65, 8051, 357904, 2048824, 773136, 13068, 8, 0, 1, 129, 47449, 8252000, 224021776, 444273984, 38402064, 109584, 9

Offset: 0

Seiichi Manyama, Aug 26 2017

			Square array begins:
   0,  0,   0,     0,      0, ...
   1,  1,   1,     1,      1, ...
   2,  3,   5,     9,     17, ...
   3, 11,  49,   251,   1393, ...
   4, 50, 820, 16280, 357904, ...

Seiichi Manyama, Antidiagonals n = 0..59, flattened

Columns k=0-10 give: A001477, A000254, A001819, A066989, A203229, A099827, A291456, A291505, A291506, A291507, A291508.
Rows n=0-3 give: A000004, A000012, A000051, A074528.
Main diagonal gives A060943.

A:= (n, k)-> n!^k * add(1/i^k, i=1..n):
seq(seq(A(n, d-n), n=0..d), d=0..10);  # Alois P. Heinz, Aug 26 2017

A[0, ] = 0; A[1, ] = 1; A[n_, k_] := A[n, k] = ((n-1)^k + n^k) A[n-1, k] - (n-1)^(2k) A[n-2, k];
Table[A[n-k, k], {n, 0, 10}, {k, n, 0, -1}] // Flatten (* Jean-François Alcover, May 11 2019 *)

A(0, k) = 0, A(1, k) = 1, A(n+1, k) = (n^k+(n+1)^k)*A(n, k) - n^(2*k)*A(n-1, k).

A347233 Möbius transform of A126760.

Original entry on oeis.org

1, 0, 0, 0, 1, 0, 2, 0, 0, 0, 3, 0, 4, 0, 0, 0, 5, 0, 6, 0, 0, 0, 7, 0, 7, 0, 0, 0, 9, 0, 10, 0, 0, 0, 8, 0, 12, 0, 0, 0, 13, 0, 14, 0, 0, 0, 15, 0, 14, 0, 0, 0, 17, 0, 14, 0, 0, 0, 19, 0, 20, 0, 0, 0, 16, 0, 22, 0, 0, 0, 23, 0, 24, 0, 0, 0, 20, 0, 26, 0, 0, 0, 27, 0, 22, 0, 0, 0, 29, 0, 24, 0, 0, 0, 24, 0, 32

Offset: 1

Antti Karttunen, Aug 26 2021

nonn

Antti Karttunen, Table of n, a(n) for n = 1..10000
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..65537

Cf. A008683, A126760.
Cf. A000004, A349339 (even and odd bisection).
Cf. also A323881, A346485, A347234, A349136, A349391, A349392, A349393, A349395.

f[n_] := 2 * Floor[(m = n/2^IntegerExponent[n, 2]/3^IntegerExponent[n, 3])/6] + Mod[m, 3]; a[n_] := DivisorSum[n, f[#] * MoebiusMu[n/#] &]; Array[a, 100] (* Amiram Eldar, Nov 16 2021 *)

A126760(n) = {n&&n\=3^valuation(n, 3)<A126760
A347233(n) = sumdiv(n,d,moebius(n/d)*A126760(d));

a(n) = Sum_{d|n} A008683(n/d) * A126760(d).

A083065 4th row of number array A083064.

Original entry on oeis.org

1, 4, 19, 94, 469, 2344, 11719, 58594, 292969, 1464844, 7324219, 36621094, 183105469, 915527344, 4577636719, 22888183594, 114440917969, 572204589844, 2861022949219, 14305114746094, 71525573730469, 357627868652344

Offset: 0

Paul Barry, Apr 21 2003

Inverse binomial transform of A090040. [Paul Curtz, Jan 11 2009]
Let A be the Hessenberg matrix of order n, defined by: A[1,j]=1, A[i,i]:=7, (i>1), A[i,i-1]=-1, and A[i,j]=0 otherwise. Then, for n>=1, a(n-1)=(-1)^(n-1)*charpoly(A,2). [Milan Janjic, Feb 21 2010]
For an integer x, consider the sequence P(x) of polynomials p_{1}, p_{2}, p_{3}, . . . defined by p_{1} = x-1, p_{n+1} = x*p_{1} - 1. P(5) = This sequence. P(1), P(2), P(3), P(4) are A000004, A123412, A007051, A007583 resp. [K.V.Iyer, Jun 22 2010]
It appears that if s(n) is a first order rational sequence of the form s(0)=2, s(n)= (3*s(n-1)+2)/(2*s(n-1)+3), n>0, then s(n)=2*a(n)/(2*a(n)-1), n>0.
An Engel expansion of 5/3 to the base b := 5/4 as defined in A181565, with the associated series expansion 5/3 = b + b^2/4 + b^3/(4*19) + b^4/(4*19*94) + .... Cf. A007051. - Peter Bala, Oct 29 2013

Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (6,-5).

Cf. A007583, A083066, A007051.

[(3*5^n+1)/4: n in [0..30]]; // Vincenzo Librandi, Nov 04 2011

a[0]:=0:a[1]:=1:for n from 2 to 50 do a[n]:=a[n-1]*5-1 od: seq(a[n], n=1..22); # Zerinvary Lajos, Feb 22 2008

CoefficientList[Series[(1-2x)/((1-5x)(1-x)),{x,0,30}],x] (* or *) LinearRecurrence[{6,-5},{1,4},30] (* Harvey P. Dale, Jul 27 2022 *)

a(n) = (3*5^n+1)/4.
G.f.: (1-2*x)/((1-5*x)(1-x)).
E.g.f.: (3*exp(5*x) + exp(x))/4.
a(n) = 5*a(n-1)-1 with n>0, a(0)=1. - Vincenzo Librandi, Aug 08 2010
a(n) = 6*a(n-1)-5*a(n-2). - Vincenzo Librandi, Nov 04 2011
a(n) = 5^n - Sum_{i=0..n-1} 5^i. - Bruno Berselli, Jun 20 2013

A144903 Square array A(n,k), n>=0, k>=0, read by antidiagonals, where column k is the expansion of x/((1-x-x^3)*(1-x)^(k-1)).

Original entry on oeis.org

0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 2, 1, 1, 0, 1, 3, 3, 2, 1, 0, 1, 4, 6, 5, 3, 1, 0, 1, 5, 10, 11, 8, 4, 2, 0, 1, 6, 15, 21, 19, 12, 6, 3, 0, 1, 7, 21, 36, 40, 31, 18, 9, 4, 0, 1, 8, 28, 57, 76, 71, 49, 27, 13, 6, 0, 1, 9, 36, 85, 133, 147, 120, 76, 40, 19, 9, 0, 1, 10, 45, 121, 218, 280, 267, 196, 116, 59, 28, 13

Offset: 0

Alois P. Heinz, Sep 24 2008

			Square array (A(n,k)) begins:
  0, 0,  0,  0,  0,   0,   0 ... A000004;
  1, 1,  1,  1,  1,   1,   1 ... A000012;
  0, 1,  2,  3,  4,   5,   6 ... A001477;
  0, 1,  3,  6, 10,  15,  21 ... A000217;
  1, 2,  5, 11, 21,  36,  57 ... A050407;
  1, 3,  8, 19, 40,  76, 133 ... ;
  1, 4, 12, 31, 71, 147, 200 ... A027658;
Antidiagonal triangle (T(n,k)) begins as:
  0;
  0,  1;
  0,  1,  0;
  0,  1,  1,  0;
  0,  1,  2,  1,  1;
  0,  1,  3,  3,  2,  1;
  0,  1,  4,  6,  5,  3,  1;
  0,  1,  5, 10, 11,  8,  4,  2;
  0,  1,  6, 15, 21, 19, 12,  6,  3;

Alois P. Heinz, Antidiagonals n = 0..140, flattened

Rows 0-4, 6 give: A000004, A000012, A001477, A000217, A050407(n+3), A027658.
Columns 0-9 give: A078012 and A135851(n+2), A078012(n+2) and A135851(n+4), A077868(n-1) for n>0, A050228(n-1) for n>0, A226405, A144898, A144899, A144900, A144901, A144902.
Main diagonal gives: A144904.
Cf. A000930.

A000930:= func< n | (&+[Binomial(n-2*j,j): j in [0..Floor(n/3)]]) >;
A144903:= func< n,k | k eq 0 select 0 else (&+[Binomial(n-k+j-2,j)*A000930(k-j-1) : j in [0..k-1]]) >;
[A144903(n,k): k in [0..n], n in [0..15]]; // G. C. Greubel, Aug 01 2022

A:= proc(n,k) coeftayl (x/ (1-x-x^3)/ (1-x)^(k-1), x=0, n) end:
seq(seq(A(n, d-n), n=0..d), d=0..13);

(* First program *)
a[n_, k_] := SeriesCoefficient[x/((1-x-x^3)*(1-x)^(k-1)), {x, 0, n}];
Table[a[n-k, k], {n,0,12}, {k,n,0,-1}]//Flatten (* Jean-François Alcover, Jan 15 2014 *)
(* Second Program *)
A000930[n_]:= A000930[n]= Sum[Binomial[n-2*j,j], {j,0,Floor[n/3]}];
T[n_, k_]:= T[n, k]= If[k==0, 0, Sum[Binomial[n-k+j-2,j]*A000930[k-j-1], {j,0,k- 1}]];
Table[T[n, k], {n,0,15}, {k,0,n}]//Flatten (* G. C. Greubel, Aug 01 2022 *)

def A000930(n): return sum(binomial(n-2*j,j) for j in (0..(n//3)))
def A144903(n,k):
    if (k==0): return 0
    else: return sum(binomial(n-k+j-2,j)*A000930(k-j-1) for j in (0..k-1))
flatten([[A144903(n,k) for k in (0..n)] for n in (0..15)]) # G. C. Greubel, Aug 01 2022

G.f. of column k: x/((1-x-x^3)*(1-x)^(k-1)).
A(n, n) = A144904(n).
From G. C. Greubel, Aug 01 2022: (Start)
A(n, k) = Sum_{j=0..n-1} binomial(k+j-2, j)*A000930(n-j-1), with A(0, k) = 0.
T(n, k) = Sum_{j=0..k-1} binomial(n-k-j-2, j)*A000930(k-j-1), with T(n, 0) = 0.
T(2*n, n) = A144904(n). (End)

A152487 Triangle read by rows, 0<=k<=n: T(n,k) = Levenshtein distance of n and k in binary representation.

Original entry on oeis.org

0, 1, 0, 1, 1, 0, 2, 1, 1, 0, 2, 2, 1, 2, 0, 2, 2, 1, 1, 1, 0, 2, 2, 1, 1, 1, 2, 0, 3, 2, 2, 1, 2, 1, 1, 0, 3, 3, 2, 3, 1, 2, 2, 3, 0, 3, 3, 2, 2, 1, 1, 2, 2, 1, 0, 3, 3, 2, 2, 1, 1, 1, 2, 1, 2, 0, 3, 3, 2, 2, 2, 1, 2, 1, 2, 1, 1, 0, 3, 3, 2, 2, 1, 2, 1, 2, 1, 2, 2, 3, 0, 3, 3, 2, 2, 2, 1, 1, 1, 2, 1, 2, 2, 1, 0

Offset: 0

Reinhard Zumkeller, Dec 06 2008

T(n,k) gives number of editing steps (replace, delete and insert) to transform n to k in binary representations;
row sums give A152488; central terms give A057427;
T(n,k) <= Hamming-distance(n,k) for n and k with A070939(n)=A070939(k);
T(n,0) = A000523(n+1);
T(n,1) = A000523(n) for n>0;
T(n,3) = A106348(n-2) for n>2;
T(n,n-1) = A091090(n-1) for n>0;
T(n,n) = A000004(n);
T(A000290(n),n) = A091092(n).
T(n,k) >= A322285(n,k) - Pontus von Brömssen, Dec 02 2018

			The triangle T(n, k) begins:
  n\k  0  1  2  3  4  5  6  7  8  9 10 11 12 13 ...
   0:  0
   1:  1  0
   2:  1  1  0
   3:  2  1  1  0
   4:  2  2  1  2  0
   5:  2  2  1  1  1  0
   6:  2  2  1  1  1  2  0
   7:  3  2  2  1  2  1  1  0
   8:  3  3  2  3  1  2  2  3  0
   9:  3  3  2  2  1  1  2  2  1  0
  10:  3  3  2  2  1  1  1  2  1  2  0
  11:  3  3  2  2  2  1  2  1  2  1  1  0
  12:  3  3  2  2  1  2  1  2  1  2  2  3  0
  13:  3  3  2  2  2  1  1  1  2  1  2  2  1  0
  ...
The distance between the binary representations of 46 and 25 is 4 (via the edits "101110" - "10111" - "10011" - "11011" - "11001"), so T(46,25) = 4. - _Pontus von Brömssen_, Dec 02 2018

Alois P. Heinz, Rows n = 0..200, flattened
Michael Gilleland, Levenshtein Distance
Wikipedia, Levenshtein Distance
Index entries for sequences related to binary expansion of n

Cf. A000004, A000290, A000523, A057427, A070939, A091090, A091092, A106348, A152488, A322285.

T(n,k) = f(n,k) with f(x,y) = if x>y then f(y,x) else if x<=1 then Log2(y)-0^y+(1-x)*0^(y+1-2^(y+1)) else Min{f([x/2],[y/2]) + (x mod 2) XOR (y mod 2), f([x/2],y)+1, f(x,[y/2])+1}, where Log2=A000523.

A325820 Multiplication table for carryless product i X j in base 3 for i >= 0 and j >= 0, read by antidiagonals.

Original entry on oeis.org

0, 0, 0, 0, 1, 0, 0, 2, 2, 0, 0, 3, 1, 3, 0, 0, 4, 6, 6, 4, 0, 0, 5, 8, 9, 8, 5, 0, 0, 6, 7, 12, 12, 7, 6, 0, 0, 7, 3, 15, 16, 15, 3, 7, 0, 0, 8, 5, 18, 11, 11, 18, 5, 8, 0, 0, 9, 4, 21, 24, 13, 24, 21, 4, 9, 0, 0, 10, 18, 24, 19, 21, 21, 19, 24, 18, 10, 0, 0, 11, 20, 27, 23, 26, 9, 26, 23, 27, 20, 11, 0, 0, 12, 19, 30, 36, 19, 15, 15, 19, 36, 30, 19, 12, 0

Offset: 0

Antti Karttunen, May 22 2019

			The array begins as:
  0,  0,  0,  0,  0,  0,  0,  0,  0,   0,   0,   0,   0, ...
  0,  1,  2,  3,  4,  5,  6,  7,  8,   9,  10,  11,  12, ...
  0,  2,  1,  6,  8,  7,  3,  5,  4,  18,  20,  19,  24, ...
  0,  3,  6,  9, 12, 15, 18, 21, 24,  27,  30,  33,  36, ...
  0,  4,  8, 12, 16, 11, 24, 19, 23,  36,  40,  44,  48, ...
  0,  5,  7, 15, 11, 13, 21, 26, 19,  45,  50,  52,  33, ...
  0,  6,  3, 18, 24, 21,  9, 15, 12,  54,  60,  57,  72, ...
  0,  7,  5, 21, 19, 26, 15, 13, 11,  63,  70,  68,  57, ...
  0,  8,  4, 24, 23, 19, 12, 11, 16,  72,  80,  76,  69, ...
  0,  9, 18, 27, 36, 45, 54, 63, 72,  81,  90,  99, 108, ...
  0, 10, 20, 30, 40, 50, 60, 70, 80,  90, 100,  83, 120, ...
  0, 11, 19, 33, 44, 52, 57, 68, 76,  99,  83,  91, 132, ...
  0, 12, 24, 36, 48, 33, 72, 57, 69, 108, 120, 132, 144, ...
  etc.
A(2,2) = 2*2 mod 3 = 1.

Cf. A169999 (the main diagonal).
Row/Column 0: A000004, Row/Column 1: A001477, Row/Column 2: A004488, Row/Column 3: A008585, Row/Column 4: A242399, Row/Column 9: A008591.
Cf. A007089, A207669, A207670, A263273, A325825.
Cf. A325821 (same table without the zero row and column).
Cf. A048720 (binary), A059692 (decimal), A004247 (full multiply).

up_to = 105;
A325820sq(b, c) = fromdigits(Vec(Pol(digits(b,3))*Pol(digits(c,3)))%3, 3);
A325820list(up_to) = { my(v = vector(up_to), i=0); for(a=0,oo, for(col=0,a, if(i++ > up_to, return(v)); v[i] = A325820sq(a-col,col))); (v); };
v325820 = A325820list(up_to);
A325820(n) = v325820[1+n];

A344743 Number of integer partitions of 2n with reverse-alternating sum < 0.

Original entry on oeis.org

0, 0, 1, 3, 7, 15, 29, 54, 96, 165, 275, 449, 716, 1123, 1732, 2635, 3955, 5871, 8620, 12536, 18065, 25821, 36617, 51560, 72105, 100204, 138417, 190134, 259772, 353134, 477734, 643354, 862604, 1151773, 1531738, 2029305, 2678650, 3523378, 4618835, 6035240, 7861292

Offset: 0

Gus Wiseman, Jun 09 2021

nonn

Conjecture: a(n) >= A236914.
The reverse-alternating sum of a partition (y_1,...,y_k) is Sum_i (-1)^(k-i) y_i. This is equal to (-1)^(m-1) times the number of odd parts in the conjugate partition, where m is the number of parts. So a(n) is the number of even-length partitions of 2n with at least one odd conjugate part. By conjugation, this is also the number of partitions of 2n with greatest part even and at least one odd part.
The alternating sum of a partition is never < 0, so the non-reverse version is A000004.

			The a(2) = 1 through a(5) = 15 partitions:
  (31)  (42)    (53)      (64)
        (51)    (62)      (73)
        (3111)  (71)      (82)
                (3221)    (91)
                (4211)    (3331)
                (5111)    (4222)
                (311111)  (4321)
                          (5221)
                          (5311)
                          (6211)
                          (7111)
                          (322111)
                          (421111)
                          (511111)
                          (31111111)

The ordered version (compositions not partitions) appears to be A008549.
The Heinz numbers are A119899 /\ A300061.
Even bisection of A344608.
The complementary partitions of 2n are counted by A344611.
A000041 counts partitions of 2n with alternating sum 0, ranked by A000290.
A001523 counts unimodal compositions (partial sums: A174439).
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A120452 counts partitions of 2n with rev-alt sum 2 (negative: A344741).
A124754 gives alternating sums of standard compositions (reverse: A344618).
A316524 is the alternating sum of the prime indices of n (reverse: A344616).
A325534/A325535 count separable/inseparable partitions.
A344610 counts partitions by sum and positive reverse-alternating sum.
Cf. A000070, A000097, A006330, A027187, A239830, A343941, A344604, A344607, A344650, A344651, A344654.

sats[y_] := Sum[(-1)^(i - Length[y])*y[[i]], {i, Length[y]}];
Table[Length[Select[IntegerPartitions[n],sats[#]<0&]],{n,0,30,2}]

a(n) = A058696(n) - A344611(n).

a(n) = sum of left half of even-indexed rows of A344612.

More terms from Bert Dobbelaere, Jun 12 2021

A371093 a(n) is the 2-adic valuation of 3n+1.

Original entry on oeis.org

0, 2, 0, 1, 0, 4, 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0, 6, 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0, 4, 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0, 5, 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0, 4, 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0, 8, 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0, 4, 0, 1, 0, 2

Offset: 0

Antti Karttunen, Apr 19 2024

When a(n) is applied to square array A257852 we obtain square array A004736, or in other words, a(n) applied to any odd number gives the index of the row where it is located in array A257852.
See further comments in A087230.
The asymptotic density of the occurrences of k = 0, 1, 2, ... is 1/2^(k+1). The asymptotic mean of this sequence is 1. - Amiram Eldar, May 28 2024

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

Bisections: A000004, A087230.
Cf. A004736, A007814, A016777, A067745, A257852.
Cf. also A371092.

Table[IntegerExponent[3*n+1, 2], {n, 0, 105}] (* James C. McMahon, Apr 21 2024 *)

PARI
```
A371093(n) = valuation(1+3*n,2);
```

def A371093(n): return ((m:=3*n) & ~(m+1)).bit_length() # Chai Wah Wu, Apr 20 2024

a(n) = A007814(A016777(n)).
For all n >= 0, A067745(1+n) = A016777(n) / 2^a(n).
G.f.: Sum_{k>=1} k*x^(-1/3 + (-2)^(k + 1)/3 + 2^k)/(1 - x^(2^(k + 1))). - Miles Wilson, Sep 30 2024

A024140 a(n) = 12^n - 1.

Original entry on oeis.org

0, 11, 143, 1727, 20735, 248831, 2985983, 35831807, 429981695, 5159780351, 61917364223, 743008370687, 8916100448255, 106993205379071, 1283918464548863, 15407021574586367, 184884258895036415

Offset: 0

N. J. A. Sloane

In base 12 these are 0, B, BB, BBB, ... . - David Rabahy, Dec 12 2016

Index entries for linear recurrences with constant coefficients, signature (13,-12).

Cf. A001021, A016125, A178248.

Cf. Similar sequences of the type k^n-1: A000004 (k=1), A000225 (k=2), A024023 (k=3), A024036 (k=4), A024049 (k=5), A024062 (k=6), A024075 (k=7), A024088 (k=8), A024101 (k=9), A002283 (k=10), A024127 (k=11), this sequence (k=12).

12^Range[0,20]-1 (* or *) LinearRecurrence[{13,-12},{0,11},20] (* Harvey P. Dale, Feb 01 2019 *)

From Mohammad K. Azarian, Jan 14 2009: (Start)
G.f.: 1/(1-12*x) - 1/(1-x).
E.g.f.: exp(12*x) - exp(x). (End)
a(n) = 12*a(n-1) + 11 for n>0, a(0)=0. - Vincenzo Librandi, Nov 18 2010
a(n) = Sum_{i=1..n} 11^i*binomial(n,n-i) for n>0, a(0)=0. - Bruno Berselli, Nov 11 2015
From Elmo R. Oliveira, Dec 15 2023: (Start)
a(n) = 13*a(n-1) - 12*a(n-2) for n>1.
a(n) = A001021(n)-1 = A178248(n)-2.
a(n) = 11*(A016125(n) - 1)/12. (End)

cp's OEIS Frontend

A238012 Number A(n,k) of partitions of k^n into parts that are at most n with at least one part of each size; square array A(n,k), n>=0, k>=0, read by antidiagonals.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A291556 Square array A(n,k), n>=0, k>=0, read by antidiagonals: A(n,k) = (n!)^k * Sum_{i=1..n} 1/i^k.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A347233 Möbius transform of A126760.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A083065 4th row of number array A083064.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Maple

Mathematica

Formula

A144903 Square array A(n,k), n>=0, k>=0, read by antidiagonals, where column k is the expansion of x/((1-x-x^3)*(1-x)^(k-1)).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Magma

Maple

Mathematica

SageMath

Formula

A152487 Triangle read by rows, 0<=k<=n: T(n,k) = Levenshtein distance of n and k in binary representation.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Formula

A325820 Multiplication table for carryless product i X j in base 3 for i >= 0 and j >= 0, read by antidiagonals.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

PARI

A344743 Number of integer partitions of 2n with reverse-alternating sum < 0.

Views

Author

Keywords