A174090 -id:A174090 - cp's OEIS frontend

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

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}]

A325224 Sum of prime indices of n minus the lesser of the number of prime factors of n counted with multiplicity and the maximum prime index of n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Apr 12 2019

nonn

A prime index of n is a number m such that prime(m) divides n.

Also the number of squares in the Young diagram of the integer partition with Heinz number n after the first row or the first column, whichever is smaller, is removed. The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

			88 has 4 prime indices {1,1,1,5} with sum 8 and maximum 5, so a(88) = 8 - min(4,5) = 4.

FindStat, St000533: The maximal number of non-attacking rooks on a Ferrers shape

The number of times k appears in the sequence is A325232(k).

Cf. A001222, A052126, A056239, A061395, A064989, A065770, A112798, A174090, A257990, A263297, A325134, A325169, A325223, A325225, A325227.

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

a(n) = A056239(n) - min(A001222(n), A061395(n)) = A056239(n) - A325225(n).

A372439 Numbers k such that the least binary index of k plus the least prime index of k is odd.

Original entry on oeis.org

2, 3, 6, 7, 8, 9, 10, 13, 14, 15, 18, 19, 21, 22, 24, 26, 27, 29, 30, 32, 33, 34, 37, 38, 39, 40, 42, 43, 45, 46, 49, 50, 51, 53, 54, 56, 57, 58, 61, 62, 63, 66, 69, 70, 71, 72, 74, 75, 77, 78, 79, 81, 82, 86, 87, 88, 89, 90, 91, 93, 94, 96, 98, 99, 101, 102

Offset: 1

Gus Wiseman, May 06 2024

A binary index of n is any position of a 1 in its reversed binary expansion. The binary indices of n are row n of A048793.

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.

			The terms (center), their binary indices (left), and their prime indices (right) begin:
        {2}   2  (1)
      {1,2}   3  (2)
      {2,3}   6  (2,1)
    {1,2,3}   7  (4)
        {4}   8  (1,1,1)
      {1,4}   9  (2,2)
      {2,4}  10  (3,1)
    {1,3,4}  13  (6)
    {2,3,4}  14  (4,1)
  {1,2,3,4}  15  (3,2)
      {2,5}  18  (2,2,1)
    {1,2,5}  19  (8)
    {1,3,5}  21  (4,2)
    {2,3,5}  22  (5,1)
      {4,5}  24  (2,1,1,1)
    {2,4,5}  26  (6,1)
  {1,2,4,5}  27  (2,2,2)
  {1,3,4,5}  29  (10)
  {2,3,4,5}  30  (3,2,1)
        {6}  32  (1,1,1,1,1)
      {1,6}  33  (5,2)
      {2,6}  34  (7,1)

Positions of odd terms in A372437.
The complement is 1 followed by A372440.
For sum (A372428, zeros A372427) we have A372586, complement A372587.
For maximum (A372442, zeros A372436) we have A372588, complement A372589.
For length (A372441, zeros A071814) we have A372590, complement A372591.
A003963 gives product of prime indices, binary A096111.
A019565 gives Heinz number of binary indices, adjoint A048675.
A029837 gives greatest binary index, least A001511.
A048793 lists binary indices, length A000120, reverse A272020, sum A029931.
A061395 gives greatest prime index, least A055396.
A070939 gives length of binary expansion.
A112798 lists prime indices, length A001222, reverse A296150, sum A056239.
Cf. A000720, A061712, A174090, A243055, A359495, A372429, A372430, A372431, A372432, A372438, A372471.

bix[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],OddQ[Min[bix[#]]+Min[prix[#]]]&]

A372440 Numbers k such that the least binary index of k plus the least prime index of k is even.

Original entry on oeis.org

4, 5, 11, 12, 16, 17, 20, 23, 25, 28, 31, 35, 36, 41, 44, 47, 48, 52, 55, 59, 60, 64, 65, 67, 68, 73, 76, 80, 83, 84, 85, 92, 95, 97, 100, 103, 108, 109, 112, 115, 116, 121, 124, 125, 127, 132, 137, 140, 143, 144, 145, 148, 149, 155, 156, 157, 164, 167, 172

Offset: 1

Gus Wiseman, May 06 2024

A binary index of n is any position of a 1 in its reversed binary expansion. The binary indices of n are row n of A048793.

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.

			The terms (center), their binary indices (left), and their prime indices (right) begin:
          {3}   4  (1,1)
        {1,3}   5  (3)
      {1,2,4}  11  (5)
        {3,4}  12  (2,1,1)
          {5}  16  (1,1,1,1)
        {1,5}  17  (7)
        {3,5}  20  (3,1,1)
    {1,2,3,5}  23  (9)
      {1,4,5}  25  (3,3)
      {3,4,5}  28  (4,1,1)
  {1,2,3,4,5}  31  (11)
      {1,2,6}  35  (4,3)
        {3,6}  36  (2,2,1,1)
      {1,4,6}  41  (13)
      {3,4,6}  44  (5,1,1)
  {1,2,3,4,6}  47  (15)
        {5,6}  48  (2,1,1,1,1)
      {3,5,6}  52  (6,1,1)
  {1,2,3,5,6}  55  (5,3)
  {1,2,4,5,6}  59  (17)
    {3,4,5,6}  60  (3,2,1,1)
          {7}  64  (1,1,1,1,1,1)

For sum (A372428, zeros A372427) we have A372587, complement A372586.
Positions of even terms in A372437.
The complement is 1 followed by A372439.
For length (A372441, zeros A071814) we have A372591, complement A372590.
For maximum (A372442, zeros A372436) we have A372589, complement A372588.
A003963 gives product of prime indices, binary A096111.
A019565 gives Heinz number of binary indices, adjoint A048675.
A029837 gives greatest binary index, least A001511.
A048793 lists binary indices, length A000120, reverse A272020, sum A029931.
A061395 gives greatest prime index, least A055396.
A070939 gives length of binary expansion.
A112798 lists prime indices, length A001222, reverse A296150, sum A056239.
Cf. A000720, A061712, A174090, A243055, A359402, A359495, A372429, A372430, A372431, A372432, A372438, A372471.

bix[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],EvenQ[Min[bix[#]]+Min[prix[#]]]&]

A325184 Last part of the origin-to-boundary partition of the Young diagram of the integer partition with Heinz number n.

Original entry on oeis.org

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

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 last part 3, so a(7865) = 3.

Eric Weisstein's World of Mathematics, Graph Distance.

Positions of 1's are A325185. Positions of 2's are A325186.

Cf. A056239, A065770, A093641, A112798, A174090, A325166, A325169, A325183, A325187.

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[Apply[Plus,If[n==1,{},FixedPointList[corpos,ptnmat[primeptn[n]]][[-3]]],{0,1}],{n,100}]

A325198 Positive numbers whose maximum prime index minus minimum prime index is 2.

Original entry on oeis.org

10, 20, 21, 30, 40, 50, 55, 60, 63, 80, 90, 91, 100, 105, 120, 147, 150, 160, 180, 187, 189, 200, 240, 247, 250, 270, 275, 300, 315, 320, 360, 385, 391, 400, 441, 450, 480, 500, 525, 540, 551, 567, 600, 605, 637, 640, 713, 720, 735, 750, 800, 810, 900, 945

Offset: 1

Gus Wiseman, Apr 11 2019

nonn

Also Heinz numbers of integer partitions whose maximum minus minimum part is 2 (counted by A008805). 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:
   10: {1,3}
   20: {1,1,3}
   21: {2,4}
   30: {1,2,3}
   40: {1,1,1,3}
   50: {1,3,3}
   55: {3,5}
   60: {1,1,2,3}
   63: {2,2,4}
   80: {1,1,1,1,3}
   90: {1,2,2,3}
   91: {4,6}
  100: {1,1,3,3}
  105: {2,3,4}
  120: {1,1,1,2,3}
  147: {2,4,4}
  150: {1,2,3,3}
  160: {1,1,1,1,1,3}
  180: {1,1,2,2,3}
  187: {5,7}

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

Positions of 2's in A243055.
A061395(a(n)) - A055396((n)) = 2.
Cf. A000961, A008805, A046660, A056239, A093641, A112798, A118914, A174090, A195086, A256617, A325180, A325197.

N:= 1000: # for terms <= N
q:= 2: r:= 3:
Res:= NULL:
do
  p:= q; q:= r; r:= nextprime(r);
  if p*r > N then break fi;
  for i from 1 do
    pi:= p^i;
    if pi*r > N then break fi;
    for j from 0 do
      piqj:= pi*q^j;
      if piqj*r > N then break fi;
      Res:= Res, seq(piqj*r^k,k=1 .. floor(log[r](N/piqj)))
    od
  od
od:
sort([Res]); # Robert Israel, Apr 12 2019

Select[Range[100],PrimePi[FactorInteger[#][[-1,1]]]-PrimePi[FactorInteger[#][[1,1]]]==2&]

A383401 Index of the largest odd divisor in the list of divisors of n.

Original entry on oeis.org

1, 1, 2, 1, 2, 3, 2, 1, 3, 3, 2, 3, 2, 3, 4, 1, 2, 5, 2, 4, 4, 3, 2, 3, 3, 3, 4, 4, 2, 7, 2, 1, 4, 3, 4, 6, 2, 3, 4, 4, 2, 7, 2, 4, 6, 3, 2, 3, 3, 5, 4, 4, 2, 7, 4, 4, 4, 3, 2, 9, 2, 3, 6, 1, 4, 7, 2, 4, 4, 7, 2, 7, 2, 3, 6, 4, 4, 7, 2, 4, 5, 3, 2, 9, 4, 3, 4, 5, 2, 11, 4, 4, 4, 3, 4, 3, 2, 5, 6, 7

Offset: 1

Omar E. Pol, May 14 2025

a(n) = 1 if and only if n is a power of 2.

a(n) = 2 if and only if n is an odd prime.

			For n = 10 the divisors of 10 are [1, 2, 5, 10] and the largest odd divisor is 5 and 5 is the third divisor, so a(10) = 3.

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A000005, A000079, A000265, A001227, A027750, A065091, A174090.

a[n_] := If[OddQ[n], DivisorSigma[0, n], FirstPosition[Divisors[n], n/2^IntegerExponent[n, 2]][[1]]]; Array[a, 100] (* Amiram Eldar, May 14 2025 *)

a(n) = select(x->x==n/2^valuation(n,2), divisors(n), 1)[1]; \\ Michel Marcus, May 14 2025

a(2n-1) = A000005(2n-1).

A081730 Numbers k such that the k-th Euler number == 1 (mod k).

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 11, 13, 15, 16, 17, 19, 23, 29, 31, 32, 37, 41, 43, 47, 53, 59, 61, 64, 67, 71, 73, 79, 83, 89, 91, 97, 101, 103, 107, 109, 113, 127, 128, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241

Offset: 1

Benoit Cloitre, Apr 06 2003

nonn

All primes and all powers of 2 are in the sequence. The composite terms that are not powers of 2 are in A035163.

Amiram Eldar, Table of n, a(n) for n = 1..2000

Union of A035163 and A174090.

Cf. A000079, A000364, A065091, A069042.

Select[Range[250], Divisible[Abs[EulerE[2*#]] - 1, #] &] (* Amiram Eldar, Apr 22 2025 *)

a000364(n)=subst(bernpol(2*n+1), 'x, 1/4)*4^(2*n+1)*(-1)^(n+1)/(2*n+1);
lista(nn) = {for (n=1, nn, if (Mod(a000364(n), n) == 1, print1(n, ", ")););} \\ Michel Marcus, Apr 18 2015

More terms from Weston Markham (weston.markham(AT)gmail.com), May 22 2005

A219839 a(n) is the number of odd integers in 2..(n-1) that have a common factor (other than 1) with n.

Original entry on oeis.org

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

Offset: 1

Lei Zhou, Nov 29 2012

a(n) is also the number of linearly dependent diagonal/side length ratios R(n,k), in the regular n-gon. The following will explain this. In the regular n-gon inscribed in a circle the number of distinct diagonals including the side is floor(n/2). Not all of the corresponding length ratios R(n,k) = d(n,k)/d(n,1), k = 1..floor(n/2), with d(n,1) = s(n) (the length of the side), d(n,2) the length of the smallest diagonal, etc., are linearly independent because C(n,R(n,2)) = 0, where C is the minimal polynomial of R(n,2) = 2*cos(Pi/n) (see A187360) with degree delta(n) = A055034(n). Thus every ratio R(n,j), with j = delta(n)+1, ..., floor(n/2) can be expressed as a linear combination of the independent R(n,k), k=1, ..., delta(n). See the comment from Sep 21 2013 on A053121 for powers of R(n,2) (called there rho(N)). Therefore, a(n) = floor(n/2) - delta(n) is, for n>=2, the number of linearly dependent ratios R(n,k) in the regular n-gon. - Wolfdieter Lang, Sep 23 2013
From Wolfdieter Lang, Nov 23 2020: (Start)
This sequence gives the difference between the number of odd numbers in the smallest nonnegative residue system modulo n (called here RS(n)) and the smallest nonnegative restricted residue system (called here RRS(n), but RRS(1) = {1}, not {0}).
This sequence can be used to find sequence A111774 by recording the positions of the entries >= 1. See a W. Lang comment there, and also A337940, for the proof. Hence the complement of A111774, given in A174090, is given by the numbers m with a(m) = 0. (End)

			n=1: there is no odd number greater than 2 but smaller than 1-1=0, so a(1)=0.
Same for n=2,3.
n=4: 3 is the only odd number in 2..(4-1), and GCD(3,4)=1, so a(4)=0.
For any prime numbers and numbers in the form of 2^n, no odd number in 2..(n-1) has common factor with n, so a(p)=0 and a(2^n)=0, n>0.
n=6: 3,5 are odd numbers in 2..(6-1), and GCD(3,6)=3>1 and GCD(5,6)=1, so a(6)=1.
n=15: candidates are 3,5,7,9,11,13.  3, 5, and 9 have greater than 1 common factors with 15, so a(15)=3
From _Wolfdieter Lang_, Sep 23 2013: (Start)
Example n = 15 for a(n) = floor(n/2) - delta(n): 1, 3, 5, 7, 9, 11, 13 take out 1, 7, 9, 11, leaving 3, 5, 13. Therefore, a(15) = 7 - 4 = 3. See the formula above for delta.
In the regular 15-gon the 3 (= a(15)) diagonal/side ratios R(15, 5), R(15, 6) and R(15,7) can be expressed as linear combinations of the R(15,j), j=1..4.  See the n-gon comment above. (End)
From _Wolfdieter Lang_, Nov 23 2020: (Start)
n = 1: RS(1) = {0}, RRS(1) = {1}, hence a(1) = 0 - 1 = 0. Here RRS(1) is not {0}(standard) because delta(1) := 1 (the degree of minimal polynomial for 2*cos(Pi//1) = -2 which is x+2, see A187360).
n = 6: RS(6) = {0, 1, 2, 3, 4, 5} and RRS(6) = {1,5}, hence a(6) = 3 - 2 = 1, and A111774(1) = 6 = A337940(1, 1).
a(15) = 7 - 4 = 3, and A111774(6) = 15 = A337940(3, 3) = A337940(4, 1) (multiplicity 2 = A338428(6)). (End)

Lei Zhou, Table of n, a(n) for n = 1..10000

Cf. A000010, A016035 (see 1st comment there), A004526, A055034, A111774, A174090, A190357, A337940, A338428.

Table[Count[Range[3, n - 1, 2], ?(GCD[n, #] > 1 &)], {n, 100}] (* _T. D. Noe, Nov 30 2012 *)
a[1] = 0; a[n_] := Floor[n/2] - EulerPhi[2*n]/2; Array[a, 80] (* Amiram Eldar, Nov 28 2020 *)

a(n) = sum(i=2, n-1, (i%2) && (gcd(i,n)!=1)); \\ Michel Marcus, Aug 07 2018

a(n) = floor(n/2) - delta(n), with floor(n/2) = A004526 and delta(n) = A055034(n) = phi(2*n)/2, for n >= 2, with Euler's phi A000010. See the Aug 17 2011 comment on A055034. For n = 1 this would be -1, not 0, because delta(1) = 1. - Wolfdieter Lang, Sep 23 2013

Sum_{k=1..n} a(k) ~ c*n^2, where c = 1/4 - 2/Pi^2 = 0.04735763... (A190357). - Amiram Eldar, Feb 23 2025

cp's OEIS Frontend

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

A325224 Sum of prime indices of n minus the lesser of the number of prime factors of n counted with multiplicity and the maximum prime index of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A372439 Numbers k such that the least binary index of k plus the least prime index of k is odd.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A372440 Numbers k such that the least binary index of k plus the least prime index of k is even.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A325184 Last part 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

A325198 Positive numbers whose maximum prime index minus minimum prime index is 2.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A383401 Index of the largest odd divisor in the list of divisors of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs