A325349 -id:A325349 - cp's OEIS frontend

A325556 Number of necklace compositions of n with distinct circular differences up to sign.

1, 1, 1, 1, 1, 1, 3, 7, 9, 13, 25, 27, 51, 63, 95, 123, 179, 205, 305, 409, 559, 715, 1009, 1337, 1869

Offset: 1

Gus Wiseman, May 11 2019

A necklace composition of n is a finite sequence of positive integers summing to n that is lexicographically minimal among all of its cyclic rotations.

The circular differences of a composition c of length k are c_{i + 1} - c_i for i < k and c_1 - c_i for i = k. For example, the circular differences of (1,2,1,3) are (1,-1,2,-2).

			The a(1) = 1 through a(10) = 13 necklace compositions:
  (1)  (2)  (3)  (4)  (5)  (6)  (7)    (8)     (9)     (A)
                                (124)  (125)   (126)   (127)
                                (142)  (134)   (162)   (136)
                                       (143)   (1125)  (145)
                                       (152)   (1134)  (154)
                                       (1124)  (1143)  (163)
                                       (1142)  (1152)  (172)
                                               (1224)  (235)
                                               (1422)  (253)
                                                       (1126)
                                                       (1162)
                                                       (1225)
                                                       (1522)

Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts.

Cf. A000079, A000740, A008965, A235998, A318728, A325324, A325325, A325349, A325549, A325553, A325555, A325588, A325590.

neckQ[q_]:=Array[OrderedQ[{q,RotateRight[q,#]}]&,Length[q]-1,1,And];
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],UnsameQ@@Abs[Differences[Append[#,First[#]]]]&&neckQ[#]&]],{n,15}]

A325459 Sum of numbers of nontrivial divisors (greater than 1 and less than k) of k for k = 1..n.

Original entry on oeis.org

0, 0, 0, 0, 1, 1, 3, 3, 5, 6, 8, 8, 12, 12, 14, 16, 19, 19, 23, 23, 27, 29, 31, 31, 37, 38, 40, 42, 46, 46, 52, 52, 56, 58, 60, 62, 69, 69, 71, 73, 79, 79, 85, 85, 89, 93, 95, 95, 103, 104, 108, 110, 114, 114, 120, 122, 128, 130, 132, 132, 142

Offset: 0

Gus Wiseman, May 04 2019

nonn

Also the number of integer partitions of n that are not hooks but whose augmented differences are hooks (original name). 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 otherwise aug(y)_k = y_k. For example, aug(6,5,5,3,3,3) = (2,1,3,1,1,3).

This sequence counts integer partitions with any number of ones and one part > 1 which appears at least twice. The Heinz numbers of these partitions are given by A325359.

			The a(4) = 1 through a(10) = 8 partitions:
  (22)  (221)  (33)    (331)    (44)      (333)      (55)
               (222)   (2221)   (2222)    (441)      (3331)
               (2211)  (22111)  (3311)    (22221)    (4411)
                                (22211)   (33111)    (22222)
                                (221111)  (222111)   (222211)
                                          (2211111)  (331111)
                                                     (2221111)
                                                     (22111111)

Alois P. Heinz, Table of n, a(n) for n = 0..10000

Cf. A049988, A093641, A325349, A325351, A325355, A325356, A325357, A325358.

Cf. A070824, A006218.

a:= proc(n) option remember; `if`(n<2, 0,
      numtheory[tau](n)-2+a(n-1))
    end:
seq(a(n), n=0..100);  # Alois P. Heinz, Oct 11 2019

Table[Length[Select[IntegerPartitions[n],MatchQ[#,{x_,y__,1...}/;x>1&&SameQ[x,y]]&]],{n,0,30}]
(* Second program: *)
a[n_] := a[n] = If[n<2, 0, DivisorSigma[0, n] - 2 + a[n-1]];
a /@ Range[0, 100] (* Jean-François Alcover, May 20 2021, after Alois P. Heinz *)

from math import isqrt
def A325459(n): return 0 if n == 0 else (lambda m: 2*(sum(n//k for k in range(1, m+1))-n)+(1-m)*(1+m))(isqrt(n)) # Chai Wah Wu, Oct 07 2021

From M. F. Hasler, Oct 11 2019: (Start)
a(n) = A006218(n) - 2*n + 1, in terms of partial sums of number of divisors.
a(n) = Sum_{k=1..n} A070824(k): partial sums of A070824 = number of nontrivial divisors. (End)

Name changed at the suggestion of Patrick James Smalley-Wall and Luc Rousseau by Gus Wiseman, Oct 11 2019

A384009 Irregular triangle read by rows where row n lists the positive first differences of the prime indices of n.

Original entry on oeis.org

1, 2, 1, 3, 1, 1, 2, 2, 4, 1, 5, 3, 1, 1, 3, 6, 1, 1, 7, 4, 2, 1, 2, 4, 1, 8, 1, 2, 5, 5, 1, 2, 3, 6, 9, 1, 1, 10, 2, 3, 1, 3, 6, 7, 2, 1, 1, 11, 1, 7, 1, 1, 4, 2, 12, 1, 2, 4, 13, 8, 4, 1, 1, 2, 8, 9, 14, 5, 1, 3, 3, 2, 1, 5, 5, 1, 1, 15, 1, 2, 2, 10, 3, 1, 6, 6

Offset: 1

Gus Wiseman, May 23 2025

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.

			The prime indices of 60 are {1,1,2,3}, differences (0,1,1), positive (1,1).
Rows begin:
     1: ()     16: ()       31: ()       46: (8)
     2: ()     17: ()       32: ()       47: ()
     3: ()     18: (1)      33: (3)      48: (1)
     4: ()     19: ()       34: (6)      49: ()
     5: ()     20: (2)      35: (1)      50: (2)
     6: (1)    21: (2)      36: (1)      51: (5)
     7: ()     22: (4)      37: ()       52: (5)
     8: ()     23: ()       38: (7)      53: ()
     9: ()     24: (1)      39: (4)      54: (1)
    10: (2)    25: ()       40: (2)      55: (2)
    11: ()     26: (5)      41: ()       56: (3)
    12: (1)    27: ()       42: (1,2)    57: (6)
    13: ()     28: (3)      43: ()       58: (9)
    14: (3)    29: ()       44: (4)      59: ()
    15: (1)    30: (1,1)    45: (1)      60: (1,1)

Row-lengths are A001221(n) - 1, sums A243055.
For multiplicities instead of differences we have A124010 (prime signature).
Positions of non-strict rows are a subset of A325992.
Including difference 0 gives A355536, 0-prepended A287352.
The 0-prepended version is A383534.
A000040 lists the primes, differences A001223.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
Cf. A039956, A048767, A055396, A061395, A130091, A320348, A325325, A325349, A325368, A358137, A381431.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[DeleteCases[Differences[prix[n]],0],{n,100}]

A325458 Triangle read by rows where T(n,k) is the number of integer partitions of n with largest hook of size k, i.e., with (largest part) + (number of parts) - 1 = k.

Original entry on oeis.org

1, 0, 1, 0, 0, 2, 0, 0, 0, 3, 0, 0, 0, 1, 4, 0, 0, 0, 0, 2, 5, 0, 0, 0, 0, 2, 3, 6, 0, 0, 0, 0, 0, 4, 4, 7, 0, 0, 0, 0, 0, 3, 6, 5, 8, 0, 0, 0, 0, 0, 1, 6, 8, 6, 9, 0, 0, 0, 0, 0, 0, 6, 9, 10, 7, 10, 0, 0, 0, 0, 0, 0, 2, 11, 12, 12, 8, 11

Offset: 0

Gus Wiseman, May 04 2019

Conjectured to be equal to A049597.

			Triangle begins:
  1
  0  1
  0  0  2
  0  0  0  3
  0  0  0  1  4
  0  0  0  0  2  5
  0  0  0  0  2  3  6
  0  0  0  0  0  4  4  7
  0  0  0  0  0  3  6  5  8
  0  0  0  0  0  1  6  8  6  9
  0  0  0  0  0  0  6  9 10  7 10
  0  0  0  0  0  0  2 11 12 12  8 11
  0  0  0  0  0  0  2  9 16 15 14  9 12
  0  0  0  0  0  0  0  7 16 21 18 16 10 13
  0  0  0  0  0  0  0  4 18 23 26 21 18 11 14
  0  0  0  0  0  0  0  3 12 29 30 31 24 20 12 15
  0  0  0  0  0  0  0  1 12 27 40 37 36 27 22 13 16
  0  0  0  0  0  0  0  0  8 26 42 51 44 41 30 24 14 17
  0  0  0  0  0  0  0  0  6 23 48 57 62 51 46 33 26 15 18
  0  0  0  0  0  0  0  0  2 21 44 70 72 73 58 51 36 28 16 19
Row n = 9 counts the following partitions:
  (333)  (54)     (63)      (72)       (9)
         (432)    (522)     (621)      (81)
         (441)    (531)     (5211)     (711)
         (3222)   (4221)    (42111)    (6111)
         (3321)   (4311)    (321111)   (51111)
         (22221)  (32211)   (2211111)  (411111)
                  (33111)              (3111111)
                  (222111)             (21111111)
                                       (111111111)

Row sums are A000041.
Column sums are 2^(k - 1) for k > 0.
Cf. A008284, A049597, A093641, A116608, A325242, A325349, A325351, A325355, A325359, A325459.

Table[Length[Select[IntegerPartitions[n],If[n==0,k==0,First[#]+Length[#]-1==k]&]],{n,0,19},{k,0,n}]

Franklin T. Adams-Watters has conjectured at A049597 that the k-th column gives the coefficients of the sum of Gaussian polynomials [k,m] for m = 0..k.

cp's OEIS Frontend

A325556 Number of necklace compositions of n with distinct circular differences up to sign.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A325459 Sum of numbers of nontrivial divisors (greater than 1 and less than k) of k for k = 1..n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Python

Formula

Extensions

A384009 Irregular triangle read by rows where row n lists the positive first differences of the prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A325458 Triangle read by rows where T(n,k) is the number of integer partitions of n with largest hook of size k, i.e., with (largest part) + (number of parts) - 1 = k.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula