cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 11-13 of 13 results.

A353745 Number of runs in the ordered prime signature of n.

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 2, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 3, 1, 2, 1, 1, 1, 2, 1, 2, 2, 1, 1, 1, 1, 2, 1
Offset: 1

Views

Author

Gus Wiseman, May 20 2022

Keywords

Comments

First differs from A071625 at a(90) = 3.
First differs from A331592 at a(90) = 3.
A number's prime signature (row n of A124010) is the sequence of positive exponents in its prime factorization.

Examples

			The prime indices of 630 are {1,2,2,3,4}, with multiplicities {1,2,1,1}, with runs {{1},{2},{1,1}}, so a(630) = 3.

Links

Crossrefs

Positions of first appearances are A354233.
A001222 counts prime factors, distinct A001221.
A005361 gives product of prime signature, firsts A353500/A085629.
A056239 adds up prime indices, row sums of A112798 and A296150.
A124010 gives prime signature, sorted A118914.
A181819 gives prime shadow, with an inverse A181821.
A182850/A323014 give frequency depth, counted by A225485/A325280.
Cf. A005811, A097318, A130091, A304678, A333755, A353503, A353507, A353742.
Cf. also A329747.

Programs

  • Mathematica
    Table[Length[Split[Last/@If[n==1,{},FactorInteger[n]]]],{n,100}]
  • PARI
    pis_to_runs(n) = { my(runs=List([]), f=factor(n)); for(i=1,#f~,while(f[i,2], listput(runs,primepi(f[i,1])); f[i,2]--)); (runs); };
runlengths(lista) = if(!#lista, lista, if(1==#lista, List([1]), my(runs=List([]), rl=1); for(i=1, #lista, if((i < #lista) && (lista[i]==lista[i+1]), rl++, listput(runs,rl); rl=1)); (runs)));
A353745(n) = #runlengths(runlengths(pis_to_runs(n))); \\ Antti Karttunen, Jan 20 2025

A367860 Sum of the multiset multiplicity cokernel (in which each multiplicity becomes the greatest element of that multiplicity) of the prime indices of n.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Dec 03 2023

Keywords

Comments

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 multiset multiplicity cokernel MMC(m) of a multiset m by the following property, holding for all distinct multiplicities k >= 1. If S is the set of elements of multiplicity k in m, then max(S) has multiplicity |S| in MMC(m). For example, MMC({1,1,2,2,3,4,5}) = {2,2,5,5,5}, and MMC({1,2,3,4,5,5,5,5}) = {4,4,4,4,5}. As an operation on multisets MMC is represented by A367858, and as an operation on their ranks it is represented by A367859.

Examples

			The multiset multiplicity cokernel of {1,2,2,3} is {2,3,3}, so a(90) = 8.

Crossrefs

Positions of 1's are A000079 without 1.
Depends only on rootless base A052410, see A007916, A052409.
For kernel instead of cokernel we have A367581, row-sums of A367579.
For minimum instead of sum we have A367587, opposite A367583.
The triangle A367858 has these as row sums, ranks A367859.
A007947 gives squarefree kernel.
A112798 lists prime indices, length A001222, sum A056239, reverse A296150.
A124010 gives prime signature, sorted A118914.
A181819 gives prime shadow, with an inverse A181821.
A238747 gives prime metasignature, reverse A353742.
A304038 lists distinct prime indices, length A001221, sum A066328.
Cf. A000720, A051904, A055396, A061395, A071625, A072774, A130091, A367580, A175781, A367582, A367584.

Programs

  • Mathematica
    mmc[q_]:=With[{mts=Length/@Split[q]}, Sort[Table[Max@@Select[q,Count[q,#]==i&], {i,mts}]]];
Table[Total[mmc[PrimePi/@Join@@ConstantArray@@@If[n==1, {},FactorInteger[n]]]],{n,100}]

A354233 Least number with n runs in ordered prime signature.

Original entry on oeis.org

1, 2, 12, 90, 2100, 48510, 3303300, 139369230, 18138420300, 1157182716690, 278261505822300, 30168910606824990, 9894144362523521100, 1693350783450479863710, 715178436956287675671300, 147157263134197051595990130, 83730945863531292204568790100
Offset: 0

Views

Author

Gus Wiseman, May 20 2022

Keywords

Comments

A number's prime signature (row n of A124010) is the sequence of positive exponents in its prime factorization.

Examples

			The prime indices of 90 are {1,2,2,3}, with multiplicities {1,2,1}, with runs {{1},{2},{1}}, and this is the first case of 3 runs, so a(3) = 90.

Links

Crossrefs

Positions of first appearances in A353745.
A001222 counts prime factors with multiplicity, distinct A001221.
A005361 gives product of signature, firsts A353500 (sorted A085629).
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.
A182850 gives frequency depth of prime indices, counted by A225485.
A323014 gives adjusted frequency depth of prime indices, counted by A325280.
Cf. A005811, A097318, A304678, A325755, A353507, A353742.

Programs

  • Mathematica
    Table[Product[Prime[i]^If[EvenQ[n-i],1,2],{i,n}],{n,0,15}]
Previous Showing 11-13 of 13 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.