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-17 of 17 results.

A325850 Number of permutations of {1..n} whose differences of all degrees are nonzero.

Original entry on oeis.org

1, 1, 2, 4, 18, 72, 446, 2804, 21560, 184364, 1788514
Offset: 0

Views

Author

Gus Wiseman, May 31 2019

Keywords

Comments

The differences of a sequence are defined as if the sequence were increasing, so for example the differences of (6,3,1) are (-3,-2). The zeroth differences are the sequence itself, while k-th differences for k > 0 are the differences of the (k-1)-th differences. The differences of all degrees of a sequence are the union of its zeroth through m-th differences, where m is the length of the sequence.

Examples

			The a(1) = 1 through a(4) = 18 permutations:
  (1)  (12)  (132)  (1243)
       (21)  (213)  (1324)
             (231)  (1342)
             (312)  (1423)
                    (2134)
                    (2143)
                    (2314)
                    (2413)
                    (2431)
                    (3124)
                    (3142)
                    (3241)
                    (3412)
                    (3421)
                    (4132)
                    (4213)
                    (4231)
                    (4312)
		

Crossrefs

Dominated by A295370, the case for only differences of degree 2.

Programs

  • Mathematica
    Table[Length[Select[Permutations[Range[n]],!MemberQ[Union@@Table[Differences[#,i],{i,Length[#]}],0]&]],{n,0,5}]

A328163 Number of integer partitions of n whose unsigned differences have a different GCD than the GCD of their parts all minus 1.

Original entry on oeis.org

0, 0, 1, 1, 2, 1, 4, 2, 5, 5, 9, 5, 15, 9, 19, 16, 28, 16, 44, 21, 55, 38, 73, 34, 109, 46, 130, 73, 170, 66, 251, 78, 287, 137, 364, 119, 522, 135, 590, 236, 759, 190, 1042, 219, 1175, 425, 1460, 306, 2006, 347, 2277, 671, 2780, 471, 3734, 584, 4197, 1087
Offset: 0

Views

Author

Gus Wiseman, Oct 07 2019

Keywords

Comments

Zeros are ignored when computing GCD, and the empty set has GCD 0.

Examples

			The a(2) = 1 through a(12) = 15 partitions (A = 10, B = 11, C = 12):
  (2)  (3)  (4)   (5)  (6)    (7)   (8)     (9)    (A)      (B)     (C)
            (22)       (33)   (52)  (44)    (63)   (55)     (83)    (66)
                       (42)         (62)    (72)   (64)     (92)    (84)
                       (222)        (422)   (333)  (73)     (722)   (93)
                                    (2222)  (522)  (82)     (5222)  (A2)
                                                   (442)            (444)
                                                   (622)            (552)
                                                   (4222)           (633)
                                                   (22222)          (642)
                                                                    (822)
                                                                    (3333)
                                                                    (4422)
                                                                    (6222)
                                                                    (42222)
                                                                    (222222)
		

Crossrefs

The complement to these partitions is counted by A328164.
The GCD of the divisors of n all minus 1 is A258409(n).
The GCD of the prime indices of n all minus 1 is A328167(n).
Partitions whose parts minus 1 are relatively prime are A328170.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],GCD@@Differences[#]!=GCD@@(#-1)&]],{n,0,30}]

A325466 Triangle read by rows where T(n,k) is the number of reversed integer partitions of n with k distinct differences of any degree > 0.

Original entry on oeis.org

1, 1, 0, 1, 1, 0, 1, 2, 0, 0, 1, 3, 1, 0, 0, 1, 3, 2, 1, 0, 0, 1, 5, 4, 0, 1, 0, 0, 1, 4, 6, 3, 0, 1, 0, 0, 1, 6, 6, 4, 3, 1, 1, 0, 0, 1, 6, 10, 4, 2, 4, 1, 2, 0, 0, 1, 7, 12, 8, 3, 3, 4, 1, 2, 1, 0, 1, 6, 13, 11, 2, 11, 3, 4, 0, 3, 1, 1, 1, 10, 16, 7, 10, 10
Offset: 0

Views

Author

Gus Wiseman, May 04 2019

Keywords

Comments

The differences of a sequence are defined as if the sequence were increasing, so for example the differences of (6,3,1) are (-3,-2).
The zeroth differences of a sequence are the sequence itself, while the k-th differences for k > 0 are the differences of the (k-1)-th differences.

Examples

			Triangle begins:
  1
  1  0
  1  1  0
  1  2  0  0
  1  3  1  0  0
  1  3  2  1  0  0
  1  5  4  0  1  0  0
  1  4  6  3  0  1  0  0
  1  6  6  4  3  1  1  0  0
  1  6 10  4  2  4  1  2  0  0
  1  7 12  8  3  3  4  1  2  1  0
  1  6 13 11  2 11  3  4  0  3  1  1
  1 10 16  7 10 10  6  6  5  1  1  2  1
  1  7 18 14  7 16 11  6  4  8  0  5  0  1
  1  9 20 18 10 20 13 10 10  4  5  5  2  2  2
  1 10 26 18 10 24 13 19 13 10  6  6  2  8  1  2
  1 11 25 24 16 28 19 24 14 15  9 10  9  5  2  7  1
Row 7 counts the following reversed partitions (empty columns not shown):
  (7)  (16)       (115)     (133)   (11122)
       (25)       (124)     (1123)
       (34)       (223)     (1222)
       (1111111)  (1114)
                  (11113)
                  (111112)
Row 9 counts the following reversed partitions (empty columns not shown):
(9)  (18)         (117)       (126)    (1125)   (1134)    (11223)  (111222)
     (27)         (135)       (144)    (11124)  (1224)             (1111122)
     (36)         (225)       (1233)            (11133)
     (45)         (234)       (12222)           (111123)
     (333)        (1116)
     (111111111)  (2223)
                  (11115)
                  (111114)
                  (1111113)
                  (11111112)
		

Crossrefs

Row sums are A000041. Column k = 1 is A088922.

Programs

  • Mathematica
    Table[Length[Select[Reverse/@IntegerPartitions[n],Length[Union@@Table[Differences[#,i],{i,1,Length[#]}]]==k&]],{n,0,16},{k,0,n}]

A355523 Number of distinct differences between adjacent prime indices of n.

Original entry on oeis.org

0, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 2, 0, 1, 1, 1, 0, 2, 0, 2, 1, 1, 0, 2, 1, 1, 1, 2, 0, 1, 0, 1, 1, 1, 1, 2, 0, 1, 1, 2, 0, 2, 0, 2, 2, 1, 0, 2, 1, 2, 1, 2, 0, 2, 1, 2, 1, 1, 0, 2, 0, 1, 2, 1, 1, 2, 0, 2, 1, 2, 0, 2, 0, 1, 2, 2, 1, 2, 0, 2, 1, 1, 0, 3, 1, 1, 1, 2, 0, 2, 1, 2, 1, 1, 1, 2, 0, 2, 2, 2, 0, 2, 0, 2, 1
Offset: 1

Views

Author

Gus Wiseman, Jul 10 2022

Keywords

Comments

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.

Examples

			For example, the prime indices of 22770 are {1,2,2,3,5,9}, with differences (1,0,1,2,4), so a(22770) = 4.
		

Crossrefs

Crossrefs found in the link are not repeated here.
Counting m such that A056239(m) = n and a(m) = k gives A279945.
With multiplicity we have A252736(n) = A001222(n) - 1.
The maximal difference is A286470, minimal A355524.
A008578 gives the positions of 0's.
A287352 lists differences between 0-prepended prime indices.
A355534 lists augmented differences between prime indices.
A355536 lists differences between prime indices.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Table[Length[Union[Differences[primeMS[n]]]],{n,1000}]
  • PARI
    A355523(n) = if(1==n, 0, my(pis = apply(primepi,factor(n)[,1]), difs = vector(#pis-1, i, pis[i+1]-pis[i])); (#Set(difs)+!issquarefree(n))); \\ Antti Karttunen, Jan 20 2025

Extensions

Data section extended to a(105) by Antti Karttunen, Jan 20 2025

A355530 Squarefree numbers that are either even or have at least one pair of consecutive prime factors. Numbers n such that the minimal difference between adjacent 0-prepended prime indices of n is 1.

Original entry on oeis.org

2, 6, 10, 14, 15, 22, 26, 30, 34, 35, 38, 42, 46, 58, 62, 66, 70, 74, 77, 78, 82, 86, 94, 102, 105, 106, 110, 114, 118, 122, 130, 134, 138, 142, 143, 146, 154, 158, 165, 166, 170, 174, 178, 182, 186, 190, 194, 195, 202, 206, 210, 214, 218, 221, 222, 226, 230
Offset: 1

Views

Author

Gus Wiseman, Jul 10 2022

Keywords

Comments

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 number is squarefree if it is not divisible by any perfect square > 1.
A number has consecutive prime factors if it is divisible by both prime(k) and prime(k+1) for some k.

Examples

			The terms together with their prime indices begin:
   2: {1}
   6: {1,2}
  10: {1,3}
  14: {1,4}
  15: {2,3}
  22: {1,5}
  26: {1,6}
  30: {1,2,3}
  34: {1,7}
  35: {3,4}
  38: {1,8}
  42: {1,2,4}
  46: {1,9}
  58: {1,10}
  62: {1,11}
  66: {1,2,5}
  70: {1,3,4}
		

Crossrefs

Crossrefs found in the link are not repeated here.
All terms are in A005117, complement A013929.
For maximal instead of minimal difference we have A055932 or A066312.
Not prepending zero gives A355527.
A001522 counts partitions with a fixed point (unproved), ranked by A352827.
A056239 adds up prime indices.
A238352 counts partitions by fixed points, rank statistic A352822.
A279945 counts partitions by number of distinct differences.
A287352, A355533, A355534, A355536 list the differences of prime indices.
A355524 gives minimal difference if singletons go to 0, to index A355525.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Select[Range[100],Min@@Differences[Prepend[primeMS[#],0]]==1&]

Formula

Equals A005117 /\ (A005843 \/ A104210).

A328164 Number of integer partitions of n whose unsigned differences have the same GCD as the GCD of their parts all minus 1.

Original entry on oeis.org

1, 1, 1, 2, 3, 6, 7, 13, 17, 25, 33, 51, 62, 92, 116, 160, 203, 281, 341, 469, 572, 754, 929, 1221, 1466, 1912, 2306, 2937, 3548, 4499, 5353, 6764, 8062, 10006, 11946, 14764, 17455, 21502, 25425, 30949, 36579, 44393, 52132, 63042, 74000, 88709, 104098, 124448
Offset: 0

Views

Author

Gus Wiseman, Oct 07 2019

Keywords

Comments

Zeros are ignored when computing GCD, and the empty set has GCD 0.

Examples

			The a(1) = 1 through a(8) = 17 partitions:
  (1)  (11)  (21)   (31)    (32)     (51)      (43)       (53)
             (111)  (211)   (41)     (321)     (61)       (71)
                    (1111)  (221)    (411)     (322)      (332)
                            (311)    (2211)    (331)      (431)
                            (2111)   (3111)    (421)      (521)
                            (11111)  (21111)   (511)      (611)
                                     (111111)  (2221)     (3221)
                                               (3211)     (3311)
                                               (4111)     (4211)
                                               (22111)    (5111)
                                               (31111)    (22211)
                                               (211111)   (32111)
                                               (1111111)  (41111)
                                                          (221111)
                                                          (311111)
                                                          (2111111)
                                                          (11111111)
		

Crossrefs

The complement to these partitions is counted by A328163.
The GCD of the divisors of n all minus 1 is A258409(n).
The GCD of the prime indices of n all minus 1 is A328167(n).
Partitions whose parts minus 1 are relatively prime are A328170.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],GCD@@Differences[#]==GCD@@(#-1)&]],{n,0,30}]

A355522 Triangle read by rows where T(n,k) is the number of reversed integer partitions of n with maximal difference k, if singletons have maximal difference 0.

Original entry on oeis.org

2, 2, 1, 3, 1, 1, 2, 3, 1, 1, 4, 3, 2, 1, 1, 2, 6, 3, 2, 1, 1, 4, 6, 6, 2, 2, 1, 1, 3, 10, 6, 5, 2, 2, 1, 1, 4, 11, 11, 6, 4, 2, 2, 1, 1, 2, 16, 13, 10, 5, 4, 2, 2, 1, 1, 6, 17, 19, 12, 9, 4, 4, 2, 2, 1, 1, 2, 24, 24, 18, 11, 8, 4, 4, 2, 2, 1, 1
Offset: 2

Views

Author

Gus Wiseman, Jul 08 2022

Keywords

Comments

The triangle starts with n = 2, and k ranges from 0 to n - 2.

Examples

			Triangle begins:
  2
  2  1
  3  1  1
  2  3  1  1
  4  3  2  1  1
  2  6  3  2  1  1
  4  6  6  2  2  1  1
  3 10  6  5  2  2  1  1
  4 11 11  6  4  2  2  1  1
  2 16 13 10  5  4  2  2  1  1
  6 17 19 12  9  4  4  2  2  1  1
  2 24 24 18 11  8  4  4  2  2  1  1
  4 27 34 22 17 10  7  4  4  2  2  1  1
  4 35 39 33 20 15  9  7  4  4  2  2  1  1
  5 39 56 39 30 19 14  8  7  4  4  2  2  1  1
For example, row n = 8 counts the following reversed partitions:
  (8)         (233)      (35)      (125)    (26)    (116)  (17)
  (44)        (1223)     (134)     (11114)  (1115)
  (2222)      (11123)    (224)
  (11111111)  (11222)    (1124)
              (111122)   (1133)
              (1111112)  (111113)
		

Crossrefs

Crossrefs found in the link are not repeated here.
Leading terms are A000005.
Row sums are A000041.
Counts m such that A056239(m) = n and A286470(m) = k.
This is a trimmed version of A238353, which extends to k = n.
For minimum instead of maximum we have A238354.
Ignoring singletons entirely gives A238710.
A001522 counts partitions with a fixed point (unproved), ranked by A352827.
A115720 and A115994 count partitions by their Durfee square.
A279945 counts partitions by number of distinct differences.

Programs

  • Mathematica
    Table[Length[Select[Reverse/@IntegerPartitions[n], If[Length[#]==1,0,Max@@Differences[#]]==k&]],{n,2,15},{k,0,n-2}]
Previous Showing 11-17 of 17 results.