A305733 -id:A305733 - cp's OEIS frontend

A181819 Prime shadow of n: a(1) = 1; for n>1, if n = Product prime(i)^e(i), then a(n) = Product prime(e(i)).

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

Offset: 1

Matthew Vandermast, Dec 07 2010

a(n) depends only on prime signature of n (cf. A025487). a(m) = a(n) iff m and n have the same prime signature, i.e., iff A046523(m) = A046523(n).

Because A046523 (the smallest representative of prime signature of n) and this sequence are functions of each other as A046523(n) = A181821(a(n)) and a(n) = a(A046523(n)), it implies that for all i, j: a(i) = a(j) <=> A046523(i) = A046523(j) <=> A101296(i) = A101296(j), i.e., that equivalence-class-wise this is equal to A101296, and furthermore, applying any function f on this sequence gives us a sequence b(n) = f(a(n)) whose equivalence class partitioning is equal to or coarser than that of A101296, i.e., b is then a sequence that depends only on the prime signature of n (the multiset of exponents of its prime factors), although not necessarily in a very intuitive way. - Antti Karttunen, Apr 28 2022

			20 = 2^2*5 has the exponents (2,1) in its prime factorization. Accordingly, a(20) = prime(2)*prime(1) = A000040(2)*A000040(1) = 3*2 = 6.

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Index entries for sequences computed from exponents in factorization of n

Column 1 of A353510 (see also A325239 and A325277).
Cf. A000040, A000265, A001511, A001222, A003963, A005361, A007814, A008578, A028234, A046523, A056239, A064553, A064989, A067029, A101296 (restricted growth sequence transform), A108951, A122111, A124010, A124859, A156552, A181820, A181821, A182850, A182855, A182857 (also A323014), A115621, A101296, A238690, A238745, A238747, A238748, A246029, A304465, A304647, A305732, A305733, A320118, A323022, A325501, A325502, A325507, A325508, A325755 (A353566), A325756, A328830 [= a(a(n))], A328835, A351564 (characteristic function of A130091), A351944, A351946, A353379.
Left inverse of A304660.

a181819 = product . map a000040 . a124010_row
-- Reinhard Zumkeller, Mar 26 2012

A181819 := proc(n)
    local a;
    a := 1;
    for pf in ifactors(n)[2] do
        a := a*ithprime(pf[2]) ;
    end do:
    a ;
end proc:
seq(A181819(n),n=1..80) ; # R. J. Mathar, Jan 09 2019
# second Maple program:
a:= n-> mul(ithprime(i[2]), i=ifactors(n)[2]):
seq(a(n), n=1..105);  # Alois P. Heinz, Nov 26 2024

{1}~Join~Table[Times @@ Prime@ Map[Last, FactorInteger@ n], {n, 2, 120}] (* Michael De Vlieger, Feb 07 2016 *)

a(n) = {my(f=factor(n)); prod(k=1, #f~, prime(f[k,2]));} \\ Michel Marcus, Nov 16 2015

;; With memoization-macro definec.
(definec (A181819 n) (cond ((= 1 n) 1) (else (* (A000040 (A067029 n)) (A181819 (A028234 n))))))
;; Antti Karttunen, Feb 05 2016

;; With memoization-macro definec.
(definec (A181819 n) (cond ((= 1 n) 1) ((even? n) (* (A000040 (A007814 n)) (A181819 (A000265 n)))) (else (A181819 (A064989 n)))))
;; Antti Karttunen, Feb 07 2016

From Antti Karttunen, Feb 07 2016: (Start)
a(1) = 1; for n > 1, a(n) = A000040(A067029(n)) * a(A028234(n)).
a(1) = 1; for n > 1, a(n) = A008578(A001511(n)) * a(A064989(n)).
Other identities. For all n >= 1:
a(A124859(n)) = A122111(a(n)) = A238745(n). - from Matthew Vandermast's formulas for the latter sequence.
(End)
a(n) = A246029(A156552(n)). - Antti Karttunen, Oct 15 2016
From Antti Karttunen, Apr 28 & Apr 30 2022: (Start)
A181821(a(n)) = A046523(n) and a(A046523(n)) = a(n). [See comments]
a(n) = A329900(A124859(n)) = A319626(A124859(n)).
a(n) = A246029(A156552(n)).
a(a(n)) = A328830(n).
a(A304660(n)) = n.
a(A108951(n)) = A122111(n).
a(A185633(n)) = A322312(n).
a(A025487(n)) = A181820(n).
a(A276076(n)) = A275735(n) and a(A276086(n)) = A328835(n).
As the sequence converts prime exponents to prime indices, it effects the following mappings:
A001221(a(n)) = A071625(n). [Number of distinct indices --> Number of distinct exponents]
A001222(a(n)) = A001221(n). [Number of indices (i.e., the number of prime factors with multiplicity) --> Number of exponents (i.e., the number of distinct prime factors)]
A056239(a(n)) = A001222(n). [Sum of indices --> Sum of exponents]
A066328(a(n)) = A136565(n). [Sum of distinct indices --> Sum of distinct exponents]
A003963(a(n)) = A005361(n). [Product of indices --> Product of exponents]
A290103(a(n)) = A072411(n). [LCM of indices --> LCM of exponents]
A156061(a(n)) = A290107(n). [Product of distinct indices --> Product of distinct exponents]
A257993(a(n)) = A134193(n). [Index of the least prime not dividing n --> The least number not among the exponents]
A055396(a(n)) = A051904(n). [Index of the least prime dividing n --> Minimal exponent]
A061395(a(n)) = A051903(n). [Index of the greatest prime dividing n --> Maximal exponent]
A008966(a(n)) = A351564(n). [All indices are distinct (i.e., n is squarefree) --> All exponents are distinct]
A007814(a(n)) = A056169(n). [Number of occurrences of index 1 (i.e., the 2-adic valuation of n) --> Number of occurrences of exponent 1]
A056169(a(n)) = A136567(n). [Number of unitary prime divisors --> Number of exponents occurring only once]
A064989(a(n)) = a(A003557(n)) = A295879(n). [Indices decremented after <--> Exponents decremented before]
Other mappings:
A007947(a(n)) = a(A328400(n)) = A329601(n).
A181821(A007947(a(n))) = A328400(n).
A064553(a(n)) = A000005(n) and A000005(a(n)) = A182860(n).
A051903(a(n)) = A351946(n).
A003557(a(n)) = A351944(n).
A258851(a(n)) = A353379(n).
A008480(a(n)) = A309004(n).
a(A325501(n)) = A325507(n) and a(A325502(n)) = A038754(n+1).
a(n!) = A325508(n).
(End)

Name "Prime shadow" (coined by Gus Wiseman in A325755) prefixed to the definition by Antti Karttunen, Apr 27 2022

A317246 Heinz numbers of supernormal integer partitions.

Original entry on oeis.org

1, 2, 4, 6, 8, 12, 16, 18, 30, 32, 60, 64, 90, 128, 150, 180, 210, 256, 300, 360, 450, 512, 540, 600, 1024, 1350, 1500, 2048, 2250, 2310, 2520, 3780, 4096, 4200, 5880, 8192, 9450, 10500, 12600, 13230, 15750, 16384, 17640, 18900, 20580, 26460, 29400, 30030

Offset: 1

Gus Wiseman, Jul 24 2018

nonn

An integer partition is supernormal if either (1) it is of the form 1^n for some n >= 0, or (2a) it spans an initial interval of positive integers, and (2b) its multiplicities, sorted in weakly decreasing order, are themselves a supernormal integer partition.

			Sequence of supernormal integer partitions begins: (), (1), (11), (21), (111), (211), (1111), (221), (321), (11111), (3211), (111111), (3221), (1111111), (3321), (32211), (4321).

Index entries for sequences related to Heinz numbers

Cf. A055932, A056239, A181819, A182850, A296150, A304465, A304687, A304818, A305732, A305733, A317089, A317090, A317245.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
supnrm[q_]:=Or[q=={}||Union[q]=={1},And[Union[q]==Range[Max[q]],supnrm[Sort[Length/@Split[q],Greater]]]];
Select[Range[10000],supnrm[primeMS[#]]&]

A305732 Heinz numbers of reducible integer partitions. Numbers n > 1 that are prime or whose prime indices are relatively prime and such that A181819(n) is already in the sequence.

Original entry on oeis.org

2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 22, 23, 24, 26, 28, 29, 30, 31, 32, 33, 34, 35, 37, 38, 40, 41, 42, 43, 44, 45, 46, 47, 48, 50, 51, 52, 53, 54, 55, 56, 58, 59, 60, 61, 62, 64, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78

Offset: 1

Gus Wiseman, Jun 22 2018

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). A prime index of n is a number m such that prime(m) divides n. A multiset m whose distinct elements are m_1, m_2, ..., m_k with multiplicities y_1, y_2, ..., y_k is reducible if either m is of size 1 or gcd(m_1,...,m_k) = 1 and the multiset {y_1,...,y_k} is also reducible.

			60 has relatively prime prime indices {1,1,2,3} with multiplicities {1,1,2} corresponding to A181819(90) = 12. 12 has relatively prime prime indices {1,1,2} with multiplicities {1,2} corresponding to A181819(12) = 6. 6 has relatively prime prime indices {1,2} with multiplicities {1,1} corresponding to A181819(6) = 4. 4 has relatively prime prime indices {1,1} with multiplicities {2} corresponding to A181819(4) = 3. 3 is prime, so we conclude that 60 belongs to the sequence.

Cf. A000837, A007916, A056239, A181819, A182850, A289508, A289509, A298748, A304465, A304687, A304818, A305563, A305731, A305733.

rdzQ[n_]:=And[n>1,Or[PrimeQ[n],And[rdzQ[Times@@Prime/@FactorInteger[n][[All,2]]],GCD@@PrimePi/@FactorInteger[n][[All,1]]==1]]];
Select[Range[50],rdzQ]

A317258 Heinz numbers of integer partitions that are not totally nonincreasing.

Original entry on oeis.org

18, 50, 54, 75, 90, 98, 108, 126, 147, 150, 162, 180, 198, 234, 242, 245, 250, 252, 270, 294, 300, 306, 324, 338, 342, 350, 363, 375, 378, 396, 414, 450, 468, 486, 490, 500, 507, 522, 525, 540, 550, 558, 578, 588, 594, 600, 605, 612, 630, 648, 650, 666, 684

Offset: 1

Gus Wiseman, Jul 25 2018

nonn

An integer partition is totally nonincreasing if either it is empty or a singleton or its multiplicities (where if x < y the multiplicity of x is counted prior to the multiplicity of y) are weakly decreasing and are themselves a totally nonincreasing integer partition.

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

			Sequence of all integer partitions that are not totally nonincreasing begins: (221), (331), (2221), (332), (3221), (441), (22211), (4221), (442), (3321), (22221), (32211), (5221), (6221), (551), (443), (3331), (42211), (32221), (4421), (33211), (7221), (222211), (661), (8221), (4331), (552), (3332), (42221), (52211), (9221), (33221).

Cf. A056239, A071365, A100883, A112769, A181819, A182850, A242031, A296150, A305733, A317256, A317257.

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[1000],!totincQ[Reverse[primeMS[#]]]&]

A305731 Number of irreducible integer partitions of n.

Original entry on oeis.org

1, 0, 0, 0, 1, 0, 4, 0, 6, 3, 12, 0, 21, 1, 30, 19, 43, 10, 82, 20, 103, 68, 152, 58, 236, 102, 301, 196, 413, 205, 653, 310, 788, 580, 1115, 718, 1649, 1006, 2149, 1714, 3018, 2247, 4502, 3389, 6036, 5509, 8647, 7601, 12678, 11310, 17541

Offset: 0

Gus Wiseman, Jun 22 2018

nonn

A multiset m whose distinct elements are m_1, m_2, ..., m_k with multiplicities y_1, y_2, ..., y_k is irreducible if m is of size > 1 and either gcd(m_1, ..., m_k) > 1 or the multiset {y_1, ..., y_k} is irreducible.

			The a(6) = 4 irreducible partitions are (42), (33), (222), (2211).

Cf. A100953, A181819, A182850, A182857, A275870, A304818, A305563, A305733, A305735.

ptnredQ[y_]:=Or[Length[y]==1,And[GCD@@y==1,ptnredQ[Sort[Length/@Split[y],Greater]]]];
Table[Length[Select[IntegerPartitions[n],!ptnredQ[#]&]],{n,20}]

A316597 Heinz numbers of integer partitions that are not totally nondecreasing.

Original entry on oeis.org

12, 20, 24, 28, 40, 44, 45, 48, 52, 56, 60, 63, 68, 72, 76, 80, 84, 88, 90, 92, 96, 99, 104, 112, 116, 117, 120, 124, 126, 132, 135, 136, 140, 144, 148, 150, 152, 153, 156, 160, 164, 168, 171, 172, 175, 176, 180, 184, 188, 189, 192, 198, 200, 204, 207, 208

Offset: 1

Gus Wiseman, Jul 29 2018

nonn

The first term of this sequence that is absent from A112769 is 150.

An integer partition is totally nondecreasing if either it is empty or a singleton or its multiplicities (where if x < y the multiplicity of x is counted prior to the multiplicity of y) are weakly increasing and, taken in reverse order, are themselves a totally nondecreasing integer partition.

			150 is the Heinz number of (3,3,2,1), with multiplicities (1,1,2), which has multiplicities (2,1), which are decreasing, so 150 does not belong to the sequence.

Complement of A316529.

Cf. A056239, A071365, A112769, A181819, A182850, A242031, A296150, A305733, A316496, A317258.

A317493 Heinz numbers of integer partitions that are not fully normal.

Original entry on oeis.org

9, 24, 25, 27, 36, 40, 48, 49, 54, 56, 72, 80, 81, 88, 96, 100, 104, 108, 112, 120, 121, 125, 135, 136, 144, 152, 160, 162, 168, 169, 176, 184, 189, 192, 196, 200, 208, 216, 224, 225, 232, 240, 243, 248, 250, 264, 270, 272, 280, 288, 289, 296, 297, 304, 312

Offset: 1

Gus Wiseman, Jul 30 2018

nonn

An integer partition is fully normal if either it is of the form (1,1,...,1) or its multiplicities span an initial interval of positive integers and, sorted in weakly decreasing order, are themselves fully normal.

			Sequence of all integer partitions that are not fully normal begins: (22), (2111), (33), (222), (2211), (3111), (21111), (44), (2221), (4111), (22111), (31111), (2222), (5111), (211111), (3311).

Cf. A055932, A056239, A181819, A182850, A296150, A305733, A317089, A317090, A317245, A317246, A317491, A317492.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
fulnrmQ[ptn_]:=With[{qtn=Sort[Length/@Split[ptn],Greater]},Or[ptn=={}||Union[ptn]=={1},And[Union[qtn]==Range[Max[qtn]],fulnrmQ[qtn]]]];
Select[Range[100],!fulnrmQ[Reverse[primeMS[#]]]&]

cp's OEIS Frontend

A181819 Prime shadow of n: a(1) = 1; for n>1, if n = Product prime(i)^e(i), then a(n) = Product prime(e(i)).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Maple

Mathematica

PARI

Scheme

Scheme

Formula

Extensions

A317246 Heinz numbers of supernormal integer partitions.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A305732 Heinz numbers of reducible integer partitions. Numbers n > 1 that are prime or whose prime indices are relatively prime and such that A181819(n) is already in the sequence.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A317258 Heinz numbers of integer partitions that are not totally nonincreasing.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A305731 Number of irreducible integer partitions of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A316597 Heinz numbers of integer partitions that are not totally nondecreasing.

Views

Author

Keywords

Comments

Examples

Crossrefs

A317493 Heinz numbers of integer partitions that are not fully normal.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica