A182863 Members m of A025487 such that, if k appears in m's prime signature, k-1 appears at least as often as k (for any integer k > 1).
1, 2, 6, 12, 30, 60, 210, 360, 420, 1260, 2310, 2520, 4620, 13860, 27720, 30030, 60060, 75600, 138600, 180180, 360360, 510510, 831600, 900900, 1021020, 1801800, 3063060, 6126120, 9699690, 10810800, 15315300, 19399380, 30630600, 37837800
Offset: 1
Keywords
Examples
The prime signature of 360360 = 2^3*3^2*5*7*11*13 is (3,2,1,1,1,1). 2 appears as many times as 3 in 360360's prime signature, and 1 appears more times than 2. Since 360360 is also a member of A025487, it is a member of this sequence. From _Gus Wiseman_, May 21 2022: (Start) The terms together with their sorted prime signatures and sorted prime metasignatures begin: 1: {} -> {} -> {} 2: {1} -> {1} -> {1} 6: {1,2} -> {1,1} -> {2} 12: {1,1,2} -> {1,2} -> {1,1} 30: {1,2,3} -> {1,1,1} -> {3} 60: {1,1,2,3} -> {1,1,2} -> {1,2} 210: {1,2,3,4} -> {1,1,1,1} -> {4} 360: {1,1,1,2,2,3} -> {1,2,3} -> {1,1,1} 420: {1,1,2,3,4} -> {1,1,1,2} -> {1,3} 1260: {1,1,2,2,3,4} -> {1,1,2,2} -> {2,2} 2310: {1,2,3,4,5} -> {1,1,1,1,1} -> {5} 2520: {1,1,1,2,2,3,4} -> {1,1,2,3} -> {1,1,2} 4620: {1,1,2,3,4,5} -> {1,1,1,1,2} -> {1,4} 13860: {1,1,2,2,3,4,5} -> {1,1,1,2,2} -> {2,3} 27720: {1,1,1,2,2,3,4,5} -> {1,1,1,2,3} -> {1,1,3} 30030: {1,2,3,4,5,6} -> {1,1,1,1,1,1} -> {6} 60060: {1,1,2,3,4,5,6} -> {1,1,1,1,1,2} -> {1,5} (End)
Links
- David A. Corneth, Table of n, a(n) for n = 1..10000 (first 1444 terms from Amiram Eldar)
- Eric Weisstein's World of Mathematics, Conjugate Partition.
Programs
-
Mathematica
nn=1000; r=Table[Sort[Length/@Split[Sort[Last/@If[n==1,{},FactorInteger[n]]]]],{n,nn}]; Select[Range[nn],!MemberQ[Take[r,#-1],r[[#]]]&] (* Gus Wiseman, May 21 2022 *)
Comments