A353389 -id:A353389 - cp's OEIS frontend

A353393 Positive integers m > 1 that are prime or whose prime shadow A181819(m) is a divisor of m that is already in the sequence.

2, 3, 5, 7, 9, 11, 13, 17, 19, 23, 29, 31, 36, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 125, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 225, 227, 229, 233, 239, 241, 251

Offset: 1

Gus Wiseman, May 15 2022

nonn

We define the prime shadow A181819(n) to be the product of primes indexed by the exponents in the prime factorization of n. For example, 90 = prime(1)*prime(2)^2*prime(3) has prime shadow prime(1)*prime(2)*prime(1) = 12.

			The terms together with their prime indices begin:
    2: {1}
    3: {2}
    5: {3}
    7: {4}
    9: {2,2}
   11: {5}
   13: {6}
   17: {7}
   19: {8}
   23: {9}
   29: {10}
   31: {11}
   36: {1,1,2,2}

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

The first term that is not a prime power A000961 is 36.
The first term that is not a prime or a perfect power A001597 is 1260. - Corrected by Robert Israel, Mar 10 2025
The non-recursive version is A325755, counted by A325702.
Removing all primes gives A353389.
These partitions are counted by A353426.
The version for compositions is A353431.
A001222 counts prime factors with multiplicity, distinct A001221.
A003963 gives product of prime indices.
A056239 adds up prime indices, row sums of A112798 and A296150.
A124010 gives prime signature, sorted A118914.
A130091 lists numbers with all distinct prime exponents, counted by A098859.
A181819 gives prime shadow, with an inverse A181821.
A325131 lists numbers relatively prime to their prime shadow.
Cf. A000005, A000040, A047966, A182850, A316413, A316428, A325756, A353394, A353395, A353399.

pshadow:= proc(n) local F,i;
  F:= ifactors(n)[2];
  mul(ithprime(i),i=F[..,2])
end proc:
filter:= proc(n) local s;
  if isprime(n) then return true fi;
  s:= pshadow(n);
  n mod s = 0 and member(s,R)
end proc:
R:= {}:
for i from 2 to 2000 do if filter(i) then R:= R union {i} fi od:
sort(convert(R,list)); # Robert Israel, Mar 10 2025

red[n_]:=If[n==1,1,Times@@Prime/@Last/@FactorInteger[n]];
suQ[n_]:=PrimeQ[n]||Divisible[n,red[n]]&&suQ[red[n]];
Select[Range[2,200],suQ[#]&]

Equals A353389 U A000040.

A353394 Product of prime shadows of prime indices of n (with multiplicity).

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, May 17 2022

nonn

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.

We define the prime shadow A181819(n) to be the product of primes indexed by the exponents in the prime factorization of n. For example, 90 = prime(1)*prime(2)^2*prime(3) has prime shadow prime(1)*prime(2)*prime(1) = 12.

			We have 42 = prime(1)*prime(2)*prime(4), so a(42) = 1*2*3 = 6.

Positions of first appearances are A353397.
A001222 counts prime factors with multiplicity, distinct A001221.
A003963 gives product of prime indices.
A056239 adds up prime indices, row sums of A112798 and A296150.
A124010 gives prime signature, sorted A118914, product A005361.
A181819 gives prime shadow, with an inverse A181821.
A324850 lists numbers divisible by the product of their prime indices.
A325131 lists numbers relatively prime to their prime shadow.
A325755 lists numbers divisible by their prime shadow, quotient also A325756, with recursion A353393.
Cf. A003586, A005117, A008480, A182850, A266477, A289509, A316428, A320325, A325702, A353389, A353395, A353399.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
red[n_]:=If[n==1,1,Times@@Prime/@Last/@FactorInteger[n]];
Table[Times@@red/@primeMS[n],{n,100}]

a(n) = Product_i A181819(A112798(n,i)).
Positions where a(n) = A003963(n) are A003586.
Positions where a(n) = A005361(n) are A353399, counted by A353398.
Positions where a(n) = A181819(n) are A353395, counted by A353396.

A353399 Numbers whose product of prime exponents equals the product of prime shadows of its prime indices.

Original entry on oeis.org

1, 2, 12, 20, 36, 44, 56, 68, 100, 124, 164, 184, 208, 236, 240, 268, 332, 436, 464, 484, 508, 528, 608, 628, 688, 716, 720, 752, 764, 776, 816, 844, 880, 964, 1108, 1132, 1156, 1168, 1200, 1264, 1296, 1324, 1344, 1360, 1412, 1468, 1488, 1584, 1604, 1616, 1724

Offset: 1

Gus Wiseman, May 17 2022

nonn

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.

We define the prime shadow A181819(n) to be the product of primes indexed by the exponents in the prime factorization of n. For example, 90 = prime(1)*prime(2)^2*prime(3) has prime shadow prime(1)*prime(2)*prime(1) = 12.

			The terms together with their prime indices begin:
     1: {}
     2: {1}
    12: {1,1,2}
    20: {1,1,3}
    36: {1,1,2,2}
    44: {1,1,5}
    56: {1,1,1,4}
    68: {1,1,7}
   100: {1,1,3,3}
   124: {1,1,11}
   164: {1,1,13}
   184: {1,1,1,9}
   208: {1,1,1,1,6}
   236: {1,1,17}
   240: {1,1,1,1,2,3}

Product of prime indices is A003963, counted by A339095.
The LHS (product of exponents) is A005361, counted by A266477.
The RHS (product of shadows) is A353394, first appearances A353397.
A related comparison is A353395, counted by A353396.
The partitions are counted by A353398.
Taking indices instead of exponents on the LHS gives A353503.
A001222 counts prime factors with multiplicity, distinct A001221.
A056239 adds up prime indices, row sums of A112798 and A296150.
A124010 gives prime signature, sorted A118914.
A130091 lists numbers with distinct prime exponents, counted by A098859.
A181819 gives prime shadow, with an inverse A181821.
A325131 lists numbers relatively prime to their prime shadow.
Numbers divisible by their prime shadow:
- counted by A325702
- listed by A325755
- co-recursive version A325756
- nonprime recursive version A353389
- recursive version A353393
- recursive version counted by A353426
Cf. A000720, A003586, A005117, A143773, A182850, A316428, A320325, A324850.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
red[n_]:=If[n==1,1,Times@@Prime/@Last/@FactorInteger[n]];
Select[Range[100],Times@@red/@primeMS[#]==Times@@Last/@FactorInteger[#]&]

A005361(a(n)) = A353394(a(n)).

A353426 Number of integer partitions of n that are empty or a singleton or whose multiplicities are a sub-multiset that is already counted.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 2, 1, 1, 2, 2, 1, 2, 2, 3, 3, 5, 4, 6, 5, 6, 6, 7, 8, 10, 12, 12, 14, 13, 13, 18, 15, 16, 19, 20, 20, 32, 37, 53, 74, 105

Offset: 0

Gus Wiseman, May 16 2022

a(n) is number of integer partitions of n whose Heinz number belongs to A353393, where the Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

			The a(n) partitions for selected n (A..M = 10..22):
  n=1: n=4:  n=14:     n=16:     n=17:     n=18:        n=22:
------------------------------------------------------------------
  (1)  (4)   (E)       (G)       (H)       (I)          (M)
       (22)  (5522)    (4444)    (652211)  (7722)       (9922)
             (532211)  (6622)    (742211)  (752211)     (972211)
                       (642211)  (832211)  (842211)     (A62211)
                       (732211)            (932211)     (B52211)
                                           (333222111)  (C42211)
                                                        (D32211)

The non-recursive version is A325702, ranked by A325755.
The version for compositions is A353391, non-recursive A353390.
These partitions are ranked by A353393, nonprime A353389.
A047966 counts uniform partitions, compositions A329738.
A239455 counts Look-and-Say partitions, ranked by A351294.
Cf. A000041, A002033, A074761, A181819, A181821, A323014, A325534, A333755.

oosQ[y_]:=Length[y]<=1||MemberQ[Subsets[Sort[y],{Length[Union[y]]}],Sort[Length/@Split[y]]]&&oosQ[Sort[Length/@Split[y]]];
Table[Length[Select[IntegerPartitions[n],oosQ]],{n,0,30}]

A353391 Number of compositions of n that are empty, a singleton, or whose run-lengths are a subsequence that is already counted.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 3, 1, 1, 4, 5, 7, 9, 11, 15, 22, 38, 45, 87, 93

Offset: 0

Gus Wiseman, May 15 2022

			The a(9) = 4 through a(14) = 15 compositions (A..E = 10..14):
  (9)       (A)       (B)       (C)       (D)       (E)
  (333)     (2233)    (141122)  (2244)    (161122)  (2255)
  (121122)  (3322)    (221123)  (4422)    (221125)  (5522)
  (221121)  (131122)  (221132)  (151122)  (221134)  (171122)
            (221131)  (221141)  (221124)  (221143)  (221126)
                      (231122)  (221142)  (221152)  (221135)
                      (321122)  (221151)  (221161)  (221153)
                                (241122)  (251122)  (221162)
                                (421122)  (341122)  (221171)
                                          (431122)  (261122)
                                          (521122)  (351122)
                                                    (531122)
                                                    (621122)
                                                    (122121122)
                                                    (221121221)

The non-recursive version is A353390, ranked by A353402.
The non-recursive consecutive version is A353392, ranked by A353432.
The non-recursive reverse version is A353403.
The unordered version is A353426, ranked by A353393 (nonprime A353389).
The consecutive version is A353430.
These compositions are ranked by A353431.
A003242 counts anti-run compositions, ranked by A333489.
A011782 counts compositions.
A329738 counts uniform compositions, partitions A047966.
A114901 counts compositions with no runs of length 1.
A169942 counts Golomb rulers, ranked by A333222.
A325676 counts knapsack compositions, ranked by A333223.
A325705 counts partitions containing all of their distinct multiplicities.
A329739 counts compositions with all distinct run-length.
Cf. A005811, A032020, A103295, A114640, A165413, A181591, A242882, A324572, A325702, A333755, A351013, A353401.

yosQ[y_]:=Length[y]<=1||MemberQ[Subsets[y],Length/@Split[y]]&&yosQ[Length/@Split[y]];
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],yosQ]],{n,0,15}]

A353431 Numbers k such that the k-th composition in standard order is empty, a singleton, or has its own run-lengths as a subsequence (not necessarily consecutive) that is already counted.

Original entry on oeis.org

0, 1, 2, 4, 8, 10, 16, 32, 43, 58, 64, 128, 256, 292, 349, 442, 512, 586, 676, 697, 826, 1024, 1210, 1338, 1393, 1394, 1396, 1594, 2048, 2186, 2234, 2618, 2696, 2785, 2786, 2792, 3130, 4096, 4282, 4410, 4666, 5178, 5569, 5570, 5572, 5576, 5584, 6202, 8192

Offset: 1

Gus Wiseman, May 16 2022

nonn

First differs from A353696 (the consecutive version) in having 22318, corresponding to the binary word 101011100101110 and standard composition (2,2,1,1,3,2,1,1,2), whose run-lengths (2,2,1,1,2,1) are subsequence but not a consecutive subsequence.

The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

			The initial terms, their binary expansions, and the corresponding standard compositions:
     0:           0  ()
     1:           1  (1)
     2:          10  (2)
     4:         100  (3)
     8:        1000  (4)
    10:        1010  (2,2)
    16:       10000  (5)
    32:      100000  (6)
    43:      101011  (2,2,1,1)
    58:      111010  (1,1,2,2)
    64:     1000000  (7)
   128:    10000000  (8)
   256:   100000000  (9)
   292:   100100100  (3,3,3)
   349:   101011101  (2,2,1,1,2,1)
   442:   110111010  (1,2,1,1,2,2)
   512:  1000000000  (10)
   586:  1001001010  (3,3,2,2)
   676:  1010100100  (2,2,3,3)
   697:  1010111001  (2,2,1,1,3,1)

The non-recursive version for partitions is A325755, counted by A325702.
These compositions are counted by A353391.
The version for partitions A353393, counted by A353426, w/o primes A353389.
The non-recursive version is A353402, counted by A353390.
The non-recursive consecutive case is A353432, counted by A353392.
The consecutive case is A353696, counted by A353430.
A005811 counts runs in binary expansion.
A011782 counts compositions.
A066099 lists compositions in standard order, rev A228351, run-lens A333769.
A329738 counts uniform compositions, partitions A047966.
Statistics of standard compositions:
- Length is A000120, sum A070939.
- Runs are counted by A124767, distinct A351014.
- Subsequences are counted by A334299, contiguous A124770/A124771.
- Runs-resistance is A333628.
Classes of standard compositions:
- Partitions are A114994, multisets A225620, strict A333255, sets A333256.
- Constant compositions are A272919, counted by A000005.
- Golomb rulers are A333222, counted by A169942.
- Knapsack compositions are A333223, counted by A325676.
- Anti-runs are A333489, counted by A003242.
Cf. A032020, A044813, A114640, A165413, A181819, A329739, A318928, A325705, A333224, A353427, A353403.

stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
rorQ[y_]:=Length[y]<=1||MemberQ[Subsets[y],Length/@Split[y]]&& rorQ[Length/@Split[y]];
Select[Range[0,100],rorQ[stc[#]]&]

A353432 Numbers k such that the k-th composition in standard order has its own run-lengths as a consecutive subsequence.

Original entry on oeis.org

0, 1, 10, 21, 26, 43, 58, 107, 117, 174, 186, 292, 314, 346, 348, 349, 373, 430, 442, 570, 585, 586, 629, 676, 696, 697, 804, 826, 860, 861, 885, 1082, 1141, 1173, 1210, 1338, 1387, 1392, 1393, 1394, 1396, 1594, 1653, 1700, 1720, 1721, 1882, 2106, 2165, 2186

Offset: 1

Gus Wiseman, May 16 2022

nonn

First differs from A353402 (the non-consecutive version) in lacking 53.

The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

			The initial terms, their binary expansions, and the corresponding standard compositions:
     0:          0  ()
     1:          1  (1)
    10:       1010  (2,2)
    21:      10101  (2,2,1)
    26:      11010  (1,2,2)
    43:     101011  (2,2,1,1)
    58:     111010  (1,1,2,2)
   107:    1101011  (1,2,2,1,1)
   117:    1110101  (1,1,2,2,1)
   174:   10101110  (2,2,1,1,2)
   186:   10111010  (2,1,1,2,2)
   292:  100100100  (3,3,3)
   314:  100111010  (3,1,1,2,2)
   346:  101011010  (2,2,1,2,2)
   348:  101011100  (2,2,1,1,3)
   349:  101011101  (2,2,1,1,2,1)
   373:  101110101  (2,1,1,2,2,1)
   430:  110101110  (1,2,2,1,1,2)
   442:  110111010  (1,2,1,1,2,2)

These compositions are counted by A353392.
This is the consecutive case of A353402, counted by A353390.
The non-consecutive recursive version is A353431, counted by A353391.
The recursive version is A353696, counted by A353430.
A005811 counts runs in binary expansion.
A011782 counts compositions.
A066099 lists compositions in standard order, rev A228351, run-lens A333769.
A329738 counts uniform compositions, partitions A047966.
Statistics of standard compositions:
- Length is A000120, sum A070939.
- Runs are counted by A124767, distinct A351014.
- Subsequences are counted by A334299, contiguous A124770/A124771.
- Runs-resistance is A333628.
Classes of standard compositions:
- Partitions are A114994, strict A333255, rev A225620, strict rev A333256.
- Runs are A272919, counted by A000005.
- Golomb rulers are A333222, counted by A169942.
- Anti-runs are A333489, counted by A003242.
Cf. A044813, A165413, A181819, A318928, A325702, A325705, A325755, A333224, A333755, A353389, A353393, A353403.

stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
rorQ[y_]:=Length[y]==0||MemberQ[Join@@Table[Take[y,{i,j}],{i,Length[y]},{j,i,Length[y]}],Length/@Split[y]];
Select[Range[0,10000],rorQ[stc[#]]&]

A353395 Numbers k such that the prime shadow of k equals the product of prime shadows of the prime indices of k.

Original entry on oeis.org

1, 3, 5, 11, 15, 17, 26, 31, 33, 41, 51, 55, 58, 59, 67, 78, 83, 85, 86, 93, 94, 109, 123, 126, 127, 130, 146, 148, 155, 157, 158, 165, 174, 177, 179, 187, 191, 196, 201, 202, 205, 211, 241, 244, 249, 255, 258, 274, 277, 278, 282, 283, 284, 286, 290, 295, 298

Offset: 1

Gus Wiseman, May 17 2022

nonn

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.

We define the prime shadow A181819(n) to be the product of primes indexed by the exponents in the prime factorization of n. For example, 90 = prime(1)*prime(2)^2*prime(3) has prime shadow prime(1)*prime(2)*prime(1) = 12.

			The terms together with their prime indices begin:
      1: {}         78: {1,2,6}      158: {1,22}
      3: {2}        83: {23}         165: {2,3,5}
      5: {3}        85: {3,7}        174: {1,2,10}
     11: {5}        86: {1,14}       177: {2,17}
     15: {2,3}      93: {2,11}       179: {41}
     17: {7}        94: {1,15}       187: {5,7}
     26: {1,6}     109: {29}         191: {43}
     31: {11}      123: {2,13}       196: {1,1,4,4}
     33: {2,5}     126: {1,2,2,4}    201: {2,19}
     41: {13}      127: {31}         202: {1,26}
     51: {2,7}     130: {1,3,6}      205: {3,13}
     55: {3,5}     146: {1,21}       211: {47}
     58: {1,10}    148: {1,1,12}     241: {53}
     59: {17}      155: {3,11}       244: {1,1,18}
     67: {19}      157: {37}         249: {2,23}
For example, 126 is in the sequence because its prime indices {1,2,2,4} have shadows {1,2,2,3}, with product 12, which is also the prime shadow of 126.

The prime terms are A006450.
The LHS (prime shadow) is A181819, with an inverse A181821.
The RHS (product of shadows) is A353394, first appearances A353397.
This is a ranking of the partitions counted by A353396.
Another related comparison is A353399, counted by A353398.
A001222 counts prime factors with multiplicity, distinct A001221.
A003963 gives product of prime indices.
A056239 adds up prime indices, row sums of A112798 and A296150.
A124010 gives prime signature, sorted A118914, product A005361.
A130091 lists numbers with distinct prime exponents, counted by A098859.
A324850 lists numbers divisible by the product of their prime indices.
Numbers divisible by their prime shadow:
- counted by A325702
- listed by A325755
- co-recursive version A325756
- nonprime recursive version A353389
- recursive version A353393, counted by A353426
Cf. A000005, A000961, A003586, A005117, A143773, A182850, A316428, A316438, A320325, A325131, A339095.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
red[n_]:=If[n==1,1,Times@@Prime/@Last/@FactorInteger[n]];
Select[Range[100],Times@@red/@primeMS[#]==red[#]&]

A181819(a(n)) = A353394(a(n)) = Product_i A181819(A112798(a(n),i)).

A353396 Number of integer partitions of n whose Heinz number has prime shadow equal to the product of prime shadows of its parts.

Original entry on oeis.org

1, 0, 1, 1, 0, 2, 0, 3, 1, 3, 4, 3, 7, 5, 9, 8, 12, 15, 15, 20, 21, 25, 31, 33, 38, 42, 46, 56, 61, 67, 78, 76, 96, 100, 114, 131, 130, 157, 157, 185, 200, 214, 236, 253, 275, 302, 333, 351, 386, 408, 440, 486, 515, 564, 596, 633, 691, 734, 800, 854, 899, 964

Offset: 0

Gus Wiseman, May 15 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.

We define the prime shadow A181819(n) to be the product of primes indexed by the exponents in the prime factorization of n. For example, 90 = prime(1)*prime(2)^2*prime(3) has prime shadow prime(1)*prime(2)*prime(1) = 12.

			The a(8) = 1 through a(14) = 9 partitions (A..D = 10..13):
  (53)  (72)    (73)    (B)     (75)     (D)      (B3)
        (621)   (532)   (A1)    (651)    (B2)     (752)
        (4221)  (631)   (4331)  (732)    (A21)    (761)
                (4411)          (6321)   (43321)  (A31)
                                (6411)   (44311)  (C11)
                                (43221)           (6521)
                                (44211)           (9221)
                                                  (54221)
                                                  (64211)

The LHS (prime shadow) is A181819, with an inverse A181821.
The RHS (product of prime shadows) is A353394, first appearances A353397.
These partitions are ranked by A353395.
A related comparison is A353398, ranked by A353399.
A001222 counts prime factors with multiplicity, distinct A001221.
A003963 gives product of prime indices.
A056239 adds up prime indices, row sums of A112798 and A296150.
A124010 gives prime signature, sorted A118914, product A005361.
A239455 counts Look-and-Say partitions, ranked by A351294.
A324850 lists numbers divisible by the product of their prime indices.
Cf. A000005, A002033, A143773, A182850, A316428, A325131, A325702, A325755, A353389, A353426.

red[n_]:=If[n==1,1,Times@@Prime/@Last/@FactorInteger[n]];
Table[Length[Select[IntegerPartitions[n],Times@@red/@#==red[Times@@Prime/@#]&]],{n,0,15}]

cp's OEIS Frontend

A353393 Positive integers m > 1 that are prime or whose prime shadow A181819(m) is a divisor of m that is already in the sequence.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A353394 Product of prime shadows of prime indices of n (with multiplicity).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A353399 Numbers whose product of prime exponents equals the product of prime shadows of its prime indices.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A353426 Number of integer partitions of n that are empty or a singleton or whose multiplicities are a sub-multiset that is already counted.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A353391 Number of compositions of n that are empty, a singleton, or whose run-lengths are a subsequence that is already counted.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A353431 Numbers k such that the k-th composition in standard order is empty, a singleton, or has its own run-lengths as a subsequence (not necessarily consecutive) that is already counted.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A353432 Numbers k such that the k-th composition in standard order has its own run-lengths as a consecutive subsequence.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A353395 Numbers k such that the prime shadow of k equals the product of prime shadows of the prime indices of k.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A353396 Number of integer partitions of n whose Heinz number has prime shadow equal to the product of prime shadows of its parts.

Views