A182857 -id:A182857 - cp's OEIS frontend

A316496 Number of totally strong integer partitions of n.

1, 1, 2, 3, 4, 5, 8, 8, 12, 13, 18, 20, 27, 27, 38, 41, 52, 56, 73, 77, 99, 105, 129, 145, 176, 186, 229, 253, 300, 329, 395, 427, 504, 555, 648, 716, 836, 905, 1065, 1173, 1340, 1475, 1703, 1860, 2140, 2349, 2671, 2944, 3365, 3666, 4167, 4582, 5160, 5668

Offset: 0

Gus Wiseman, Jul 29 2018

nonn

An integer partition is totally strong if either it is empty, equal to (1), or its run-lengths are weakly decreasing (strong) and are themselves a totally strong partition.

			The a(1) = 1 through a(8) = 12 totally strong partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (32)     (33)      (43)       (44)
             (111)  (31)    (41)     (42)      (52)       (53)
                    (1111)  (221)    (51)      (61)       (62)
                            (11111)  (222)     (331)      (71)
                                     (321)     (421)      (332)
                                     (2211)    (2221)     (431)
                                     (111111)  (1111111)  (521)
                                                          (2222)
                                                          (3311)
                                                          (22211)
                                                          (11111111)
For example, the partition (3,3,2,1) has run-lengths (2,1,1), which are weakly decreasing, but they have run-lengths (1,2), which are not weakly decreasing, so (3,3,2,1) is not totally strong.

Cf. A181819, A182850, A182857, A304660, A305563, A316597.
The Heinz numbers of these partitions are A316529.
The version for compositions is A332274.
The dual version is A332275.
The version for reversed partitions is (also) A332275.
The narrowly normal version is A332297.
The alternating version is A332339 (see also A317256).
Partitions with weakly decreasing run-lengths are A100882.
Cf. A025487, A100882, A133808, A317245, A317491, A332278, A332291, A332336.

totincQ[q_]:=Or[q=={},q=={1},And[GreaterEqual@@Length/@Split[q],totincQ[Length/@Split[q]]]];
Table[Length[Select[IntegerPartitions[n],totincQ]],{n,0,30}]

Updated with corrected terminology by Gus Wiseman, Mar 07 2020

A353867 Heinz numbers of integer partitions where every partial run (consecutive constant subsequence) has a different sum, and these sums include every integer from 0 to the greatest part.

Original entry on oeis.org

1, 2, 4, 6, 8, 16, 20, 30, 32, 56, 64, 90, 128, 140, 176, 210, 256, 416, 512, 616, 990, 1024, 1088, 1540, 2048, 2288, 2310, 2432, 2970, 4096, 4950, 5888, 7072, 7700, 8008, 8192, 11550, 12870, 14848, 16384, 20020, 20672, 30030, 31744, 32768, 38896, 50490, 55936

Offset: 1

Gus Wiseman, Jun 07 2022

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.
Related concepts:
- A partition whose submultiset sums cover an initial interval is said to be complete (A126796, ranked by A325781).
- In a knapsack partition (A108917, ranked by A299702), every submultiset has a different sum.
- A complete partition that is also knapsack is said to be perfect (A002033, ranked by A325780).
- A partition whose partial runs have all different sums is said to be rucksack (A353864, ranked by A353866, complement A354583).

			The terms together with their prime indices begin:
    1: {}
    2: {1}
    4: {1,1}
    6: {1,2}
    8: {1,1,1}
   16: {1,1,1,1}
   20: {1,1,3}
   30: {1,2,3}
   32: {1,1,1,1,1}
   56: {1,1,1,4}
   64: {1,1,1,1,1,1}
   90: {1,2,2,3}
  128: {1,1,1,1,1,1,1}
  140: {1,1,3,4}
  176: {1,1,1,1,5}
  210: {1,2,3,4}
  256: {1,1,1,1,1,1,1,1}

