A325167 -id:A325167 - cp's OEIS frontend

A065770 Number of prime cascades to reach 1, where a prime cascade (A065769) is multiplicative with a(p(m)^k) = p(m-1) * p(m)^(k-1).

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

Offset: 1

Henry Bottomley, Nov 19 2001

nonn

It seems that a(n) <= A297113(n) for all n. Of the first 10000 positive natural numbers, 6454 are such that a(n) = A297113(n). - Antti Karttunen, Dec 31 2017

Also one plus the maximum number of unit steps East or South in the Young diagram of the integer partition with Heinz number n > 1, starting from the upper-left square and ending in a boundary square in the lower-right quadrant. The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). - Gus Wiseman, Apr 06 2019

			a(50) = 4 since the cascade goes from 50 = 2^1 * 5^2 to 15 = 3^1 * 5^1 to 6 = 2^1 * 3^1 to 2 = 2^1 to 1.
From _Gus Wiseman_, Apr 06 2019: (Start)
The partition with Heinz number 7865 is (6,5,5,3), with diagram
  o o o o o o
  o o o o o
  o o o o o
  o o o
which has longest path from (1,1) to (5,3) of length 6, so a(7865) = 7.
(End)

Antti Karttunen, Table of n, a(n) for n = 1..16384
FindStat, St000384: The maximal part of the shifted composition of an integer partition

Cf. A065769.
Differs from A297113 for the first time at n=20, where a(20) = 3, while A297113(20) = 4.
Cf. A001221, A001222, A052126, A056239, A064989, A112798, A174090, A257990, A325166, A325167, A325169.

Table[If[n==1,0,Max@@Total/@Position[PadRight[ConstantArray[1,#]&/@Sort[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]],Greater]],1]-1],{n,100}] (* Gus Wiseman, Apr 06 2019 *)

(definec (A065770 n) (if (= 1 n) 0 (+ 1 (A065770 (A065769 n))))) ;; Antti Karttunen, Dec 31 2017

Inverse of primes, powers of 2 and primorials in sense that a(A000040(n))=n; a(A000079(n))=n; a(A002110(n))=n. If n>0: a(3^n)=n+1; a(2^n*3^k)=n+k; a(p(k)^n)=n+k-1; a(n!)=A022559(n).

a(1) = 0; and for n > 1, a(n) = 1 + A065769(n). - Antti Karttunen, Dec 31 2017

A325169 Origin-to-boundary graph-distance of the Young diagram of the integer partition with Heinz number n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Apr 05 2019

nonn

The origin-to-boundary graph-distance of a Young diagram is the minimum number of unit steps left or down from the upper-left square to a nonsquare in the lower-right quadrant. It is also the side-length of the minimum triangular partition contained inside the diagram.

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

FindStat, St000783: The maximal number of occurrences of a colour in a proper colouring of a Ferrers diagram

Cf. A001221, A001222, A056239, A061395, A065770, A112798, A115994, A174090, A257990, A297113, A325166, A325167, A325170.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
otb[ptn_]:=Min@@MapIndexed[#1+#2[[1]]-1&,Append[ptn,0]];
Table[otb[Reverse[primeMS[n]]],{n,100}]

A257990(n) <= a(n) <= 2 * A257990(n).

A297113 a(1) = 0, a(2) = 1, after which, a(n) = a(n/2) if n is of the form 4k+2, and otherwise a(n) = 1+a(A252463(n)).

Original entry on oeis.org

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

Offset: 1

Antti Karttunen, Dec 26 2017

nonn

From Gus Wiseman, Apr 06 2019: (Start)
Also the number of squares in the Young diagram of the integer partition with Heinz number n that are graph-distance 1 from the lower-right boundary, where the Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). For example, the partition (6,5,5,3) with Heinz number 7865 has diagram
  o o o o o o
  o o o o o
  o o o o o
  o o o
with inner rim
            o
          o
        o o
  o o o
of size 7, so a(7867) = 7.
(End)

Antti Karttunen, Table of n, a(n) for n = 1..12721
Index entries for sequences computed from indices in prime factorization

One more than A297167 (after the initial term).
Cf. A001511, A008683, A033265, A064989, A156552, A252463, A252464, A297112, A297155.
Cf. also A297157, A297161, A297162.
Cf. A052126, A065770, A112798, A115994, A174090, A325166, A325167, A325169.

Table[If[n==1,0,PrimePi[FactorInteger[n][[-1,1]]]+PrimeOmega[n]-PrimeNu[n]],{n,100}] (* Gus Wiseman, Apr 06 2019 *)

A064989(n) = {my(f); f = factor(n); if((n>1 && f[1,1]==2), f[1,2] = 0); for (i=1, #f~, f[i,1] = precprime(f[i,1]-1)); factorback(f)};
A297113(n) = if(n<=2,n-1,if(n%2,1+A297113(A064989(n)), !(n%4)+A297113(n/2)));

\\ More complex way, after Moebius transform:
A156552(n) = if(1==n, 0, if(!(n%2), 1+(2*A156552(n/2)), 2*A156552(A064989(n))));
A297112(n) = sumdiv(n,d,moebius(n/d)*A156552(d));
A297113(n) = if(1==n,0,1+valuation(A297112(n),2));

;; With memoization-macro definec.
(definec (A297113 n) (cond ((<= n 2) (- n 1)) ((= 2 (modulo n 4)) (A297113 (/ n 2))) (else (+ 1 (A297113 (A252463 n))))))

a(1) = 0, a(2) = 1, after which, a(n) = a(n/2) if n is of the form 4k+2, and otherwise a(n) = 1+a(A252463(n)) .
For n > 1, a(n) = A001511(A297112(n)), where A297112(n) = Sum_{d|n} moebius(n/d)*A156552(d).
a(n) = A252464(n) - A297155(n).
For n > 1, a(n) = 1+A033265(A156552(n)) = 1+A297167(n) = A046660(n) + A061395(n). - Last two sums added by Antti Karttunen, Sep 02 2018
Other identities. For all n >= 1:
a(A000040(n)) = n. [Each n occurs for the first time at the n-th prime.]

A325163 Heinz number of the inner lining partition of the integer partition with Heinz number n.

Original entry on oeis.org

1, 2, 3, 3, 5, 5, 7, 5, 10, 7, 11, 7, 13, 11, 14, 7, 17, 14, 19, 11, 22, 13, 23, 11, 21, 17, 21, 13, 29, 22, 31, 11, 26, 19, 33, 22, 37, 23, 34, 13, 41, 26, 43, 17, 33, 29, 47, 13, 55, 33, 38, 19, 53, 33, 39, 17, 46, 31, 59, 26, 61, 37, 39, 13, 51, 34, 67, 23

Offset: 1

Gus Wiseman, Apr 05 2019

nonn

The k-th part of the inner lining partition of an integer partition is the number of squares in its Young diagram that are k diagonal steps from the lower-right boundary. The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

			The partition with Heinz number 7865 is (6,5,5,3), with diagram
  o o o o o o
  o o o o o
  o o o o o
  o o o
which has diagonal distances
  3 3 3 2 1 1
  3 2 2 2 1
  2 2 1 1 1
  1 1 1
so the inner lining partition is (9,6,4), which has Heinz number 2093, so a(7865) = 2093.

Cf. A052126, A056239, A064989, A065770, A093641, A112798, A188674, A252464, A257990, A297113, A325133, A325135, A325164, A325167, A325169.

Table[Times@@Prime/@(-Differences[Total/@Take[FixedPointList[If[#=={},{},DeleteCases[Rest[#]-1,0]]&,Reverse[Flatten[Cases[If[n==1,{},FactorInteger[n]],{p_,k_}:>Table[PrimePi[p],{k}]]]]],{1,-2}]]),{n,100}]

A325166 Size of the internal portion of the integer partition with Heinz number n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Apr 05 2019

nonn

The internal portion of an integer partition consists of all squares in the Young diagram that have a square both directly below and directly to the right.

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

			The partition with Heinz number 7865 is (6,5,5,3), with diagram
  o o o o o o
  o o o o o
  o o o o o
  o o o
with internal portion
  o o o o o
  o o o o
  o o o
of size 12, so a(7865) = 12.

Antti Karttunen, Table of n, a(n) for n = 1..20000
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..65537

Positions of zeros are A174090.

Cf. A001221, A001222, A052126, A056239, A061395, A064989, A065770, A112798, A252464, A257990, A297113, A325133, A325135, A325167, A325169.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[If[n==1,0,Total[primeMS[n]]-Max[primeMS[n]]-Length[primeMS[n]]+Length[Union[primeMS[n]]]],{n,100}]

A056239(n) = { my(f); if(1==n, 0, f=factor(n); sum(i=1, #f~, f[i,2] * primepi(f[i,1]))); }
A061395(n) = if(1==n, 0, primepi(vecmax(factor(n)[, 1])));
A325166(n) = (A056239(n) - A061395(n) - bigomega(n) + omega(n)); \\ Antti Karttunen, Apr 14 2019

a(n) = A056239(n) - A061395(n) - A001222(n) + A001221(n).

a(n) = A056239(n) - A297113(n).

More terms from Antti Karttunen, Apr 14 2019

A325170 Heinz numbers of integer partitions with origin-to-boundary graph-distance equal to 2.

Original entry on oeis.org

6, 9, 10, 12, 14, 15, 18, 20, 21, 22, 24, 25, 26, 27, 28, 33, 34, 35, 36, 38, 39, 40, 44, 46, 48, 49, 51, 52, 54, 55, 56, 57, 58, 62, 65, 68, 69, 72, 74, 76, 77, 80, 81, 82, 85, 86, 87, 88, 91, 92, 93, 94, 95, 96, 104, 106, 108, 111, 112, 115, 116, 118, 119

Offset: 1

Gus Wiseman, Apr 05 2019

nonn

The origin-to-boundary graph-distance of a Young diagram is the minimum number of unit steps East or South from the upper-left square to a nonsquare in the lower-right quadrant. It is also the side-length of the minimum triangular partition contained inside the diagram.

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:
   6: {1,2}
   9: {2,2}
  10: {1,3}
  12: {1,1,2}
  14: {1,4}
  15: {2,3}
  18: {1,2,2}
  20: {1,1,3}
  21: {2,4}
  22: {1,5}
  24: {1,1,1,2}
  25: {3,3}
  26: {1,6}
  27: {2,2,2}
  28: {1,1,4}
  33: {2,5}
  34: {1,7}
  35: {3,4}
  36: {1,1,2,2}
  38: {1,8}

Gus Wiseman, Young diagrams corresponding to the first 50 terms.

Cf. A001221, A001222, A006918, A056239, A065770, A112798, A174090, A257990, A297113, A325167, A325169.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
otb[ptn_]:=Min@@MapIndexed[#1+#2[[1]]-1&,Append[ptn,0]];
Select[Range[200],otb[Reverse[primeMS[#]]]==2&]

A325183 Heinz number of the origin-to-boundary partition of the Young diagram of the integer partition with Heinz number n.

Original entry on oeis.org

1, 2, 3, 3, 5, 6, 7, 5, 10, 10, 11, 10, 13, 14, 15, 7, 17, 15, 19, 14, 21, 22, 23, 14, 21, 26, 21, 22, 29, 30, 31, 11, 33, 34, 35, 21, 37, 38, 39, 22, 41, 42, 43, 26, 42, 46, 47, 22, 55, 42, 51, 34, 53, 35, 55, 26, 57, 58, 59, 42, 61, 62, 66, 13, 65, 66, 67

Offset: 1

Gus Wiseman, Apr 08 2019

nonn

The k-th part of the origin-to-boundary partition of a Young diagram is the number of squares graph-distance k from the lower-right boundary.

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

			The partition with Heinz number 7865 is (6,5,5,3), with diagram
  o o o o o o
  o o o o o
  o o o o o
  o o o
with origin-to-boundary graph-distances
  4 4 4 3 2 1
  3 3 3 2 1
  2 2 2 1 1
  1 1 1
giving the origin-to-boundary partition (7,5,4,3) with Heinz number 6545, so a(7865) = 6545.

Eric Weisstein's World of Mathematics, Graph Distance.

The only terms appearing only once are the primorials A002110.
The union consists of all squarefree numbers A005117.
Cf. A000245, A056239, A065770, A112798, A174090, A297113.
Cf. A325166, A325167, A325169, A325184, A325188, A325189, A325195.

primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
ptnmat[ptn_]:=PadRight[(ConstantArray[1,#]&)/@Sort[ptn,Greater],{Length[ptn],Max@@ptn}+1];
corpos[mat_]:=ReplacePart[mat,Select[Position[mat,1],Times@@Extract[mat,{#+{1,0},#+{0,1}}]==0&]->0];
Table[Times@@Prime/@If[n==1,{},-Differences[Map[Total,Drop[FixedPointList[corpos,ptnmat[primeptn[n]]],-1],2]]],{n,30}]

cp's OEIS Frontend

A065770 Number of prime cascades to reach 1, where a prime cascade (A065769) is multiplicative with a(p(m)^k) = p(m-1) * p(m)^(k-1).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Scheme

Formula

A325169 Origin-to-boundary graph-distance of the Young diagram of the integer partition with Heinz number n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A297113 a(1) = 0, a(2) = 1, after which, a(n) = a(n/2) if n is of the form 4k+2, and otherwise a(n) = 1+a(A252463(n)).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

PARI

Scheme

Formula

A325163 Heinz number of the inner lining partition of the integer partition with Heinz number n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A325166 Size of the internal portion of the integer partition with Heinz number n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A325170 Heinz numbers of integer partitions with origin-to-boundary graph-distance equal to 2.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A325183 Heinz number of the origin-to-boundary partition of the Young diagram of the integer partition with Heinz number n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica