A325368
Heinz numbers of integer partitions with distinct differences between successive parts.
Original entry on oeis.org
1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 25, 26, 28, 29, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 55, 57, 58, 59, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 73, 74, 75, 76, 77, 78, 79, 82, 83
Offset: 1
Most small numbers are in the sequence, but the sequence of non-terms together with their prime indices begins:
8: {1,1,1}
16: {1,1,1,1}
24: {1,1,1,2}
27: {2,2,2}
30: {1,2,3}
32: {1,1,1,1,1}
36: {1,1,2,2}
40: {1,1,1,3}
48: {1,1,1,1,2}
54: {1,2,2,2}
56: {1,1,1,4}
60: {1,1,2,3}
64: {1,1,1,1,1,1}
72: {1,1,1,2,2}
80: {1,1,1,1,3}
81: {2,2,2,2}
88: {1,1,1,5}
90: {1,2,2,3}
96: {1,1,1,1,1,2}
100: {1,1,3,3}
Cf.
A056239,
A112798,
A130091,
A240026,
A325325,
A325328,
A325352,
A325360,
A325361,
A325366,
A325367,
A325405,
A325456,
A325457.
-
primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
Select[Range[100],UnsameQ@@Differences[primeptn[#]]&]
A240027
Number of partitions of n such that the successive differences of consecutive parts are strictly increasing.
Original entry on oeis.org
1, 1, 2, 2, 4, 4, 5, 7, 9, 9, 13, 14, 16, 20, 23, 25, 32, 34, 38, 45, 51, 55, 65, 70, 77, 89, 99, 106, 122, 131, 143, 161, 177, 189, 211, 229, 248, 272, 298, 317, 349, 378, 406, 440, 479, 511, 554, 597, 640, 686, 744, 792, 850, 913, 973, 1039, 1122, 1189, 1268, 1358, 1444, 1532, 1646, 1742, 1847, 1975, 2094, 2210, 2366
Offset: 0
There are a(15) = 25 such partitions of 15:
01: [ 1 1 2 4 7 ]
02: [ 1 1 2 11 ]
03: [ 1 1 3 10 ]
04: [ 1 1 4 9 ]
05: [ 1 1 13 ]
06: [ 1 2 4 8 ]
07: [ 1 2 12 ]
08: [ 1 3 11 ]
09: [ 1 4 10 ]
10: [ 1 14 ]
11: [ 2 2 3 8 ]
12: [ 2 2 4 7 ]
13: [ 2 2 11 ]
14: [ 2 3 10 ]
15: [ 2 4 9 ]
16: [ 2 13 ]
17: [ 3 3 9 ]
18: [ 3 4 8 ]
19: [ 3 12 ]
20: [ 4 4 7 ]
21: [ 4 11 ]
22: [ 5 10 ]
23: [ 6 9 ]
24: [ 7 8 ]
25: [ 15 ]
Cf.
A240026 (nondecreasing differences).
Cf.
A179255 (distinct parts, nondecreasing),
A179254 (distinct parts, strictly increasing).
-
Table[Length[Select[IntegerPartitions[n],Less@@Differences[#]&]],{n,0,30}] (* Gus Wiseman, May 03 2019 *)
-
def partition(n, min, max)
return [[]] if n == 0
[max, n].min.downto(min).flat_map{|i| partition(n - i, min, i).map{|rest| [i, *rest]}}
end
def f(n)
return 1 if n == 0
cnt = 0
partition(n, 1, n).each{|ary|
ary0 = (1..ary.size - 1).map{|i| ary[i - 1] - ary[i]}
cnt += 1 if ary0.sort == ary0.reverse && ary0.uniq == ary0
}
cnt
end
def A240027(n)
(0..n).map{|i| f(i)}
end
p A240027(50) # Seiichi Manyama, Oct 13 2018
A325361
Heinz numbers of integer partitions whose differences are weakly decreasing.
Original entry on oeis.org
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 18, 19, 21, 22, 23, 25, 26, 27, 29, 30, 31, 32, 33, 34, 35, 37, 38, 39, 41, 43, 46, 47, 49, 50, 51, 53, 54, 55, 57, 58, 59, 61, 62, 64, 65, 67, 69, 70, 71, 73, 74, 75, 77, 79, 81, 82, 83, 85, 86, 87, 89
Offset: 1
Most small numbers are in the sequence. However, the sequence of non-terms together with their prime indices begins:
12: {1,1,2}
20: {1,1,3}
24: {1,1,1,2}
28: {1,1,4}
36: {1,1,2,2}
40: {1,1,1,3}
42: {1,2,4}
44: {1,1,5}
45: {2,2,3}
48: {1,1,1,1,2}
52: {1,1,6}
56: {1,1,1,4}
60: {1,1,2,3}
63: {2,2,4}
66: {1,2,5}
68: {1,1,7}
72: {1,1,1,2,2}
76: {1,1,8}
78: {1,2,6}
80: {1,1,1,1,3}
Cf.
A056239,
A112798,
A320466,
A320509,
A325328,
A325352,
A325456,
A325457,
A325360,
A325361,
A325364,
A320466,
A325368,
A325389.
-
primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
Select[Range[100],GreaterEqual@@Differences[primeptn[#]]&]
A325395
Heinz numbers of integer partitions whose augmented differences are strictly increasing.
Original entry on oeis.org
1, 2, 3, 5, 7, 9, 11, 13, 17, 19, 23, 25, 29, 31, 35, 37, 41, 43, 47, 49, 53, 59, 61, 67, 71, 73, 77, 79, 83, 89, 91, 97, 101, 103, 107, 109, 113, 121, 127, 131, 137, 139, 143, 149, 151, 157, 163, 167, 169, 173, 179, 181, 187, 191, 193, 197, 199, 209, 211, 221
Offset: 1
The sequence of terms together with their prime indices begins:
1: {}
2: {1}
3: {2}
5: {3}
7: {4}
9: {2,2}
11: {5}
13: {6}
17: {7}
19: {8}
23: {9}
25: {3,3}
29: {10}
31: {11}
35: {3,4}
37: {12}
41: {13}
43: {14}
47: {15}
49: {4,4}
Cf.
A056239,
A093641,
A112798,
A240027,
A325351,
A325357,
A325366,
A325389,
A325394,
A325396,
A325398,
A325456,
A325460.
-
primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
aug[y_]:=Table[If[i
A325391
Number of reversed integer partitions of n whose k-th differences are strictly increasing for all k >= 0.
Original entry on oeis.org
1, 1, 1, 2, 2, 3, 3, 5, 5, 6, 8, 9, 9, 13, 13, 15, 19, 20, 20, 28, 28, 30, 36, 40, 40, 50, 50, 56, 64, 68, 68, 86, 86, 92, 102, 112, 114, 133, 133, 146, 158, 173, 173, 202, 202, 215, 237, 256, 256, 287, 287, 324, 340, 359, 359, 403, 423, 446, 464, 495, 495
Offset: 0
The a(1) = 1 through a(9) = 6 reversed partitions:
(1) (2) (3) (4) (5) (6) (7) (8) (9)
(12) (13) (14) (15) (16) (17) (18)
(23) (24) (25) (26) (27)
(34) (35) (36)
(124) (125) (45)
(126)
The smallest reversed strict partition with strictly increasing differences not counted by this sequence is (1,2,4,7), whose first and second differences are (1,2,3) and (1,1) respectively.
Cf.
A179254,
A240026,
A325353,
A325354,
A325357,
A325393,
A325395,
A325398,
A325404,
A325406,
A325456,
A325468.
-
Table[Length[Select[Reverse/@IntegerPartitions[n],And@@Table[Less@@Differences[#,k],{k,0,Length[#]}]&]],{n,0,30}]
A325398
Heinz numbers of reversed integer partitions whose k-th differences are strictly increasing for all k >= 0.
Original entry on oeis.org
1, 2, 3, 5, 6, 7, 10, 11, 13, 14, 15, 17, 19, 21, 22, 23, 26, 29, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 46, 47, 51, 53, 55, 57, 58, 59, 61, 62, 65, 66, 67, 69, 71, 73, 74, 77, 78, 79, 82, 83, 85, 86, 87, 89, 91, 93, 94, 95, 97, 101, 102, 103, 106, 107, 109
Offset: 1
The sequence of terms together with their prime indices begins:
1: {}
2: {1}
3: {2}
5: {3}
6: {1,2}
7: {4}
10: {1,3}
11: {5}
13: {6}
14: {1,4}
15: {2,3}
17: {7}
19: {8}
21: {2,4}
22: {1,5}
23: {9}
26: {1,6}
29: {10}
31: {11}
33: {2,5}
Cf.
A056239,
A112798,
A325357,
A325391,
A325395,
A325397,
A325399,
A325400,
A325405,
A325406,
A325456,
A325467.
-
primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],And@@Table[Less@@Differences[primeMS[#],k],{k,0,PrimeOmega[#]}]&]
A325457
Heinz numbers of integer partitions with strictly decreasing differences.
Original entry on oeis.org
1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 13, 14, 15, 17, 18, 19, 21, 22, 23, 25, 26, 29, 31, 33, 34, 35, 37, 38, 39, 41, 43, 46, 47, 49, 50, 51, 53, 55, 57, 58, 59, 61, 62, 65, 67, 69, 70, 71, 73, 74, 75, 77, 79, 82, 83, 85, 86, 87, 89, 91, 93, 94, 95, 97, 98
Offset: 1
The sequence of terms together with their prime indices begins:
1: {}
2: {1}
3: {2}
4: {1,1}
5: {3}
6: {1,2}
7: {4}
9: {2,2}
10: {1,3}
11: {5}
12: {1,1,2}
13: {6}
14: {1,4}
15: {2,3}
17: {7}
19: {8}
20: {1,1,3}
21: {2,4}
22: {1,5}
23: {9}
Cf.
A056239,
A112798,
A320470,
A320510,
A325328,
A325352,
A325360,
A325361,
A325368,
A325399,
A325456,
A325461,
A320470,
A325396.
-
primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
Select[Range[100],Greater@@Differences[primeptn[#]]&]
A325460
Heinz numbers of integer partitions with strictly increasing differences (with the last part taken to be 0).
Original entry on oeis.org
1, 2, 3, 5, 7, 10, 11, 13, 14, 17, 19, 22, 23, 26, 29, 31, 33, 34, 37, 38, 39, 41, 43, 46, 47, 51, 53, 57, 58, 59, 61, 62, 67, 69, 71, 73, 74, 79, 82, 83, 85, 86, 87, 89, 93, 94, 95, 97, 101, 103, 106, 107, 109, 111, 113, 115, 118, 122, 123, 127, 129, 130, 131
Offset: 1
The sequence of terms together with their prime indices begins:
1: {}
2: {1}
3: {2}
5: {3}
7: {4}
10: {1,3}
11: {5}
13: {6}
14: {1,4}
17: {7}
19: {8}
22: {1,5}
23: {9}
26: {1,6}
29: {10}
31: {11}
33: {2,5}
34: {1,7}
37: {12}
38: {1,8}
Cf.
A007294,
A056239,
A112798,
A179269,
A325327,
A325362,
A325364,
A325367,
A325388,
A325390,
A325395,
A325398,
A325456,
A325461.
-
primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
Select[Range[100],Less@@Differences[Append[primeptn[#],0]]&]
A342524
Heinz numbers of integer partitions with strictly increasing first quotients.
Original entry on oeis.org
1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 13, 14, 15, 17, 19, 20, 21, 22, 23, 25, 26, 28, 29, 31, 33, 34, 35, 37, 38, 39, 41, 43, 44, 45, 46, 47, 49, 51, 52, 53, 55, 57, 58, 59, 61, 62, 63, 65, 66, 67, 68, 69, 71, 73, 74, 76, 77, 78, 79, 82, 83, 85, 86, 87, 89, 91
Offset: 1
The prime indices of 84 are {1,1,2,4}, with first quotients (1,2,2), so 84 is not in the sequence.
Most small numbers are in the sequence, but the sequence of non-terms together with their prime indices begins:
8: {1,1,1}
16: {1,1,1,1}
18: {1,2,2}
24: {1,1,1,2}
27: {2,2,2}
30: {1,2,3}
32: {1,1,1,1,1}
36: {1,1,2,2}
40: {1,1,1,3}
42: {1,2,4}
48: {1,1,1,1,2}
50: {1,3,3}
54: {1,2,2,2}
56: {1,1,1,4}
60: {1,1,2,3}
64: {1,1,1,1,1,1}
For differences instead of quotients we have
A325456 (count:
A240027).
For multiplicities (prime signature) instead of quotients we have
A334965.
The version counting strict divisor chains is
A342086.
The weakly increasing version is
A342523.
The strictly decreasing version is
A342525.
A167865 counts strict chains of divisors > 1 summing to n.
A318991/
A318992 rank reversed partitions with/without integer quotients.
A342098 counts (strict) partitions with all adjacent parts x > 2y.
Cf.
A048767,
A056239,
A112798,
A124010,
A130091,
A169594,
A253249,
A325351,
A325352,
A334997,
A342530.
-
primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
Select[Range[100],Less@@Divide@@@Reverse/@Partition[primeptn[#],2,1]&]
Showing 1-9 of 9 results.
Comments