A027383 -id:A027383 - cp's OEIS frontend

A198310 Moore lower bound on the order of a (10,g)-cage.

11, 20, 101, 182, 911, 1640, 8201, 14762, 73811, 132860, 664301, 1195742, 5978711, 10761680, 53808401, 96855122, 484275611, 871696100, 4358480501, 7845264902, 39226324511, 70607384120, 353036920601, 635466457082, 3177332285411

Offset: 3

Jason Kimberley, Oct 30 2011

Paolo Xausa, Table of n, a(n) for n = 3..1000
Gordon Royle, Cages of higher valency
Index entries for linear recurrences with constant coefficients, signature (1,9,-9).

Moore lower bound on the order of a (k,g) cage: A198300 (square); rows: A000027 (k=2), A027383 (k=3), A062318 (k=4), A061547 (k=5), A198306 (k=6), A198307 (k=7), A198308 (k=8), A198309 (k=9), this sequence (k=10), A094626 (k=11); columns: A020725 (g=3), A005843 (g=4), A002522 (g=5), A051890 (g=6), A188377 (g=7).

A198310[n_] := (-3-(-3)^n+4*3^n)/12; Array[A198310, 30, 3] (* or *)
LinearRecurrence[{1, 9, -9}, {11, 20, 101}, 30] (* Paolo Xausa, Feb 21 2024 *)

a(n)=(-3-(-3)^n+4*3^n)/12 \\ Charles R Greathouse IV, Jul 06 2017

a(2i) = 2*Sum_{j=0..i-1} 9^j =  string "2"^i read in base 9.
a(2i+1) = 9^i +  2*Sum_{j=0..i-1} 9^j = string "1"*"2"^i read in base 9.
From Colin Barker, Feb 01 2013: (Start)
a(n) = (-3-(-3)^n+4*3^n)/12.
a(n) = a(n-1)+9*a(n-2)-9*a(n-3).
G.f.: -x^3*(18*x^2-9*x-11) / ((x-1)*(3*x-1)*(3*x+1)). (End)
E.g.f.: (3*(cosh(3*x) - cosh(x) - sinh(x)) + 5*sinh(3*x))/12 - x - x^2. - Stefano Spezia, Apr 09 2022

A329860 Triangle read by rows where T(n,k) is the number of binary words of length n with cuts-resistance k.

Original entry on oeis.org

1, 0, 2, 0, 2, 2, 0, 2, 4, 2, 0, 2, 8, 4, 2, 0, 2, 12, 12, 4, 2, 0, 2, 20, 22, 14, 4, 2, 0, 2, 28, 48, 28, 16, 4, 2, 0, 2, 44, 84, 70, 32, 18, 4, 2, 0, 2, 60, 162, 136, 90, 36, 20, 4, 2, 0, 2, 92, 276, 298, 178, 110, 40, 22, 4, 2, 0, 2, 124, 500, 564, 432, 220, 132, 44, 24, 4, 2

Offset: 0

Gus Wiseman, Nov 23 2019

For the operation of shortening all runs by 1, cuts-resistance is defined to be the number of applications required to reach an empty word.

			Triangle begins:
   1
   0   2
   0   2   2
   0   2   4   2
   0   2   8   4   2
   0   2  12  12   4   2
   0   2  20  22  14   4   2
   0   2  28  48  28  16   4   2
   0   2  44  84  70  32  18   4   2
   0   2  60 162 136  90  36  20   4   2
   0   2  92 276 298 178 110  40  22   4   2
   0   2 124 500 564 432 220 132  44  24   4   2
Row n = 4 counts the following words:
  0101  0010  0001  0000
  1010  0011  0111  1111
        0100  1000
        0110  1110
        1001
        1011
        1100
        1101

Claude Lenormand, Deux transformations sur les mots, Preprint, 5 pages, Nov 17 2003.

Column k = 2 appears to be 2 * A027383.
The version for runs-resistance is A319411 or A329767.
The cuts-resistance of the binary expansion of n is A319416(n).
The version for compositions is A329861.
Cf. A000975, A164707, A261983, A318928, A319420, A319421, A329738, A329865.

degdep[q_]:=Length[NestWhileList[Join@@Rest/@Split[#]&,q,Length[#]>0&]]-1;
Table[Length[Select[Tuples[{0,1},n],degdep[#]==k&]],{n,0,10},{k,0,n}]

For positive indices, T(n,k) = 2 * A319421(n,k).

A349800 Number of integer compositions of n that are weakly alternating and have at least two adjacent equal parts.

Original entry on oeis.org

0, 0, 1, 1, 4, 9, 16, 33, 62, 113, 205, 373, 664, 1190, 2113, 3744, 6618, 11683, 20564, 36164, 63489, 111343, 195042, 341357, 596892, 1042976, 1821179, 3178145, 5543173, 9663545, 16839321, 29332231, 51075576, 88908912, 154722756, 269186074, 468221264

Offset: 0

Gus Wiseman, Dec 16 2021

nonn

We define a sequence to be weakly alternating if it is alternately weakly increasing and weakly decreasing, starting with either.

This sequence counts compositions that are weakly but not strongly alternating; also weakly alternating non-anti-run compositions.

			The a(2) = 1 through a(6) = 16 compositions:
  (1,1)  (1,1,1)  (2,2)      (1,1,3)      (3,3)
                  (1,1,2)    (1,2,2)      (1,1,4)
                  (2,1,1)    (2,2,1)      (2,2,2)
                  (1,1,1,1)  (3,1,1)      (4,1,1)
                             (1,1,1,2)    (1,1,1,3)
                             (1,1,2,1)    (1,1,2,2)
                             (1,2,1,1)    (1,1,3,1)
                             (2,1,1,1)    (1,3,1,1)
                             (1,1,1,1,1)  (2,2,1,1)
                                          (3,1,1,1)
                                          (1,1,1,1,2)
                                          (1,1,1,2,1)
                                          (1,1,2,1,1)
                                          (1,2,1,1,1)
                                          (2,1,1,1,1)
                                          (1,1,1,1,1,1)

Andrew Howroyd, Table of n, a(n) for n = 0..1000
Wikipedia, Alternating permutation

This is the weakly alternating case of A345192, ranked by A345168.
The case of partitions is A349795, ranked by A350137.
The version counting permutations of prime indices is A349798.
These compositions are ranked by A349799.
A001250 = alternating permutations, ranked by A349051, complement A348615.
A003242 = Carlitz (anti-run) compositions, ranked by A333489.
A025047/A025048/A025049 = alternating compositions, ranked by A345167.
A261983 = non-anti-run compositions, ranked by A348612.
A345165 = partitions without an alternating permutation, ranked by A345171.
A345170 = partitions with an alternating permutation, ranked by A345172.
A345173 = non-alternating anti-run partitions, ranked by A345166.
A345195 = non-alternating anti-run compositions, ranked by A345169.
A348377 = non-alternating non-twin compositions.
A349801 = non-alternating partitions, ranked by A289553.
Weakly alternating:
- A349052 = compositions, directed A129852/A129853, complement A349053.
- A349056 = permutations of prime indices, complement A349797.
- A349057 = complement of standard composition numbers (too dense).
- A349058 = patterns, complement A350138.
- A349059 = ordered factorizations, complement A350139.
- A349060 = partitions, complement A349061.
Cf. A008965, A011782, A027383, A096441, A274230, A333213, A344614, A344615, A348382, A348613, A349796, A350140.

wigQ[y_]:=Or[Length[y]==0,Length[Split[y]]==Length[y] &&Length[Split[Sign[Differences[y]]]]==Length[y]-1];
whkQ[y_]:=And@@Table[If[EvenQ[m],y[[m]]<=y[[m+1]],y[[m]]>=y[[m+1]]],{m,1,Length[y]-1}];
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],(whkQ[#]||whkQ[-#])&&!wigQ[#]&]],{n,0,10}]

a(n) = A349052(n) - A025047(n). - Andrew Howroyd, Jan 31 2024

a(21) onwards from Andrew Howroyd, Jan 31 2024

A319421 Triangle read by rows: T(n,k) (1 <= k <= n) = one-half of the number of binary vectors of length n and cuts-resistance k.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 1, 4, 2, 1, 1, 6, 6, 2, 1, 1, 10, 11, 7, 2, 1, 1, 14, 24, 14, 8, 2, 1, 1, 22, 42, 35, 16, 9, 2, 1, 1, 30, 81, 68, 45, 18, 10, 2, 1, 1, 46, 138, 149, 89, 55, 20, 11, 2, 1, 1, 62, 250, 282, 216, 110, 66, 22, 12, 2, 1, 1, 94, 419, 577, 422, 285, 132, 78, 24, 13, 2, 1

Offset: 1

N. J. A. Sloane, Sep 23 2018

Cuts-resistance is defined in A319416.
This triangle summarizes the data shown in A319420.
Conjecture (Sloane): Sum_{i = 1..n} i * T(n,i) = A189391(n).

			Triangle begins:
   1
   1   1
   1   2   1
   1   4   2   1
   1   6   6   2   1
   1  10  11   7   2   1
   1  14  24  14   8   2   1
   1  22  42  35  16   9   2   1
   1  30  81  68  45  18  10   2   1
   1  46 138 149  89  55  20  11   2   1
   1  62 250 282 216 110  66  22  12   2   1
   1  94 419 577 422 285 132  78  24  13   2   1
Lenormand gives first 15 rows.
For example, the "1,2,1" row here refers to the 8 vectors of length 3. There are 2 vectors of cuts-resistance 1, namely 010 and 101 (see A319416), 4 vectors of cuts-resistance 2 (100,011,001,110), and 2 of cuts-resistance 3 (000 and 111). Halving these counts we get 1,2,1

Claude Lenormand, Deux transformations sur les mots, Preprint, 5 pages, Nov 17 2003. Apparently unpublished. This is a scanned copy of the version that the author sent to me in 2003. See page 4.
N. J. A. Sloane, Coordination Sequences, Planing Numbers, and Other Recent Sequences (II), Experimental Mathematics Seminar, Rutgers University, Jan 31 2019, Part I, Part 2, Slides. (Mentions this sequence)

Row sums are A000079.
Column k = 2 appears to be A027383.
The version for runs-resistance is A319411 or A329767.
The version for compositions is A329861.
The cuts-resistance of the binary expansion of n is A319416(n).
Cf. A000975, A164707, A189391, A261983, A318921, A318928, A319420, A329738, A329860, A329865.

degdep[q_]:=Length[NestWhileList[Join@@Rest/@Split[#]&,q,Length[#]>0&]]-1;
Table[Length[Select[Tuples[{0,1},n],First[#]==1&°dep[#]==k&]],{n,8},{k,n}] (* Gus Wiseman, Nov 25 2019 *)

T(n,k) = A329860(n,k)/2. - Gus Wiseman, Nov 25 2019

A351004 Alternately constant partitions. Number of integer partitions y of n such that y_i = y_{i+1} for all odd i.

Original entry on oeis.org

1, 1, 2, 2, 3, 3, 5, 4, 7, 7, 10, 9, 15, 13, 21, 19, 28, 26, 40, 35, 54, 49, 72, 64, 97, 87, 128, 115, 167, 151, 220, 195, 284, 256, 366, 328, 469, 421, 598, 537, 757, 682, 959, 859, 1204, 1085, 1507, 1354, 1880, 1694, 2338, 2104, 2892, 2609, 3574, 3218, 4394

Offset: 0

Gus Wiseman, Jan 31 2022

nonn

These are partitions of n with all even multiplicities (or run-lengths), except possibly the last.

			The a(1) = 1 through a(9) = 7 partitions:
  1  2   3    4     5      6       7        8         9
     11  111  22    221    33      331      44        333
              1111  11111  222     22111    332       441
                           2211    1111111  2222      22221
                           111111           3311      33111
                                            221111    2211111
                                            11111111  111111111

The ordered version (compositions) is A016116.
The even-length case is A035363.
A reverse version is A096441, both A349060.
The version for unequal instead of equal is A122129, even-length A351008.
The version for even instead of odd indices is A351003, even-length A351012.
The strict version is A351005, opposite A351006, even-length A035457.
Cf. A000070, A018819, A027383, A088218, A067661, A101417, A122134, A122135, A350842, A351007.

Table[Length[Select[IntegerPartitions[n],And@@Table[#[[i]]==#[[i+1]],{i,1,Length[#]-1,2}]&]],{n,0,30}]

A087503 a(n) = 3*(a(n-2) + 1), with a(0) = 1, a(1) = 3.

Original entry on oeis.org

1, 3, 6, 12, 21, 39, 66, 120, 201, 363, 606, 1092, 1821, 3279, 5466, 9840, 16401, 29523, 49206, 88572, 147621, 265719, 442866, 797160, 1328601, 2391483, 3985806, 7174452, 11957421, 21523359, 35872266, 64570080, 107616801, 193710243, 322850406, 581130732

Offset: 0

Reinhard Zumkeller, Sep 11 2003

Vincenzo Librandi, Table of n, a(n) for n = 0..2000
Index entries for linear recurrences with constant coefficients, signature (1,3,-3).

Sequences with similar recurrence rules: A027383 (p=2), A133628 (p=4), A133629 (p=5).
Other related sequences for different p: A016116 (p=2), A038754 (p=3), A084221 (p=4), A133632 (p=5).
See A133629 for general formulas with respect to the recurrence rule parameter p.
Related sequences: A132666, A132667, A132668, A132669.

[(3/2)*(3^Floor((n+1)/2)+3^Floor(n/2)-3^Floor((n-1)/2)-1): n in [0..40]]; // Vincenzo Librandi, Aug 16 2011

A087503 := proc(n)
    option remember;
    if n <=1 then
        op(n+1,[1,3]) ;
    else
        3*procname(n-2)+3 ;
    end if;
end proc:
seq(A087503(n),n=0..20) ; # R. J. Mathar, Sep 10 2021

RecurrenceTable[{a[0]==1,a[1]==3,a[n]==3(a[n-2]+1)},a,{n,40}] (* or *) LinearRecurrence[{1,3,-3},{1,3,6},40] (* Harvey P. Dale, Jan 01 2015 *)

def A087503(n): return (3+((n+1&1)<<1))*3**(n+1>>1)-3>>1 # Chai Wah Wu, Sep 02 2025

a(n) = a(n-1) + A038754(n). (i.e., partial sums of A038754).
From Hieronymus Fischer, Sep 19 2007, formulas adjusted to offset, Dec 29 2012: (Start)
G.f.: (1+2*x)/((1-3*x^2)*(1-x)).
a(n) = (3/2)*(3^((n+1)/2)-1) if n is odd, else a(n) = (3/2)*(5*3^((n-2)/2)-1).
a(n) = (3/2)*(3^floor((n+1)/2) + 3^floor(n/2) - 3^floor((n-1)/2)-1).
a(n) = 3^floor((n+1)/2) + 3^floor((n+2)/2)/2 - 3/2.
a(n) = A132667(a(n+1)) - 1.
a(n) = A132667(a(n-1) + 1) for n > 0.
A132667(a(n)) = a(n-1) + 1 for n > 0.
Also numbers such that: a(0)=1, a(n) = a(n-1) + (p-1)*p^((n+1)/2 - 1) if n is odd, else a(n) = a(n-1) + p^(n/2), where p=3. (End)
a(n) = A052993(n)+2*A052993(n-1). - R. J. Mathar, Sep 10 2021

Additional comments from Hieronymus Fischer, Sep 19 2007
Edited by N. J. A. Sloane, May 04 2010. I merged two essentially identical entries with different offsets, so some of the formulas may need to be adjusted.
Formulas and MAGMA prog adjusted to offset 0 by Hieronymus Fischer, Dec 29 2012

A164090 a(n) = 2*a(n-2) for n > 2; a(1) = 2, a(2) = 3.

Original entry on oeis.org

2, 3, 4, 6, 8, 12, 16, 24, 32, 48, 64, 96, 128, 192, 256, 384, 512, 768, 1024, 1536, 2048, 3072, 4096, 6144, 8192, 12288, 16384, 24576, 32768, 49152, 65536, 98304, 131072, 196608, 262144, 393216, 524288, 786432, 1048576, 1572864, 2097152, 3145728

Offset: 1

Klaus Brockhaus, Aug 09 2009

Interleaving of A000079 without initial 1 and A007283.
Agrees from a(2) onward with A145751 for all terms listed there (up to 65536). Apparently equal to 2, 3 followed by A090989. Equals 2 followed by A163978.
Binomial transform is A000129 without first two terms, second binomial transform is A020727, third binomial transform is A164033, fourth binomial transform is A164034, fifth binomial transform is A164035.
Number of achiral necklaces or bracelets with n beads using up to 2 colors. For n=5, the eight achiral necklaces or bracelets are AAAAA, AAAAB, AAABB, AABAB, AABBB, ABABB, ABBBB, and BBBBB. - Robert A. Russell, Sep 22 2018

Vincenzo Librandi, Table of n, a(n) for n = 1..2000
Index entries for linear recurrences with constant coefficients, signature (0,2).

Cf. A000079 (powers of 2), A007283 (3*2^n), A029744, A145751, A090989, A163978, A000129, A020727, A164033, A164034, A164035, A052955, A027383, A060482, A070875.

Second column of A284855.

[ n le 2 select n+1 else 2*Self(n-2): n in [1..42] ];

a[n_] := If[EvenQ[n], 3*2^(n/2 - 1), 2^((n + 1)/2)]; Array[a, 42] (* Jean-François Alcover, Oct 12 2017 *)
RecurrenceTable[{a[1]==2,a[2]==3,a[n]==2a[n-2]},a,{n,50}] (* or *) LinearRecurrence[{0,2},{2,3},50] (* Harvey P. Dale, Mar 01 2018 *)

a(n) = if(n%2,2,3) * 2^((n-1)\2); \\ Andrew Howroyd, Oct 07 2017

a(n) = A029744(n+1).
a(n) = A052955(n-1) + 1.
a(n) = A027383(n-2) + 2 for n > 1.
a(n) = A060482(n-1) + 3 for n > 3.
a(n) = A070875(n) - A070875(n-1).
a(n) = (7 - (-1)^n)*2^((1/4)*(2*n - 1 + (-1)^n))/4.
G.f.: x*(2+3*x)/(1-2*x^2).
a(n) = A063759(n-1), n>1. - R. J. Mathar, Aug 17 2009
Sum_{n>=1} 1/a(n) = 5/3. - Amiram Eldar, Mar 28 2022

A319420 Irregular triangle read by rows: row n lists the cuts-resistances of the 2^n binary vectors of length n.

Original entry on oeis.org

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

Offset: 0

N. J. A. Sloane, Sep 22 2018

The cuts-resistance of a vector is defined in A319416. The 2^n vectors of length n are taken in lexicographic order.
Note that here the vectors can begin with either 0 or 1, whereas in A319416 only vectors beginning with 1 are considered (since there we are considering binary representations of numbers).
Conjecture: The row sums, halved, appear to match A189391.

			Triangle begins:
0,
1,1,
2,1,1,2,
3,2,1,2,2,1,2,3,
4,3,2,2,2,1,2,3,3,2,1,2,2,2,3,4,
5,4,3,3,3,2,2,3,3,2,1,2,2,2,3,4,4,3,2,2,2,1,2,3,3,2,2,2,3,3,3,4,5,
...

Claude Lenormand, Deux transformations sur les mots, Preprint, 5 pages, Nov 17 2003. Apparently unpublished. This is a scanned copy of the version that the author sent to me in 2003. See table on page 4.

Keeping the first digit gives A319416.
Positions of 1's are the terms > 1 of A061547 and A086893, all minus 1.
The version for runs-resistance is A329870.
Compositions counted by cuts-resistance are A329861.
Binary words counted by cuts-resistance are A319421 or A329860.
Cf. A000975, A027383, A189391, A318921, A318928, A319411, A329767, A329862, A329865.

degdep[q_]:=Length[NestWhileList[Join@@Rest/@Split[#]&,q,Length[#]>0&]]-1;
Table[degdep[Rest[IntegerDigits[n,2]]],{n,0,50}] (* Gus Wiseman, Nov 25 2019 *)

A059076 Number of pairs of orientable necklaces with n beads and two colors; i.e., turning the necklace over does not leave it unchanged.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 1, 2, 6, 14, 30, 62, 128, 252, 495, 968, 1866, 3600, 6917, 13286, 25476, 48916, 93837, 180314, 346554, 666996, 1284570, 2477342, 4781502, 9240012, 17871708, 34604066, 67060746, 130085052, 252548760, 490722344

Offset: 0

Henry Bottomley, Dec 22 2000

nonn

Number of chiral bracelets with n beads and two colors.

			For n=6, the only chiral pair is AABABB-AABBAB.  For n=7, the two chiral pairs are AAABABB-AAABBAB and AABABBB-AABBBAB. - _Robert A. Russell_, Sep 24 2018

G. C. Greubel, Table of n, a(n) for n = 0..1000
Daniel Gabric and Joe Sawada, Efficient Construction of Long Orientable Sequences, arXiv:2401.14341 [cs.DS], 2024.
Petros Hadjicostas, Formulas for chiral bracelets, 2019; see Section 5.
John P. McSorley and Alan H. Schoen, Rhombic tilings of (n,k)-ovals, (n, k, lambda)-cyclic difference sets, and related topics, Discrete Math., 313 (2013), 129-154. - From _N. J. A. Sloane_, Nov 26 2012

Column 2 of A293496.
Cf. A059053.
Column 2 of A305541.
Equals (A000031 - A164090) / 2.
a(n) = (A052823(n) - A027383(n-2)) / 2.

nn=35;Table[CoefficientList[Series[CycleIndex[CyclicGroup[n],s]-CycleIndex[DihedralGroup[n],s]/.Table[s[i]->2,{i,1,n}],{x,0,nn}],x],{n,1,nn}]//Flatten  (* Geoffrey Critzer, Mar 26 2013 *)
mx=40; CoefficientList[Series[(1-Sum[ EulerPhi[n]*Log[1-2*x^n]/n, {n, mx}]-(1+x)^2/(1-2*x^2))/2, {x, 0, mx}], x] (* Herbert Kociemba, Nov 02 2016 *)
terms = 36; a29[0] = 1; a29[n_] := (1/4)*(Mod[n, 2] + 3)*2^Quotient[n, 2] + DivisorSum[n, EulerPhi[#]*2^(n/#) & ]/(2*n); Array[a29, 36, 0] - LinearRecurrence[{0, 2}, {1, 2, 3}, 36] (* Jean-François Alcover, Nov 05 2017 *)
k = 2; Prepend[Table[DivisorSum[n, EulerPhi[#] k^(n/#) &]/(2n)(k^Floor[(n+1)/2] + k^Ceiling[(n+1)/2])/4, {n, 1, 30}], 0] (* Robert A. Russell, Sep 24 2018 *)

a(n) = A000031(n) - A000029(n) = A000029(n) - A029744(n) = (A000031(n) - A029744(n))/2 = A008965(n) - A091696(n)
G.f.: (1 - Sum_{n>=1} phi(n)*log(1 - 2*x^n)/n - (1 + x)^2/(1 - 2*x^2))/2. - Herbert Kociemba, Nov 02 2016
For n > 0, a(n) = -(k^floor((n + 1)/2) + k^ceiling((n + 1)/2))/4 + (1/(2*n))* Sum_{d|n} phi(d)*k^(n/d), where k = 2 is the maximum number of colors. - Robert A. Russell, Sep 24 2018

A268944 T(n,k)=Number of length-n 0..k arrays with no repeated value unequal to the previous repeated value plus one mod k+1.

Original entry on oeis.org

2, 3, 4, 4, 9, 6, 5, 16, 24, 10, 6, 25, 60, 63, 14, 7, 36, 120, 220, 159, 22, 8, 49, 210, 565, 788, 396, 30, 9, 64, 336, 1206, 2615, 2780, 969, 46, 10, 81, 504, 2275, 6834, 11950, 9684, 2349, 62, 11, 100, 720, 3928, 15239, 38322, 54045, 33404, 5640, 94, 12, 121, 990

Offset: 1

R. H. Hardin, Feb 16 2016

Table starts
..2.....3......4.......5........6.........7.........8..........9.........10
..4.....9.....16......25.......36........49........64.........81........100
..6....24.....60.....120......210.......336.......504........720........990
.10....63....220.....565.....1206......2275......3928.......6345.......9730
.14...159....788....2615.....6834.....15239.....30344......55503......95030
.22...396...2780...11950....38322....101192....232696.....482490.....923150
.30...969...9684...54045...213042....667065...1773384....4171869....8925990
.46..2349..33404..242365..1175850...4370261..13443064...35904789...85953830
.62..5640.114292.1079240..6450402..28480312.101433800..307754712..824720230
.94.13455.388444.4777225.35200458.184750699.762265720.2628421029.7887767350

			Some solutions for n=6 k=4
..2. .4. .3. .1. .4. .4. .1. .2. .2. .0. .4. .2. .0. .3. .2. .3
..1. .4. .3. .0. .1. .0. .2. .3. .4. .0. .0. .1. .3. .0. .2. .3
..1. .2. .2. .1. .3. .4. .4. .0. .2. .2. .2. .2. .0. .2. .3. .1
..2. .4. .4. .3. .4. .0. .1. .2. .4. .1. .1. .3. .1. .0. .4. .2
..3. .0. .2. .0. .2. .1. .2. .3. .1. .0. .0. .0. .1. .3. .0. .0
..2. .3. .0. .0. .4. .4. .0. .4. .2. .2. .1. .2. .4. .3. .2. .4

R. H. Hardin, Table of n, a(n) for n = 1..9999

Column 1 is A027383.
Row 1 is A000027(n+1).
Row 2 is A000290(n+1).
Row 3 is A007531(n+2).

Empirical for column k:
k=1: a(n) = a(n-1) +2*a(n-2) -2*a(n-3)
k=2: a(n) = 3*a(n-1) +a(n-2) -6*a(n-3)
k=3: a(n) = 5*a(n-1) -2*a(n-2) -12*a(n-3)
k=4: a(n) = 7*a(n-1) -7*a(n-2) -20*a(n-3)
k=5: a(n) = 9*a(n-1) -14*a(n-2) -30*a(n-3)
k=6: a(n) = 11*a(n-1) -23*a(n-2) -42*a(n-3)
k=7: a(n) = 13*a(n-1) -34*a(n-2) -56*a(n-3)
Empirical for row n:
n=1: a(n) = n + 1
n=2: a(n) = n^2 + 2*n + 1
n=3: a(n) = n^3 + 3*n^2 + 2*n
n=4: a(n) = n^4 + 4*n^3 + 3*n^2 + n + 1
n=5: a(n) = n^5 + 5*n^4 + 4*n^3 + 3*n^2 + 2*n - 1
n=6: a(n) = n^6 + 6*n^5 + 5*n^4 + 6*n^3 + 3*n^2 - n + 2
n=7: a(n) = n^7 + 7*n^6 + 6*n^5 + 10*n^4 + 4*n^3 + n^2 + 4*n - 3

cp's OEIS Frontend

A198310 Moore lower bound on the order of a (10,g)-cage.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A329860 Triangle read by rows where T(n,k) is the number of binary words of length n with cuts-resistance k.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A349800 Number of integer compositions of n that are weakly alternating and have at least two adjacent equal parts.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A319421 Triangle read by rows: T(n,k) (1 <= k <= n) = one-half of the number of binary vectors of length n and cuts-resistance k.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A351004 Alternately constant partitions. Number of integer partitions y of n such that y_i = y_{i+1} for all odd i.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A087503 a(n) = 3*(a(n-2) + 1), with a(0) = 1, a(1) = 3.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Maple

Mathematica

Python

Formula

Extensions

A164090 a(n) = 2*a(n-2) for n > 2; a(1) = 2, a(2) = 3.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

A319420 Irregular triangle read by rows: row n lists the cuts-resistances of the 2^n binary vectors of length n.