Knapsack partitions are counted by A108917, ranked by A299702.
Complete partitions are counted by A126796, ranked by A325781.
These partitions are counted by A353865.
This is a special case of A353866, counted by A353864, complement A354583.
A001222 counts prime factors, distinct A001221.
A056239 adds up prime indices, row sums of A112798 and A296150.
A073093 counts prime-power divisors.
A124010 gives prime signature, sorted A118914.
A300273 ranks collapsible partitions, counted by A275870.
A353832 represents the operation of taking run-sums of a partition.
A353833 ranks partitions with all equal run-sums, nonprime A353834.
A353836 counts partitions by number of distinct run-sums.
A353852 ranks compositions with all distinct run-sums, counted by A353850.
A353863 counts partitions whose weak run-sums cover an initial interval.
Cf. A018818, A181819, A182857, A304442, A316413, A325862, A353835, A353838, A353839, A353861, A353931.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
norqQ[m_]:=Sort[m]==Range[0,Max[m]];
msubs[s_]:=Join@@@Tuples[Table[Take[t,i],{t,Split[s]},{i,0,Length[t]}]];
Select[Range[1000],norqQ[Total/@Select[msubs[primeMS[#]],SameQ@@#&]]&]

A325239 Irregular triangle read by rows where row 1 is {1} and row n > 1 is the sequence starting with n and repeatedly applying A181819 until 2 is reached.

Original entry on oeis.org

1, 2, 3, 2, 4, 3, 2, 5, 2, 6, 4, 3, 2, 7, 2, 8, 5, 2, 9, 3, 2, 10, 4, 3, 2, 11, 2, 12, 6, 4, 3, 2, 13, 2, 14, 4, 3, 2, 15, 4, 3, 2, 16, 7, 2, 17, 2, 18, 6, 4, 3, 2, 19, 2, 20, 6, 4, 3, 2, 21, 4, 3, 2, 22, 4, 3, 2, 23, 2, 24, 10, 4, 3, 2, 25, 3, 2, 26, 4, 3, 2

Offset: 1

Gus Wiseman, Apr 15 2019

The function A181819 maps n = p^i*...*q^j to prime(i)*...*prime(j) = product of primes indexed by the prime exponents of n.

			Triangle begins:
   1              26 4 3 2        51 4 3 2          76 6 4 3 2
   2              27 5 2          52 6 4 3 2        77 4 3 2
   3 2            28 6 4 3 2      53 2              78 8 5 2
   4 3 2          29 2            54 10 4 3 2       79 2
   5 2            30 8 5 2        55 4 3 2          80 14 4 3 2
   6 4 3 2        31 2            56 10 4 3 2       81 7 2
   7 2            32 11 2         57 4 3 2          82 4 3 2
   8 5 2          33 4 3 2        58 4 3 2          83 2
   9 3 2          34 4 3 2        59 2              84 12 6 4 3 2
  10 4 3 2        35 4 3 2        60 12 6 4 3 2     85 4 3 2
  11 2            36 9 3 2        61 2              86 4 3 2
  12 6 4 3 2      37 2            62 4 3 2          87 4 3 2
  13 2            38 4 3 2        63 6 4 3 2        88 10 4 3 2
  14 4 3 2        39 4 3 2        64 13 2           89 2
  15 4 3 2        40 10 4 3 2     65 4 3 2          90 12 6 4 3 2
  16 7 2          41 2            66 8 5 2          91 4 3 2
  17 2            42 8 5 2        67 2              92 6 4 3 2
  18 6 4 3 2      43 2            68 6 4 3 2        93 4 3 2
  19 2            44 6 4 3 2      69 4 3 2          94 4 3 2
  20 6 4 3 2      45 6 4 3 2      70 8 5 2          95 4 3 2
  21 4 3 2        46 4 3 2        71 2              96 22 4 3 2
  22 4 3 2        47 2            72 15 4 3 2       97 2
  23 2            48 14 4 3 2     73 2              98 6 4 3 2
  24 10 4 3 2     49 3 2          74 4 3 2          99 6 4 3 2
  25 3 2          50 6 4 3 2      75 6 4 3 2       100 9 3 2

Michael De Vlieger, Table of n, a(n) for n = 1..10581 (rows 1..2500, flattened)
Michael De Vlieger, For m in row n, plot black else plot white, n = 1..120, 4X magnification.
Michael De Vlieger, For m in row n, plot black else plot white, n = 1..2^12.

Row lengths are A182850(n) + 1.
Cf. A001221, A001222, A071625, A118914, A181819, A181821, A182857, A323014, A323022, A323023, A325238, A325277.
See A353510 for a full square array version of this table.

red[n_]:=Times@@Prime/@Last/@If[n==1,{},FactorInteger[n]];
Table[NestWhileList[red,n,#>2&],{n,30}]

A001222(T(n,k)) = A323023(n,k), n > 2, k <= A182850(n).

A304464 Start with the normalized multiset of prime factors of n > 1. Given a multiset, take the multiset of its multiplicities. Repeat this until a multiset of size 1 is obtained. a(n) is the unique element of this multiset.

Original entry on oeis.org

0, 1, 2, 2, 3, 2, 4, 3, 2, 2, 5, 2, 6, 2, 2, 4, 7, 2, 8, 2, 2, 2, 9, 2, 2, 2, 3, 2, 10, 3, 11, 5, 2, 2, 2, 2, 12, 2, 2, 2, 13, 3, 14, 2, 2, 2, 15, 2, 2, 2, 2, 2, 16, 2, 2, 2, 2, 2, 17, 2, 18, 2, 2, 6, 2, 3, 19, 2, 2, 3, 20, 2, 21, 2, 2, 2, 2, 3, 22, 2, 4, 2, 23

Offset: 1

Gus Wiseman, May 13 2018

nonn

a(1) = 0 by convention.

			Starting with the normalized multiset of prime factors of 360, we obtain {1,1,1,2,2,3} -> {1,2,3} -> {1,1,1} -> {3}, so a(360) = 3.

Cf. A000005, A001222, A001597, A005117, A007916, A055932, A056239, A112798, A181819, A182850, A182857, A275870, A296150, A303945, A304465.

Table[If[n===1,0,NestWhile[Sort[Length/@Split[#]]&,If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]],Length[#]>1&]//First],{n,100}]

a(prime(n)) = n.
a(p^n) = n where p is any prime number and n > 1.
a(product of n > 1 distinct primes) = n.

A317256 Number of alternately co-strong integer partitions of n.

Original entry on oeis.org

1, 1, 2, 3, 5, 6, 11, 13, 19, 25, 35, 42, 61, 74, 98, 122, 161, 194, 254, 304, 388, 472, 589, 700, 878, 1044, 1278, 1525, 1851, 2182, 2651, 3113, 3735, 4389, 5231, 6106, 7278, 8464, 9995, 11631, 13680, 15831, 18602, 21463, 25068, 28927, 33654, 38671, 44942, 51514

Offset: 0

Gus Wiseman, Jul 25 2018

nonn

A sequence is alternately co-strong if either it is empty, equal to (1), or its run-lengths are weakly increasing (co-strong) and, when reversed, are themselves an alternately co-strong sequence.

Also the number of alternately strong reversed integer partitions of n.

			The a(1) = 1 through a(7) = 13 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)
       (11)  (21)   (22)    (32)     (33)      (43)
             (111)  (31)    (41)     (42)      (52)
                    (211)   (311)    (51)      (61)
                    (1111)  (2111)   (222)     (322)
                            (11111)  (321)     (421)
                                     (411)     (511)
                                     (2211)    (3211)
                                     (3111)    (4111)
                                     (21111)   (22111)
                                     (111111)  (31111)
                                               (211111)
                                               (1111111)
For example, starting with the partition y = (3,2,2,1,1) and repeatedly taking run-lengths and reversing gives (3,2,2,1,1) -> (2,2,1) -> (1,2), which is not weakly decreasing, so y is not  alternately co-strong. On the other hand, we have (3,3,2,2,1,1,1) -> (3,2,2) -> (2,1) -> (1,1) -> (2) -> (1), so (3,3,2,2,1,1,1) is counted under a(13).

Cf. A000041, A100883, A181819, A182850, A182857, A304660, A305563, A317081, A317086, A317245, A317258.
The Heinz numbers of these partitions are given by A317257.
The total (instead of alternating) version is A332275.
Dominates A332289 (the normal version).
The generalization to compositions is A332338.
The dual version is A332339.
The case of reversed partitions is (also) A332339.
Cf. A316496  A317491, A329746, A332292, A332297, A332340.

tniQ[q_]:=Or[q=={},q=={1},And[LessEqual@@Length/@Split[q],tniQ[Reverse[Length/@Split[q]]]]];
Table[Length[Select[IntegerPartitions[n],tniQ]],{n,0,30}]

Updated with corrected terminology by Gus Wiseman, Mar 08 2020

A317257 Heinz numbers of alternately co-strong integer partitions.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 51, 52, 53, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70

Offset: 1

Gus Wiseman, Jul 25 2018

nonn

The first term absent from this sequence but present in A242031 is 180.
A sequence is alternately co-strong if either it is empty, equal to (1), or its run-lengths are weakly increasing (co-strong) and, when reversed, are themselves an alternately co-strong sequence.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

			The sequence of terms together with their prime indices begins:
    1: {}          16: {1,1,1,1}     32: {1,1,1,1,1}
    2: {1}         17: {7}           33: {2,5}
    3: {2}         19: {8}           34: {1,7}
    4: {1,1}       20: {1,1,3}       35: {3,4}
    5: {3}         21: {2,4}         36: {1,1,2,2}
    6: {1,2}       22: {1,5}         37: {12}
    7: {4}         23: {9}           38: {1,8}
    8: {1,1,1}     24: {1,1,1,2}     39: {2,6}
    9: {2,2}       25: {3,3}         40: {1,1,1,3}
   10: {1,3}       26: {1,6}         41: {13}
   11: {5}         27: {2,2,2}       42: {1,2,4}
   12: {1,1,2}     28: {1,1,4}       43: {14}
   13: {6}         29: {10}          44: {1,1,5}
   14: {1,4}       30: {1,2,3}       45: {2,2,3}
   15: {2,3}       31: {11}          46: {1,9}

Robert Price, Table of n, a(n) for n = 1..10000

Cf. A056239, A100883, A181819, A182850, A242031, A296150, A305732, A317246.
These partitions are counted by A317256.
The complement is A317258.
Totally co-strong partitions are counted by A332275.
Alternately co-strong compositions are counted by A332338.
Alternately co-strong reversed partitions are counted by A332339.
The total version is A335376.
Cf. A182857, A304660, A305563, A316496, A332292, A332340.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
totincQ[q_]:=Or[Length[q]<=1,And[OrderedQ[Length/@Split[q]],totincQ[Reverse[Length/@Split[q]]]]];
Select[Range[100],totincQ[Reverse[primeMS[#]]]&]

Updated with corrected terminology by Gus Wiseman, Jun 04 2020

A319149 Number of superperiodic integer partitions of n.

Original entry on oeis.org

1, 1, 1, 2, 1, 3, 1, 3, 2, 3, 1, 6, 1, 3, 3, 5, 1, 7, 1, 7, 3, 3, 1, 13, 2, 3, 4, 9, 1, 13, 1, 11, 3, 3, 3, 23, 1, 3, 3, 20, 1, 17, 1, 16, 9, 3, 1, 38, 2, 9, 3, 23, 1, 25, 3, 36, 3, 3, 1, 71, 1, 3, 11, 49, 3, 31, 1, 52, 3, 19

Offset: 1

Gus Wiseman, Sep 12 2018

nonn

An integer partition is superperiodic if either it consists of a single part equal to 1 or its parts have a common divisor > 1 and its multiset of multiplicities is itself superperiodic. For example, (8,8,6,6,4,4,4,4,2,2,2,2) has multiplicities (4,4,2,2) with multiplicities (2,2) with multiplicities (2) with multiplicities (1). The first four of these partitions are periodic and the last is (1), so (8,8,6,6,4,4,4,4,2,2,2,2) is superperiodic.

			The a(24) = 11 superperiodic partitions:
  (24)
  (12,12)
  (8,8,8)
  (9,9,3,3)
  (8,8,4,4)
  (6,6,6,6)
  (10,10,2,2)
  (6,6,6,2,2,2)
  (6,6,4,4,2,2)
  (4,4,4,4,4,4)
  (4,4,4,4,2,2,2,2)
  (3,3,3,3,3,3,3,3)
  (2,2,2,2,2,2,2,2,2,2,2,2)

Cf. A000041, A000837, A018783, A024994, A047966, A098859, A100953, A181819, A182857, A304660, A305563, A317245, A317256, A319151, A319152, A319157.

wotperQ[m_]:=Or[m=={1},And[GCD@@m>1,wotperQ[Sort[Length/@Split[Sort[m]]]]]];
Table[Length[Select[IntegerPartitions[n],wotperQ]],{n,30}]

A351592 Number of Look-and-Say partitions (A239455) of n without distinct multiplicities, i.e., those that are not Wilf partitions (A098859).

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 2, 0, 0, 3, 1, 0, 5, 2, 8, 9, 8, 6, 21, 14, 20, 26, 31, 24, 53, 35, 60, 68, 78, 76, 140, 115, 163, 183, 232, 218, 343, 301, 433, 432, 565, 542, 774, 728, 958, 977, 1251, 1220, 1612, 1561, 2053, 2090, 2618, 2609, 3326, 3378

Offset: 0

Gus Wiseman, Feb 16 2022

nonn

A partition is Look-and-Say iff it has a permutation with all distinct run-lengths. For example, the partition y = (2,2,2,1,1,1) has the permutation (2,2,1,1,1,2), with run-lengths (2,3,1), which are distinct, so y is counted under A239455(9).
A partition is Wilf iff it has distinct multiplicities of parts. For example, (2,2,2,1,1,1) has multiplicities (3,3), so is not counted under A098859(9).
The Heinz numbers of these partitions are given by A351294 \ A130091.
Is a(17) = 0 the last zero of the sequence?

			The a(9) = 1 through a(18) = 5 partitions are (empty columns not shown):
  n=9:      n=12:       n=15:         n=16:       n=18:
  --------------------------------------------------------------
  (222111)  (333111)    (333222)      (33331111)  (444222)
            (22221111)  (444111)                  (555111)
                        (2222211111)              (3322221111)
                                                  (32222211111)
                                                  (222222111111)

Wilf partitions are counted by A098859, ranked by A130091.
Look-and-Say partitions are counted by A239455, ranked by A351294.
Non-Wilf partitions are counted by A336866, ranked by A130092.
Non-Look-and-Say partitions are counted by A351293, ranked by A351295.
A000569 = number of graphical partitions, complement A339617.
A032020 = number of binary expansions with all distinct run-lengths.
A044813 = numbers whose binary expansion has all distinct run-lengths.
A225485/A325280 = frequency depth, ranked by A182850/A323014.
A329738 = compositions with all equal run-lengths.
A329739 = compositions with all distinct run-lengths
A351013 = compositions with all distinct runs.
A351017 = binary words with all distinct run-lengths, for all runs A351016.
A351292 = patterns with all distinct run-lengths, for all runs A351200.
Cf. A000041, A008284, A018783, A047966, A181819, A182857, A238130, A305563, A319149, A351203, A351204, A351290.

Table[Length[Select[IntegerPartitions[n], !UnsameQ@@Length/@Split[#]&&Select[Permutations[#], UnsameQ@@Length/@Split[#]&]!={}&]],{n,0,15}]

a(n) = A239455(n) - A098859(n). Here we assume A239455(0) = 1.

More terms from Jinyuan Wang, Feb 14 2025

A353841 Length of the trajectory of the partition run-sum transformation of n, using Heinz numbers; a(1) = 0.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, May 25 2022

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.
Starting with n, this is one plus the number of times one must apply A353832 to reach a squarefree number.
Also Kimberling's depth statistic (defined in A237685 and A237750) plus one.

			The trajectory for a(1080) = 4 is the following, with prime indices shown on the right:
  1080: {1,1,1,2,2,2,3}
   325: {3,3,6}
   169: {6,6}
    37: {12}
The trajectory for a(87780) = 5 is the following, with prime indices shown on the right:
  87780: {1,1,2,3,4,5,8}
  65835: {2,2,3,4,5,8}
  51205: {3,4,4,5,8}
  19855: {3,5,8,8}
   2915: {3,5,16}
The trajectory for a(39960) = 5 is the following, with prime indices shown on the right:
  39960: {1,1,1,2,2,2,3,12}
  12025: {3,3,6,12}
   6253: {6,6,12}
   1369: {12,12}
     89: {24}

Antti Karttunen, Table of n, a(n) for n = 1..65537
Index entries for sequences related to prime indices in the factorization of n.

Positions of 1's are A005117.
The version for run-lengths instead of sums is A182850 or A323014.
Positions of first appearances are A353743.
These are the row-lengths of A353840.
Other sequences pertaining to this trajectory are A353842-A353845.
Counting partitions by this statistic gives A353846.
The version for compositions is A353854, run-lengths of A353853.
A001222 counts prime factors, distinct A001221.
A005811 counts runs in binary expansion.
A056239 adds up prime indices, row sums of A112798 and A296150.
A300273 ranks collapsible partitions, counted by A275870.
A318928 gives runs-resistance of binary expansion.
A353832 represents the operation of taking run-sums of a partition.
A353833 ranks partitions with all equal run-sums, counted by A304442.
A353835 counts distinct run-sums of prime indices, weak A353861.
A353838 ranks partitions with all distinct run-sums, counted by A353837.
A353866 ranks rucksack partitions, counted by A353864.
Cf. A008966, A071625, A073093, A181819, A182857, A325239, A325277, A325278, A353834, A353847, A353865, A353867.

Table[If[n==1,0,Length[NestWhileList[Times@@Prime/@Cases[If[#==1,{},FactorInteger[#]],{p_,k_}:>PrimePi[p]*k]&,n,!SquareFreeQ[#]&]]],{n,100}]

pis_to_runs(n) = { my(runs=List([]), f=factor(n)); for(i=1,#f~,while(f[i,2], listput(runs,primepi(f[i,1])); f[i,2]--)); (runs); };
A353832(n) = if(1==n,n,my(pruns = pis_to_runs(n), m=1, runsum=pruns[1]); for(i=2,#pruns,if(pruns[i] == pruns[i-1], runsum += pruns[i], m *= prime(runsum); runsum = pruns[i])); (m*prime(runsum)));
A353841(n) = if(1==n,0,for(i=1,oo,if(issquarefree(n), return(i), n = A353832(n)))); \\ Antti Karttunen, Jan 20 2025

a(1) = 0, and for n > 1, if A008966(n) = 1 [n is in A005117], a(n) = 1, otherwise a(n) = 1+a(A353832(n)). [See comments] - Antti Karttunen, Jan 20 2025

More terms from Antti Karttunen, Jan 20 2025

A325278 Smallest number with adjusted frequency depth n.

Original entry on oeis.org

1, 2, 4, 6, 12, 60, 2520, 1286485200, 35933692027611398678865941374040400000

Offset: 0

Gus Wiseman, Apr 17 2019

nonn

The adjusted frequency depth of a positive integer n is 0 if n = 1, and otherwise it is 1 plus the number of times one must apply A181819 to reach a prime number, where A181819(k = p^i*...*q^j) = prime(i)*...*prime(j) = product of primes indexed by the prime exponents of k. For example, 180 has adjusted frequency depth 5 because we have: 180 -> 18 -> 6 -> 4 -> 3.

Differs from A182857 in having 2 instead of 3.

A subsequence of A325238.
Cf. A011784, A056239, A112798, A118914, A181819, A181821, A182857, A225485, A323023, A325258, A325272, A325277, A325278, A325280.
Omega-sequence statistics: A001222 (first omega), A001221 (second omega), A071625 (third omega), A323022 (fourth omega), A304465 (second-to-last omega), A182850 or A323014 (length/frequency depth), A325248 (Heinz number).

nn=10000;
fd[n_]:=Switch[n,1,0,?PrimeQ,1,,1+fd[Times@@Prime/@Last/@FactorInteger[n]]];
fds=fd/@Range[nn];
Sort[Table[Position[fds,x][[1,1]],{x,Union[fds]}]]

cp's OEIS Frontend

A316496 Number of totally strong integer partitions of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A353867 Heinz numbers of integer partitions where every partial run (consecutive constant subsequence) has a different sum, and these sums include every integer from 0 to the greatest part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A325239 Irregular triangle read by rows where row 1 is {1} and row n > 1 is the sequence starting with n and repeatedly applying A181819 until 2 is reached.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A304464 Start with the normalized multiset of prime factors of n > 1. Given a multiset, take the multiset of its multiplicities. Repeat this until a multiset of size 1 is obtained. a(n) is the unique element of this multiset.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A317256 Number of alternately co-strong integer partitions of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A317257 Heinz numbers of alternately co-strong integer partitions.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A319149 Number of superperiodic integer partitions of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A351592 Number of Look-and-Say partitions (A239455) of n without distinct multiplicities, i.e., those that are not Wilf partitions (A098859).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica