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 51-60 of 84 results. Next

A324514 Number of aperiodic permutations of {1..n}.

Original entry on oeis.org

1, 0, 3, 16, 115, 660, 5033, 39936, 362718, 3624920, 39916789, 478953648, 6227020787, 87177645996, 1307674338105, 20922779566080, 355687428095983, 6402373519409856, 121645100408831981, 2432902004460734000, 51090942171698415483, 1124000727695858073380
Offset: 1

Views

Author

Gus Wiseman, Mar 04 2019

Keywords

Comments

A permutation is defined to be aperiodic if every cyclic rotation of {1..n} acts on the cycle decomposition to produce a different digraph.

Examples

			The a(4) = 16 aperiodic permutations:
  (1243) (1324) (1342) (1423)
  (2134) (2314) (2413) (2431)
  (3124) (3142) (3241) (3421)
  (4132) (4213) (4231) (4312)
		

Crossrefs

Programs

  • Mathematica
    Table[Length[Select[Permutations[Range[n]],UnsameQ@@NestList[RotateRight[#/.k_Integer:>If[k==n,1,k+1]]&,#,n-1]&]],{n,6}]
  • PARI
    a(n) = sumdiv(n, d, moebius(n/d)*(n/d)^d*d!); \\ Andrew Howroyd, Aug 19 2019

Formula

a(n) = A306669(n) * n.
a(n) = Sum_{d|n} mu(n/d)*(n/d)^d*d!. - Andrew Howroyd, Aug 19 2019

Extensions

Terms a(10) and beyond from Andrew Howroyd, Aug 19 2019

A329132 Numbers whose augmented differences of prime indices are a periodic sequence.

Original entry on oeis.org

4, 8, 15, 16, 32, 55, 64, 90, 105, 119, 128, 225, 253, 256, 403, 512, 540, 550, 697, 893, 935, 1024, 1155, 1350, 1357, 1666, 1943, 2048, 2263, 3025, 3071, 3150, 3240, 3375, 3451, 3927, 3977, 4096, 4429, 5123, 5500, 5566, 6731, 7735, 8083, 8100, 8192, 9089
Offset: 1

Views

Author

Gus Wiseman, Nov 06 2019

Keywords

Comments

The augmented differences aug(y) of an integer partition y of length k are given by aug(y)i = y_i - y{i + 1} + 1 if i < k and aug(y)_k = y_k. For example, aug(6,5,5,3,3,3) = (2,1,3,1,1,3).
A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.
A sequence is periodic if its cyclic rotations are not all different.

Examples

			The sequence of terms together with their augmented differences of prime indices begins:
     4: (1,1)
     8: (1,1,1)
    15: (2,2)
    16: (1,1,1,1)
    32: (1,1,1,1,1)
    55: (3,3)
    64: (1,1,1,1,1,1)
    90: (2,1,2,1)
   105: (2,2,2)
   119: (4,4)
   128: (1,1,1,1,1,1,1)
   225: (1,2,1,2)
   253: (5,5)
   256: (1,1,1,1,1,1,1,1)
   403: (6,6)
   512: (1,1,1,1,1,1,1,1,1)
   540: (2,1,1,2,1,1)
   550: (3,1,3,1)
   697: (7,7)
   893: (8,8)
		

Crossrefs

Complement of A329133.
These are the Heinz numbers of the partitions counted by A329143.
Periodic binary words are A152061.
Periodic compositions are A178472.
Numbers whose binary expansion is periodic are A121016.
Numbers whose prime signature is periodic are A329140.
Numbers whose differences of prime indices are periodic are A329134.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    aperQ[q_]:=Array[RotateRight[q,#1]&,Length[q],1,UnsameQ];
    aug[y_]:=Table[If[i
    				

A329136 Number of integer partitions of n whose augmented differences are an aperiodic word.

Original entry on oeis.org

1, 1, 1, 2, 4, 5, 10, 14, 19, 28, 40, 53, 75, 99, 131, 172, 226, 294, 380, 488, 617, 787, 996, 1250, 1565, 1953, 2425, 3003, 3705, 4559, 5589, 6836, 8329, 10132, 12292, 14871, 17950, 21629, 25988, 31169, 37306, 44569, 53139, 63247, 75133, 89111, 105515, 124737
Offset: 0

Views

Author

Gus Wiseman, Nov 09 2019

Keywords

Comments

The augmented differences aug(y) of an integer partition y of length k are given by aug(y)i = y_i - y{i + 1} + 1 if i < k and aug(y)_k = y_k. For example, aug(6,5,5,3,3,3) = (2,1,3,1,1,3).
A sequence is aperiodic if its cyclic rotations are all different.

Examples

			The a(1) = 1 through a(7) = 14 partitions:
  (1)  (2)  (3)    (4)      (5)        (6)          (7)
            (2,1)  (2,2)    (4,1)      (3,3)        (4,3)
                   (3,1)    (2,2,1)    (4,2)        (5,2)
                   (2,1,1)  (3,1,1)    (5,1)        (6,1)
                            (2,1,1,1)  (2,2,2)      (3,2,2)
                                       (3,2,1)      (3,3,1)
                                       (4,1,1)      (4,2,1)
                                       (2,2,1,1)    (5,1,1)
                                       (3,1,1,1)    (2,2,2,1)
                                       (2,1,1,1,1)  (3,2,1,1)
                                                    (4,1,1,1)
                                                    (2,2,1,1,1)
                                                    (3,1,1,1,1)
                                                    (2,1,1,1,1,1)
With augmented differences:
  (1)  (2)  (3)    (4)      (5)        (6)          (7)
            (2,1)  (1,2)    (4,1)      (1,3)        (2,3)
                   (3,1)    (1,2,1)    (3,2)        (4,2)
                   (2,1,1)  (3,1,1)    (5,1)        (6,1)
                            (2,1,1,1)  (1,1,2)      (1,3,1)
                                       (2,2,1)      (2,1,2)
                                       (4,1,1)      (3,2,1)
                                       (1,2,1,1)    (5,1,1)
                                       (3,1,1,1)    (1,1,2,1)
                                       (2,1,1,1,1)  (2,2,1,1)
                                                    (4,1,1,1)
                                                    (1,2,1,1,1)
                                                    (3,1,1,1,1)
                                                    (2,1,1,1,1,1)
		

Crossrefs

The Heinz numbers of these partitions are given by A329133.
The periodic version is A329143.
The non-augmented version is A329137.
Aperiodic binary words are A027375.
Aperiodic compositions are A000740.
Numbers whose binary expansion is aperiodic are A328594.
Numbers whose differences of prime indices are aperiodic are A329135.
Numbers whose prime signature is aperiodic are A329139.

Programs

  • Mathematica
    aperQ[q_]:=Array[RotateRight[q,#1]&,Length[q],1,UnsameQ];
    aug[y_]:=Table[If[i
    				

Formula

a(n) + A329143(n) = A000041(n).

A218869 Triangle read by rows: T(n,k) = number of aperiodic binary sequences of length n with curling number k (1 <= k <= n).

Original entry on oeis.org

2, 2, 0, 4, 2, 0, 6, 4, 2, 0, 12, 12, 4, 2, 0, 20, 20, 8, 4, 2, 0, 40, 52, 20, 8, 4, 2, 0, 74, 100, 36, 16, 8, 4, 2, 0, 148, 214, 76, 36, 16, 8, 4, 2, 0, 286, 414, 160, 68, 32, 16, 8, 4, 2, 0, 572, 876, 328, 140, 68, 32, 16, 8, 4, 2, 0, 1124, 1722, 640, 276, 132, 64, 32, 16, 8, 4, 2, 0
Offset: 1

Views

Author

N. J. A. Sloane, Nov 07 2012

Keywords

Comments

S is aperiodic if it is not of the form S = T^m with m > 1.
Row sums are A027375. First column is A122536.
It appears that reversed rows converge to A155559. - Omar E. Pol, Nov 20 2012

Examples

			Triangle begins:
2,
2, 0,
4, 2, 0,
6, 4, 2, 0,
12, 12, 4, 2, 0,
20, 20, 8, 4, 2, 0,
40, 52, 20, 8, 4, 2, 0,
74, 100, 36, 16, 8, 4, 2, 0,
148, 214, 76, 36, 16, 8, 4, 2, 0,
286, 414, 160, 68, 32, 16, 8, 4, 2, 0,
572, 876, 328, 140, 68, 32, 16, 8, 4, 2, 0,
...
		

Crossrefs

A329133 Numbers whose augmented differences of prime indices are an aperiodic sequence.

Original entry on oeis.org

1, 2, 3, 5, 6, 7, 9, 10, 11, 12, 13, 14, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 56, 57, 58, 59, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74
Offset: 1

Views

Author

Gus Wiseman, Nov 09 2019

Keywords

Comments

The augmented differences aug(y) of an integer partition y of length k are given by aug(y)i = y_i - y{i + 1} + 1 if i < k and aug(y)_k = y_k. For example, aug(6,5,5,3,3,3) = (2,1,3,1,1,3).
A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.
A finite sequence is aperiodic if its cyclic rotations are all different.

Examples

			The sequence of terms together with their augmented differences of prime indices begins:
    1: ()
    2: (1)
    3: (2)
    5: (3)
    6: (2,1)
    7: (4)
    9: (1,2)
   10: (3,1)
   11: (5)
   12: (2,1,1)
   13: (6)
   14: (4,1)
   17: (7)
   18: (1,2,1)
   19: (8)
   20: (3,1,1)
   21: (3,2)
   22: (5,1)
   23: (9)
   24: (2,1,1,1)
		

Crossrefs

Complement of A329132.
These are the Heinz numbers of the partitions counted by A329136.
Aperiodic binary words are A027375.
Aperiodic compositions are A000740.
Numbers whose binary expansion is aperiodic are A328594.
Numbers whose prime signature is aperiodic are A329139.
Numbers whose differences of prime indices are aperiodic are A329135.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    aperQ[q_]:=Array[RotateRight[q,#1]&,Length[q],1,UnsameQ];
    aug[y_]:=Table[If[i
    				

A333941 Triangle read by rows where T(n,k) is the number of compositions of n with rotational period k.

Original entry on oeis.org

1, 0, 1, 0, 2, 0, 0, 2, 2, 0, 0, 3, 2, 3, 0, 0, 2, 4, 6, 4, 0, 0, 4, 6, 9, 8, 5, 0, 0, 2, 6, 15, 20, 15, 6, 0, 0, 4, 8, 24, 32, 35, 18, 7, 0, 0, 3, 10, 27, 56, 70, 54, 28, 8, 0, 0, 4, 12, 42, 84, 125, 120, 84, 32, 9, 0, 0, 2, 10, 45, 120, 210, 252, 210, 120, 45, 10, 0
Offset: 0

Views

Author

Gus Wiseman, Apr 16 2020

Keywords

Comments

A composition of n is a finite sequence of positive integers summing to n.

Examples

			Triangle begins:
   1
   0   1
   0   2   0
   0   2   2   0
   0   3   2   3   0
   0   2   4   6   4   0
   0   4   6   9   8   5   0
   0   2   6  15  20  15   6   0
   0   4   8  24  32  35  18   7   0
   0   3  10  27  56  70  54  28   8   0
   0   4  12  42  84 125 120  84  32   9   0
   0   2  10  45 120 210 252 210 120  45  10   0
   0   6  18  66 168 335 450 462 320 162  50  11   0
Row n = 6 counts the following compositions (empty columns indicated by dots):
  .  (6)       (15)    (114)  (1113)  (11112)  .
     (33)      (24)    (123)  (1122)  (11121)
     (222)     (42)    (132)  (1131)  (11211)
     (111111)  (51)    (141)  (1221)  (12111)
               (1212)  (213)  (1311)  (21111)
               (2121)  (231)  (2112)
                       (312)  (2211)
                       (321)  (3111)
                       (411)
		

Crossrefs

Column k = 1 is A000005.
Row sums are A011782.
Diagonal T(2n,n) is A045630(n).
The strict version is A072574.
A version counting runs is A238279.
Column k = n - 1 is A254667.
Aperiodic compositions are counted by A000740.
Aperiodic binary words are counted by A027375.
The orderless period of prime indices is A052409.
Numbers whose binary expansion is periodic are A121016.
Periodic compositions are counted by A178472.
Period of binary expansion is A302291.
Numbers whose prime signature is aperiodic are A329139.
All of the following pertain to compositions in standard order (A066099):
- Length is A000120.
- Necklaces are A065609.
- Sum is A070939.
- Rotational symmetries are counted by A138904.
- Constant compositions are A272919.
- Lyndon compositions are A275692.
- Co-Lyndon compositions are A326774.
- Aperiodic compositions are A328594.
- Rotational period is A333632.
- Co-necklaces are A333764.
- Reversed necklaces are A333943.

Programs

  • Mathematica
    Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],Function[c,Length[Union[Array[RotateRight[c,#]&,Length[c]]]]==k]]],{n,0,10},{k,0,n}]
  • PARI
    T(n,k)=if(n==0, k==0, sumdiv(n, m, sumdiv(gcd(k,m), d, moebius(d)*binomial(m/d-1, k/d-1)))) \\ Andrew Howroyd, Jan 19 2023

Formula

T(n,k) = Sum_{m|n} Sum_{d|gcd(k,m)} mu(d)*binomial(m/d-1, k/d-1) for n > 0. - Andrew Howroyd, Jan 19 2023

A056267 Number of primitive (aperiodic) words of length n which contain exactly two different symbols.

Original entry on oeis.org

0, 2, 6, 12, 30, 54, 126, 240, 504, 990, 2046, 4020, 8190, 16254, 32730, 65280, 131070, 261576, 524286, 1047540, 2097018, 4192254, 8388606, 16772880, 33554400, 67100670, 134217216, 268419060, 536870910, 1073708010, 2147483646
Offset: 1

Views

Author

Keywords

References

  • M. R. Nester, Mathematical investigations of some plant interaction designs, PhD Thesis, University of Queensland, Brisbane, Australia, 1999 [See A056391 for pdf file of Chap. 2].

Crossrefs

A027375 and A038199 are essentially the same sequence with different initial terms.

Programs

  • PARI
    a(n) = sumdiv(n, d, moebius(d)*(2^(n/d) - 2)); \\ Michel Marcus, Jun 30 2019

Formula

a(n) = Sum_{d|n} mu(d)*A000918(n/d), n>0.

Extensions

Corrected and extended by Franklin T. Adams-Watters and T. D. Noe, Oct 25 2006

A286247 Triangular table: T(n,k) = 0 if k does not divide n, otherwise T(n,k) = P(A046523(k), n/k), where P is sequence A000027 used as a pairing function N x N -> N. Table is read by rows as T(1,1), T(2,1), T(2,2), etc.

Original entry on oeis.org

1, 2, 3, 4, 0, 3, 7, 5, 0, 10, 11, 0, 0, 0, 3, 16, 8, 5, 0, 0, 21, 22, 0, 0, 0, 0, 0, 3, 29, 12, 0, 14, 0, 0, 0, 36, 37, 0, 8, 0, 0, 0, 0, 0, 10, 46, 17, 0, 0, 5, 0, 0, 0, 0, 21, 56, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 67, 23, 12, 19, 0, 27, 0, 0, 0, 0, 0, 78, 79, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 92, 30, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 21, 106, 0, 17, 0, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 21
Offset: 1

Views

Author

Antti Karttunen, May 06 2017

Keywords

Comments

Equally: square array A(n,k) = P(A046523(n), (n+k-1)/n) if n divides (n+k-1), 0 otherwise, read by descending antidiagonals as A(1,1), A(1,2), A(2,1), etc. Here P is a two-argument form of sequence A000027 used as a pairing function N x N -> N.
When viewed as a triangular table, this sequence packs the values of A046523(k) [which essentially stores the prime signature of k] and quotient n/k (when it is integral) to a single value with the pairing function A000027. The two "components" can be accessed with functions A002260 & A004736, which allows us to generate from this sequence (among other things) various sums related to the enumeration of aperiodic necklaces, because Moebius mu (A008683) obtains the same value on any representative of the same prime signature.
For example, we have:
Sum_{i=A000217(n-1) .. A000217(n)} [a(i) > 0] * mu(A002260(a(i))) * 2^(A004736(a(i))) = A027375(n).
and
Sum_{i=A000217(n-1) .. A000217(n)} [a(i) > 0] * mu(A002260(a(i))) * 3^(A004736(a(i))) = A054718(n).
Triangle A286249 has the same property.

Examples

			The first fifteen rows of triangle:
    1,
    2,  3,
    4,  0,  3,
    7,  5,  0, 10,
   11,  0,  0,  0,  3,
   16,  8,  5,  0,  0, 21,
   22,  0,  0,  0,  0,  0,  3,
   29, 12,  0, 14,  0,  0,  0, 36,
   37,  0,  8,  0,  0,  0,  0,  0, 10,
   46, 17,  0,  0,  5,  0,  0,  0,  0, 21,
   56,  0,  0,  0,  0,  0,  0,  0,  0,  0, 3,
   67, 23, 12, 19,  0, 27,  0,  0,  0,  0,  0, 78,
   79,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  3,
   92, 30,  0,  0,  0,  0,  5,  0,  0,  0,  0,  0,  0, 21,
  106,  0, 17,  0,  8,  0,  0,  0,  0,  0,  0,  0,  0,  0, 21
  (Note how triangle A286249 contains on each row the same numbers
  in the same "divisibility-allotted" positions, but in reverse order).
  ---------------------------------------------------------------
In the following examples: a = this sequence interpreted as a one-dimensional sequence, T = interpreted as a triangular table, A = interpreted as a square array, P = A000027 interpreted as a two-argument pairing function N x N -> N.
---
a(7) = T(4,1) = A(1,4) = P(A046523(1),4/1) = P(1,4) = 1+(((1+4)^2 - 1 - (3*4))/2) = 7.
a(30) = T(8,2) = A(2,7) = P(A046523(2),8/2) = P(2,4) = (1/2)*(2 + ((2+4)^2) - 2 - 3*4) = 12.
		

Crossrefs

Cf. A000124 (left edge of the triangle), A000217 (every number at the right edge is a triangular number).

Programs

  • Python
    from sympy import factorint
    def T(n, m): return ((n + m)**2 - n - 3*m + 2)//2
    def P(n):
        f = factorint(n)
        return sorted([f[i] for i in f])
    def a046523(n):
        x=1
        while True:
            if P(n) == P(x): return x
            else: x+=1
    def t(n, k): return 0 if n%k!=0 else T(a046523(k), n//k)
    for n in range(1, 21): print([t(n, k) for k in range(1, n + 1)]) # Indranil Ghosh, May 08 2017
  • Scheme
    (define (A286247 n) (A286247bi (A002260 n) (A004736 n)))
    (define (A286247bi row col) (if (not (zero? (modulo (+ row col -1) row))) 0 (let ((a (A046523 row)) (b (quotient (+ row col -1) row))) (* (/ 1 2) (+ (expt (+ a b) 2) (- a) (- (* 3 b)) 2)))))
    ;; Alternatively, with triangular indexing:
    (define (A286247 n) (A286247tr (A002024 n) (A002260 n)))
    (define (A286247tr n k) (if (not (zero? (modulo n k))) 0 (let ((a (A046523 k)) (b (/ n k))) (* (/ 1 2) (+ (expt (+ a b) 2) (- a) (- (* 3 b)) 2)))))
    

Formula

As a triangle (with n >= 1, 1 <= k <= n):
T(n,k) = 0 if k does not divide n, otherwise T(n,k) = (1/2)*(2 + ((A046523(k)+(n/k))^2) - A046523(k) - 3*(n/k)).
T(n,k) = A051731(n,k) * A286245(n,k).

A323862 Table read by antidiagonals where A(n,k) is the number of n X k binary arrays in which both the sequence of rows and the sequence of columns are (independently) aperiodic.

Original entry on oeis.org

2, 2, 2, 6, 10, 6, 12, 54, 54, 12, 30, 228, 498, 228, 30, 54, 990, 4020, 4020, 990, 54, 126, 3966, 32730, 65040, 32730, 3966, 126, 240, 16254, 261522, 1047540, 1047540, 261522, 16254, 240, 504, 65040, 2097018, 16768860, 33554370, 16768860, 2097018, 65040, 504
Offset: 1

Views

Author

Gus Wiseman, Feb 04 2019

Keywords

Comments

A sequence of length n is aperiodic if all n rotations of its entries are distinct.

Examples

			Array begins:
        2        2        6       12       30
        2       10       54      228      990
        6       54      498     4020    32730
       12      228     4020    65040  1047540
       30      990    32730  1047540 33554370
		

Crossrefs

First and last columns are A027375. Main diagonal is A265627.

Programs

  • Mathematica
    nn=5;
    a[n_,k_]:=Sum[MoebiusMu[d]*MoebiusMu[e]*2^(n/d*k/e),{d,Divisors[n]},{e,Divisors[k]}];
    Table[a[n-k,k],{n,nn},{k,n-1}]
  • PARI
    A(n,k) = {sumdiv(n, d, sumdiv(k,e, moebius(d) * moebius(e) * 2^((n/d) * (k/e))))} \\ Andrew Howroyd, Jan 19 2023

Formula

A(n,k) = Sum_{d|n, e|k} mu(d) * mu(e) * 2^((n/d) * (k/e)).

A323872 Number of n X n aperiodic binary toroidal necklaces.

Original entry on oeis.org

1, 2, 2, 54, 4050, 1342170, 1908852102, 11488774559598, 288230375950387200, 29850020237398244599296, 12676506002282260237970435130, 21970710674130840874443091905460038, 154866286100907105149455216472736043777350, 4427744605404865645682169434028029029963535277450
Offset: 0

Views

Author

Gus Wiseman, Feb 04 2019

Keywords

Comments

The 1-dimensional (Lyndon word) case is A001037.
We define a toroidal necklace to be an equivalence class of matrices under all possible rotations of the sequence of rows and the sequence of columns. An n X k matrix is aperiodic if all n * k rotations of its sequence of rows and its sequence of columns are distinct.

Examples

			Inequivalent representatives of the a(2) = 2 aperiodic necklaces:
  [0 0] [0 1]
  [0 1] [1 1]
Inequivalent representatives of the a(3) = 54 aperiodic necklaces:
  000  000  000  000  000  000  000  000  000
  000  000  001  001  001  001  001  001  001
  001  011  001  010  011  100  101  110  111
.
  000  000  000  000  000  000  000  000  000
  011  011  011  011  011  011  011  111  111
  001  010  011  100  101  110  111  001  011
.
  001  001  001  001  001  001  001  001  001
  001  001  001  001  001  001  010  010  010
  010  011  100  101  110  111  011  101  110
.
  001  001  001  001  001  001  001  001  001
  010  011  011  011  011  011  100  100  100
  111  010  011  101  110  111  011  110  111
.
  001  001  001  001  001  001  001  001  001
  101  101  101  101  110  110  110  110  111
  011  101  110  111  011  101  110  111  011
.
  001  001  001  011  011  011  011  011  011
  111  111  111  011  011  011  101  110  111
  101  110  111  101  110  111  111  111  111
		

Crossrefs

Programs

  • Mathematica
    apermatQ[m_]:=UnsameQ@@Join@@Table[RotateLeft[m,{i,j}],{i,Length[m]},{j,Length[First[m]]}];
    neckmatQ[m_]:=m==First[Union@@Table[RotateLeft[m,{i,j}],{i,Length[m]},{j,Length[First[m]]}]];
    Table[Length[Select[(Partition[#,n]&)/@Tuples[{0,1},n^2],And[apermatQ[#],neckmatQ[#]]&]],{n,4}]

Extensions

Terms a(5) and beyond from Andrew Howroyd, Aug 21 2019
Previous Showing 51-60 of 84 results. Next