A265640 -id:A265640 - cp's OEIS frontend

A344416 Heinz numbers of integer partitions whose sum is even and is at most twice the greatest part.

3, 4, 7, 9, 10, 12, 13, 19, 21, 22, 25, 28, 29, 30, 34, 37, 39, 40, 43, 46, 49, 52, 53, 55, 57, 61, 62, 63, 66, 70, 71, 76, 79, 82, 84, 85, 87, 88, 89, 91, 94, 101, 102, 107, 111, 112, 113, 115, 116, 117, 118, 121, 129, 130, 131, 133, 134, 136, 138, 139, 146

Offset: 1

Gus Wiseman, May 20 2021

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), giving a bijective correspondence between positive integers and integer partitions.

Also numbers m whose sum of prime indices A056239(m) is even and is at most twice the greatest prime index A061395(m).

			The sequence of terms together with their prime indices begins:
      3: {2}         37: {12}          71: {20}
      4: {1,1}       39: {2,6}         76: {1,1,8}
      7: {4}         40: {1,1,1,3}     79: {22}
      9: {2,2}       43: {14}          82: {1,13}
     10: {1,3}       46: {1,9}         84: {1,1,2,4}
     12: {1,1,2}     49: {4,4}         85: {3,7}
     13: {6}         52: {1,1,6}       87: {2,10}
     19: {8}         53: {16}          88: {1,1,1,5}
     21: {2,4}       55: {3,5}         89: {24}
     22: {1,5}       57: {2,8}         91: {4,6}
     25: {3,3}       61: {18}          94: {1,15}
     28: {1,1,4}     62: {1,11}       101: {26}
     29: {10}        63: {2,2,4}      102: {1,2,7}
     30: {1,2,3}     66: {1,2,5}      107: {28}
     34: {1,7}       70: {1,3,4}      111: {2,12}

These partitions are counted by A000070 = even-indexed terms of A025065.
The opposite version appears to be A320924, counted by A209816.
The opposite version with odd weights allowed appears to be A322109.
The conjugate opposite version allowing odds is A344291, counted by A110618.
The conjugate version is A344296, also counted by A025065.
The conjugate opposite version is A344413, counted by A209816.
Allowing odd weight gives A344414.
The case of equality is A344415, counted by A035363.
A001222 counts prime factors with multiplicity.
A027187 counts partitions of even length, ranked by A028260.
A056239 adds up prime indices, row sums of A112798.
A058696 counts partitions of even numbers, ranked by A300061.
A265640 lists Heinz numbers of palindromic partitions.
A301987 lists numbers whose sum of prime indices equals their product.
A334201 adds up all prime indices except the greatest.
A340387 lists Heinz numbers of partitions whose sum is twice their length.
Cf. A001414, A074761, A316413, A316428, A325037, A325038, A325044, A330950, A344293, A344294, A344297.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],EvenQ[Total[primeMS[#]]]&&Max[primeMS[#]]>=Total[primeMS[#]]/2&]

Intersection of A300061 and A344414.

A322109 Heinz numbers of integer partitions that are the vertex-degrees of some set multipartition (multiset of nonempty sets) with no singletons.

Original entry on oeis.org

1, 4, 8, 9, 12, 16, 18, 24, 25, 27, 30, 32, 36, 40, 45, 48, 49, 50, 54, 60, 63, 64, 70, 72, 75, 80, 81, 84, 90, 96, 98, 100, 105, 108, 112, 120, 121, 125, 126, 128, 135, 140, 144, 147, 150, 154, 160, 162, 165, 168, 169, 175, 180, 189, 192, 196, 198, 200, 210

Offset: 1

Gus Wiseman, Nov 26 2018

nonn

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

Also Heinz numbers of partitions whose greatest part is less than or equal to half the sum of parts, i.e., numbers n whose sum of prime indices A056239(n) is at least twice the greatest prime index A061395(n). - Gus Wiseman, May 23 2021

			Each term paired with its Heinz partition and a realizing set multipartition with no singletons:
   1:      (): {}
   4:    (11): {{1,2}}
   8:   (111): {{1,2,3}}
   9:    (22): {{1,2},{1,2}}
  12:   (211): {{1,2},{1,3}}
  16:  (1111): {{1,2,3,4}}
  18:   (221): {{1,2},{1,2,3}}
  24:  (2111): {{1,2},{1,3,4}}
  25:    (33): {{1,2},{1,2},{1,2}}
  27:   (222): {{1,2,3},{1,2,3}}
  30:   (321): {{1,2},{1,2},{1,3}}
  32: (11111): {{1,2,3,4,5}}
  36:  (2211): {{1,2},{1,2,3,4}}
  40:  (3111): {{1,2},{1,3},{1,4}}

These partitions are counted by A110618.
The even-weight version is A320924.
The conjugate case of equality is A340387.
The conjugate version is A344291.
The opposite conjugate version is A344296.
The opposite version is A344414.
The case of equality is A344415.
The opposite even-weight version is A344416.
A000070 counts non-multigraphical partitions.
A025065 counts palindromic partitions.
A035363 counts partitions into even parts.
A056239 adds up prime indices, row sums of A112798.
A058696 counts partitions of even numbers, ranked by A300061.
A334201 adds up all prime indices except the greatest.
Cf. A000041, A000569, A265640, A283877, A306005, A318361, A320922, A320923, A320925.

nrmptn[n_]:=Join@@MapIndexed[Table[#2[[1]],{#1}]&,If[n==1,{},Flatten[Cases[FactorInteger[n]//Reverse,{p_,k_}:>Table[PrimePi[p],{k}]]]]];
sqnopfacs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[sqnopfacs[n/d],Min@@#>=d&]],{d,Select[Rest[Divisors[n]],!PrimeQ[#]&&SquareFreeQ[#]&]}]]
Select[Range[100],Length[sqnopfacs[Times@@Prime/@nrmptn[#]]]>0&]

A061395(a(n)) <= A056239(a(n))/2.

A229153 Numbers of the form c * m^2, where m > 0 and c is composite and squarefree.

Original entry on oeis.org

6, 10, 14, 15, 21, 22, 24, 26, 30, 33, 34, 35, 38, 39, 40, 42, 46, 51, 54, 55, 56, 57, 58, 60, 62, 65, 66, 69, 70, 74, 77, 78, 82, 84, 85, 86, 87, 88, 90, 91, 93, 94, 95, 96, 102, 104, 105, 106, 110, 111, 114, 115, 118, 119, 120, 122, 123, 126, 129, 130, 132, 133, 134, 135, 136, 138, 140, 141, 142, 143, 145, 146, 150

Offset: 1

Chris Boyd, Sep 15 2013

nonn

Subsequence of A048943. According to Gerard P. Michon, one of the criteria for N to belong to A048943 is that it has at least two prime factors with odd multiplicities. By definition, the composite factor c in any term of A229153 conforms to this criterion.

From a(1) to a(63), identical to the given terms of A119847, except for the single term a(55) = 120.

Chris Boyd, Table of n, a(n) for n = 1..10000

Complement of A265640.

Cf. A048943, A229125.

iscomposite(n)={if(!isprime(n)&&n!=1,return(1));}
test(n)={if(iscomposite(core(n)),return(1));}
for(n=1,200,if(test(n)==1,print1(n",")))

lista(nn) = {for(n=1,nn, if(!ispseudoprime(core(n)) && !issquare(n), print1(n, ", ")));} \\ Altug Alkan, Feb 04 2016

list(lim)=my(v=List()); forsquarefree(c=6,lim\=1, if(#c[2]~ > 1, for(m=1,sqrtint(lim\c[1]), listput(v, c[1]*m^2)))); Set(v) \\ Charles R Greathouse IV, Jan 09 2022

from math import isqrt
from sympy import primepi, mobius
def A229153(n):
    def f(x):
        c = n+x+(a:=isqrt(x))
        for y in range(1,a+1):
            m = x//y**2
            c += primepi(m)-sum(mobius(k)*(m//k**2) for k in range(1, isqrt(m)+1))
        return c
    m, k = n, f(n)
    while m != k: m, k = k, f(k)
    return m # Chai Wah Wu, Jan 30 2025

A277225 Initial values of runs of 5 consecutive numbers all of which are squares, primes, or products of one prime and one square.

Original entry on oeis.org

1, 16, 97, 241, 3302449, 123402049, 2163898897, 4168758049, 10062413521, 18006326449, 21376916449, 55487798449, 77248867921, 108396336049, 141466251697, 183357512449, 198504183697, 200642120449, 278584843921, 282955076449, 341261911249, 723039200449, 770057874097, 847823354449

Offset: 1

Charles Bowyer, Oct 14 2016

nonn

The existence of runs of 6 or 7 numbers with the same property is an open question; a run of length 8 is impossible. - Andrey Zabolotskiy, Nov 07 2016
Numbers n such that each of the five consecutive integers k in n..n+4 has A162642(k)<2. - Jason Kimberley, Aug 27 2017
There is no n in this sequence below 10^10000 such that n+1 is also in this sequence. In other words, no n below 10^10000 such that each of the six consecutive integers n..n+5 has squarefree rank less than two. - Roger Eggleton and Jason Kimberley, Sep 02 2017

			For n=16, the five numbers in the group are 16 (square) 17 (prime) 18 (prime * square) 19 (prime) 20 (prime * square).

Charles R Greathouse IV, Table of n, a(n) for n = 1..400
Moscow Mathematical Olympiad, LXXVIII Moscow Mathematical Olympiad: Problems and Solutions, 2015 (in Russian), Question 4 for Grade 8 by D. M. Krekov (pages 5 and 15-16).

Cf. A229125, A265640, A290340.

sp(x)=local(c);c=core(x);isprime(c)||(c==1)
for(n=1, 100000000000, if(vector(5, i, 1)==vector(5, i, sp(n+i-1)), print1(n, ", ")))

has(n)=if(isprime(n), return(1)); forprime(p=2,97, if(n%p==0, my(e=valuation(n,p)); if(e%2, return(issquare(n/p)), n/=p^e))); issquare(n) || isprime(core(n))
is(n)=for(k=n,n+4,if(!has(k), return(0))); 1
print1(1); for(s=2,1e7, t=2*s^2; if(!has(t-1) || !has(t+1), next); for(n=t-3,t-1, if(is(n), print1(", "n)))) \\ Charles R Greathouse IV, Oct 14 2016

a(7)-a(24) from Charles R Greathouse IV, Oct 14 2016

A344417 Number of palindromic factorizations of n.

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 2, 1, 1, 1, 4, 1, 2, 1, 2, 1, 1, 1, 2, 2, 1, 2, 2, 1, 1, 1, 4, 1, 1, 1, 5, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 4, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 2, 7, 1, 1, 1, 2, 1, 1, 1, 5, 1, 1, 2, 2, 1, 1, 1, 4, 4, 1, 1, 2, 1, 1, 1

Offset: 1

Gus Wiseman, May 22 2021

nonn

A palindrome is a sequence that is the same whether it is read forward or in reverse. A palindromic factorization of n is a finite multiset of positive integers > 1 with product n that can be permuted into a palindrome.

			The palindromic factorizations for n = 2, 4, 16, 36, 64, 144:
  (2)  (4)    (16)       (36)       (64)           (144)
       (2*2)  (4*4)      (6*6)      (8*8)          (12*12)
              (2*2*4)    (2*2*9)    (4*4*4)        (4*4*9)
              (2*2*2*2)  (3*3*4)    (2*2*16)       (4*6*6)
                         (2*2*3*3)  (2*2*4*4)      (2*2*36)
                                    (2*2*2*2*4)    (3*3*16)
                                    (2*2*2*2*2*2)  (2*2*6*6)
                                                   (3*3*4*4)
                                                   (2*2*2*2*9)
                                                   (2*2*3*3*4)
                                                   (2*2*2*2*3*3)

Positions of 1's are A005117.
The case of palindromic compositions is A016116.
The additive version (palindromic partitions) is A025065.
The case of palindromic prime signature is A242414.
The case of palindromic plane trees is A319436.
A001055 counts factorizations.
A229153 ranks non-palindromic partitions.
A265640 ranks palindromic partitions.
Cf. A000041, A000070, A000188, A004526, A030229, A056503, A057567, A082293, A344414.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
palQ[y_]:=Select[Permutations[y],#==Reverse[#]&]!={};
Table[Length[Select[facs[n],palQ]],{n,50}]

a(2^n) = A025065(n).

a(n) = A057567(A000188(n)). - Andrew Howroyd, May 22 2021

A363261 The partial sums of the prime indices of n include half the sum of all prime indices of n.

Original entry on oeis.org

4, 9, 12, 16, 25, 30, 40, 48, 49, 63, 64, 70, 81, 84, 108, 112, 121, 144, 154, 160, 165, 169, 192, 198, 220, 256, 264, 270, 273, 286, 289, 325, 351, 352, 360, 361, 364, 390, 442, 448, 468, 480, 520, 529, 561, 567, 576, 595, 624, 625, 640, 646, 675, 714, 729

Offset: 1

Gus Wiseman, Jun 06 2023

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.

			The terms together with their prime indices begin:
   4: {1,1}
   9: {2,2}
  12: {1,1,2}
  16: {1,1,1,1}
  25: {3,3}
  30: {1,2,3}
  40: {1,1,1,3}
  48: {1,1,1,1,2}
  49: {4,4}
  63: {2,2,4}
  64: {1,1,1,1,1,1}
  70: {1,3,4}
  81: {2,2,2,2}
  84: {1,1,2,4}

Partitions of this type are counted by A322439.
For parts instead of partial sums we have A344415, counted by A035363.
A025065 counts palindromic partitions, ranked by A265640.
A027746 lists prime factors, A112798 indices, length A001222, sum A056239.
A301987 lists numbers whose sum of prime indices equals their product.
A322109 ranks partitions of n with no part > n/2, counted by A110618.
Cf. A001414, A106529, A327473, A327476, A334201, A340387, A360005.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],MemberQ[Accumulate[prix[#]],Total[prix[#]]/2]&]

cp's OEIS Frontend

A344416 Heinz numbers of integer partitions whose sum is even and is at most twice the greatest part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A322109 Heinz numbers of integer partitions that are the vertex-degrees of some set multipartition (multiset of nonempty sets) with no singletons.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A229153 Numbers of the form c * m^2, where m > 0 and c is composite and squarefree.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

PARI

PARI

Python

A277225 Initial values of runs of 5 consecutive numbers all of which are squares, primes, or products of one prime and one square.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

PARI

PARI

Extensions

A344417 Number of palindromic factorizations of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A363261 The partial sums of the prime indices of n include half the sum of all prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica