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.

Showing 1-10 of 13 results. Next

A176506 Difference between the prime indices of the two factors of the n-th semiprime.

Original entry on oeis.org

0, 1, 0, 2, 3, 1, 2, 4, 0, 5, 3, 6, 1, 7, 4, 8, 0, 5, 2, 6, 9, 10, 3, 7, 11, 1, 12, 4, 13, 8, 2, 9, 14, 5, 15, 10, 6, 16, 3, 0, 17, 11, 12, 4, 18, 13, 19, 1, 7, 20, 8, 21, 14, 5, 22, 0, 15, 23, 16, 9, 2, 24, 17, 25, 6, 10, 26, 3, 18, 27, 11, 7, 28, 19, 1, 29, 12, 20, 2, 21, 4, 30, 8, 31, 13, 22
Offset: 1

Views

Author

Juri-Stepan Gerasimov, Apr 19 2010

Keywords

Comments

Are there no adjacent equal terms? I have verified this up to n = 10^6. - Gus Wiseman, Dec 04 2020

Examples

			From _Gus Wiseman_, Dec 04 2020: (Start)
The sequence of semiprimes together with the corresponding differences begins:
   4: 1 - 1 = 0
   6: 2 - 1 = 1
   9: 2 - 2 = 0
  10: 3 - 1 = 2
  14: 4 - 1 = 3
  15: 3 - 2 = 1
  21: 4 - 2 = 2
  22: 5 - 1 = 4
  25: 3 - 3 = 0
  26: 6 - 1 = 5
  33: 5 - 2 = 3
(End)
		

Crossrefs

Cf. A109313.
A087794 is product of the same indices.
A176504 is the sum of the same indices.
A115392 lists positions of first appearances.
A128301 lists positions of 0's.
A172348 lists positions of 1's.
A338898 has this sequence as row differences.
A338900 is the squarefree case.
A338912/A338913 give the two prime indices of semiprimes.
A006881 lists squarefree semiprimes.
A024697 is the sum of semiprimes of weight n.
A056239 gives sum of prime indices (Heinz weight).
A087112 groups semiprimes by greater factor.
A270650/A270652/A338899 give the prime indices of squarefree semiprimes.
A338904 groups semiprimes by weight.
A338907/A338906 list semiprimes of odd/even weight.
A339114/A339115 give the least/greatest semiprime of weight n.

Programs

  • Maple
    isA001358 := proc(n) numtheory[bigomega](n) = 2 ; end proc:
    A001358 := proc(n) option remember ; if n = 1 then return 4 ; else for a from procname(n-1)+1 do if isA001358(a) then return a; end if; end do; end if; end proc:
    A084126 := proc(n) min(op(numtheory[factorset](A001358(n)))) ; end proc:
    A084127 := proc(n) max(op(numtheory[factorset](A001358(n)))) ; end proc:
    A176506 := proc(n) numtheory[pi](A084127(n)) - numtheory[pi](A084126(n)) ; end proc: seq(A176506(n),n=1..120) ; # R. J. Mathar, Apr 22 2010
    # Alternative:
    N:= 500: # to use the first N semiprimes
    Primes:= select(isprime, [2,seq(i,i=3..N/2,2)]):
    SP:= NULL:
    for i from 1 to nops(Primes) do
      for j from 1 to i do
        sp:= Primes[i]*Primes[j];
        if sp > N then break fi;
        SP:= SP, [sp, i-j]
    od od:
    SP:= sort([SP],(s,t) -> s[1] t[2], SP); # Robert Israel, Jan 17 2019
  • Mathematica
    M = 500; (* to use the first M semiprimes *)
    primes = Select[Join[{2}, Range[3, M/2, 2]], PrimeQ];
    SP = {};
    For[i = 1, i <= Length[primes], i++,
      For[j = 1, j <= i, j++,
        sp = primes[[i]] primes[[j]];
        If[sp > M, Break []];
        AppendTo[SP, {sp, i - j}]
    ]];
    SortBy[SP, First][[All, 2]] (* Jean-François Alcover, Jul 18 2020, after Robert Israel *)
    Table[If[!SquareFreeQ[n],0,-Subtract@@PrimePi/@First/@FactorInteger[n]],{n,Select[Range[100],PrimeOmega[#]==2&]}] (* Gus Wiseman, Dec 04 2020 *)
  • PARI
    lista(nn) = {my(vsp = select(x->(bigomega(x)==2), [1..nn])); vector(#vsp, k, my(f=factor(vsp[k])[,1]); primepi(vecmax(f)) - primepi(vecmin(f)));} \\ Michel Marcus, Jul 18 2020

Formula

a(n) = A049084(A084127(n)) - A049084(A084126(n)). [corrected by R. J. Mathar, Apr 22 2010]
a(n) = A338913(n) - A338912(n). - Gus Wiseman, Dec 04 2020

Extensions

a(51) and a(69) corrected by R. J. Mathar, Apr 22 2010

A318990 Numbers of the form prime(x) * prime(y) where x divides y.

Original entry on oeis.org

4, 6, 9, 10, 14, 21, 22, 25, 26, 34, 38, 39, 46, 49, 57, 58, 62, 65, 74, 82, 86, 87, 94, 106, 111, 115, 118, 121, 122, 129, 133, 134, 142, 146, 158, 159, 166, 169, 178, 183, 185, 194, 202, 206, 213, 214, 218, 226, 235, 237, 254, 259, 262, 267, 274, 278, 289
Offset: 1

Views

Author

Gus Wiseman, Sep 06 2018

Keywords

Examples

			The sequence of all dividing pairs (columns) begins:
  1  1  2  1  1  2  1  3  1  1  1  2  1  4  2  1  1  3  1  1  1  2  1  1
  1  2  2  3  4  4  5  3  6  7  8  6  9  4  8 10 11  6 12 13 14 10 15 16
		

Crossrefs

A subset of A001358 (semiprimes), squarefree A006881.
The squarefree version is A339005.
The quotient is A358103 = A358104 / A358105.
A000040 lists the primes.
A001222 counts prime indices, distinct A001221.
A003963 multiplies together prime indices.
A056239 adds up prime indices.
A358192/A358193 gives quotients of semiprime indices.

Programs

  • Mathematica
    Select[Range[100],And[PrimeOmega[#]==2,Or[PrimePowerQ[#],Divisible@@Reverse[PrimePi/@FactorInteger[#][[All,1]]]]]&]
  • PARI
    ok(n)={my(f=factor(n)); bigomega(f)==2 && (#f~==1 || primepi(f[2,1]) % primepi(f[1,1]) == 0)} \\ Andrew Howroyd, Oct 26 2018

A339003 Numbers of the form prime(x) * prime(y) where x and y are distinct and both odd.

Original entry on oeis.org

10, 22, 34, 46, 55, 62, 82, 85, 94, 115, 118, 134, 146, 155, 166, 187, 194, 205, 206, 218, 235, 253, 254, 274, 295, 298, 314, 334, 335, 341, 358, 365, 382, 391, 394, 415, 422, 451, 454, 466, 482, 485, 514, 515, 517, 527, 538, 545, 554, 566, 614, 626, 635, 649
Offset: 1

Views

Author

Gus Wiseman, Nov 21 2020

Keywords

Comments

The squarefree semiprimes in A332822. - Peter Munn, Dec 25 2020

Examples

			The sequence of terms together with their prime indices begins:
     10: {1,3}     187: {5,7}     358: {1,41}    527: {7,11}
     22: {1,5}     194: {1,25}    365: {3,21}    538: {1,57}
     34: {1,7}     205: {3,13}    382: {1,43}    545: {3,29}
     46: {1,9}     206: {1,27}    391: {7,9}     554: {1,59}
     55: {3,5}     218: {1,29}    394: {1,45}    566: {1,61}
     62: {1,11}    235: {3,15}    415: {3,23}    614: {1,63}
     82: {1,13}    253: {5,9}     422: {1,47}    626: {1,65}
     85: {3,7}     254: {1,31}    451: {5,13}    635: {3,31}
     94: {1,15}    274: {1,33}    454: {1,49}    649: {5,17}
    115: {3,9}     295: {3,17}    466: {1,51}    662: {1,67}
    118: {1,17}    298: {1,35}    482: {1,53}    685: {3,33}
    134: {1,19}    314: {1,37}    485: {3,25}    694: {1,69}
    146: {1,21}    334: {1,39}    514: {1,55}    697: {7,13}
    155: {3,11}    335: {3,19}    515: {3,27}    706: {1,71}
    166: {1,23}    341: {5,11}    517: {5,15}    713: {9,11}
		

Crossrefs

A338910 is the not necessarily squarefree version.
A339004 is the even instead of odd version.
A001358 lists semiprimes, with odd and even terms A046315 and A100484.
A005117 lists squarefree numbers.
A006881 lists squarefree semiprimes, with odd and even terms A046388 and A100484.
A289182/A115392 list the positions of odd/even terms of A001358.
A300912 lists products of two primes of relatively prime index.
A320656 counts factorizations into squarefree semiprimes.
A338898, A338912, and A338913 give the prime indices of semiprimes, with product A087794, sum A176504, and difference A176506.
A338899, A270650, and A270652 give the prime indices of squarefree semiprimes, with difference A338900.
A338904 groups semiprimes by weight.
A338906/A338907 list semiprimes of even/odd weight.
A339002 lists products of two distinct primes of non-relatively prime index.
A339005 lists products of two distinct primes of divisible index.
Subsequence of A332822.

Programs

  • Mathematica
    Select[Range[100],SquareFreeQ[#]&&PrimeOmega[#]==2&&OddQ[Times@@PrimePi/@First/@FactorInteger[#]]&]
  • Python
    from math import isqrt
    from sympy import primepi, primerange
    def A339003(n):
        def bisection(f,kmin=0,kmax=1):
            while f(kmax) > kmax: kmax <<= 1
            kmin = kmax >> 1
            while kmax-kmin > 1:
                kmid = kmax+kmin>>1
                if f(kmid) <= kmid:
                    kmax = kmid
                else:
                    kmin = kmid
            return kmax
        def f(x): return n+x-sum(primepi(x//p)-a>>1 for a,p in enumerate(primerange(isqrt(x)+1),1) if a&1)
        return bisection(f,n,n) # Chai Wah Wu, Apr 03 2025

Formula

Numbers m such that A001221(m) = A001222(m) = A195017(m) = 2. - Peter Munn, Dec 31 2020

A338905 Irregular triangle read by rows where row n lists all squarefree semiprimes with prime indices summing to n.

Original entry on oeis.org

6, 10, 14, 15, 21, 22, 26, 33, 35, 34, 39, 55, 38, 51, 65, 77, 46, 57, 85, 91, 58, 69, 95, 119, 143, 62, 87, 115, 133, 187, 74, 93, 145, 161, 209, 221, 82, 111, 155, 203, 247, 253, 86, 123, 185, 217, 299, 319, 323, 94, 129, 205, 259, 341, 377, 391, 106, 141
Offset: 3

Views

Author

Gus Wiseman, Nov 28 2020

Keywords

Comments

A squarefree semiprime is a product of any two distinct prime numbers. A prime index of n is a number m such that the m-th prime number divides n. The multiset of prime indices of n is row n of A112798.

Examples

			Triangle begins:
   6
  10
  14  15
  21  22
  26  33  35
  34  39  55
  38  51  65  77
  46  57  85  91
  58  69  95 119 143
  62  87 115 133 187
  74  93 145 161 209 221
  82 111 155 203 247 253
  86 123 185 217 299 319 323
		

Crossrefs

A004526 (shifted right) gives row lengths.
A025129 (shifted right) gives row sums.
A056239 gives sum of prime indices (Heinz weight).
A339116 is a different triangle whose diagonals are these rows.
A338904 is the not necessarily squarefree version, with row sums A024697.
A338907/A338908 are the union of odd/even rows.
A339114/A332765 are the row minima/maxima.
A001358 lists semiprimes, with odd/even terms A046315/A100484.
A005117 lists squarefree numbers.
A006881 lists squarefree semiprimes, with odd/even terms A046388/A100484.
A087112 groups semiprimes by greater factor.
A168472 gives partial sums of squarefree semiprimes.
A338898, A338912, and A338913 give the prime indices of semiprimes, with product A087794, sum A176504, and difference A176506.
A338899, A270650, and A270652 give the prime indices of squarefree semiprimes, with difference A338900.

Programs

  • Mathematica
    Table[Sort[Table[Prime[k]*Prime[n-k],{k,(n-1)/2}]],{n,3,10}]

A338908 Squarefree semiprimes whose prime indices sum to an even number.

Original entry on oeis.org

10, 21, 22, 34, 39, 46, 55, 57, 62, 82, 85, 87, 91, 94, 111, 115, 118, 129, 133, 134, 146, 155, 159, 166, 183, 187, 194, 203, 205, 206, 213, 218, 235, 237, 247, 253, 254, 259, 267, 274, 295, 298, 301, 303, 314, 321, 334, 335, 339, 341, 358, 365, 371, 377, 382
Offset: 1

Views

Author

Gus Wiseman, Nov 28 2020

Keywords

Comments

A squarefree semiprime is a product of any two distinct prime numbers. A prime index of n is a number m such that the m-th prime number divides n. The multiset of prime indices of n is row n of A112798.

Examples

			The sequence of terms together with their prime indices begins:
     10: {1,3}     115: {3,9}     213: {2,20}
     21: {2,4}     118: {1,17}    218: {1,29}
     22: {1,5}     129: {2,14}    235: {3,15}
     34: {1,7}     133: {4,8}     237: {2,22}
     39: {2,6}     134: {1,19}    247: {6,8}
     46: {1,9}     146: {1,21}    253: {5,9}
     55: {3,5}     155: {3,11}    254: {1,31}
     57: {2,8}     159: {2,16}    259: {4,12}
     62: {1,11}    166: {1,23}    267: {2,24}
     82: {1,13}    183: {2,18}    274: {1,33}
     85: {3,7}     187: {5,7}     295: {3,17}
     87: {2,10}    194: {1,25}    298: {1,35}
     91: {4,6}     203: {4,10}    301: {4,14}
     94: {1,15}    205: {3,13}    303: {2,26}
    111: {2,12}    206: {1,27}    314: {1,37}
		

Crossrefs

A031215 looks at primes instead of semiprimes.
A300061 and A319241 (squarefree) look all numbers (not just semiprimes).
A338905 has this as union of even-indexed rows.
A338906 is the nonsquarefree version.
A338907 is the odd version.
A001358 lists semiprimes, with odd/even terms A046315/A100484.
A005117 lists squarefree numbers.
A006881 lists squarefree semiprimes, with odd/even terms A046388/A100484.
A024697 is the sum of semiprimes of weight n.
A025129 is the sum of squarefree semiprimes of weight n.
A056239 gives the sum of prime indices of n.
A289182/A115392 list the positions of odd/even terms in A001358.
A320656 counts factorizations into squarefree semiprimes.
A332765 gives the greatest squarefree semiprime of weight n.
A338898, A338912, and A338913 give the prime indices of semiprimes, with product A087794, sum A176504, and difference A176506.
A338899, A270650, and A270652 give the prime indices of squarefree semiprimes, with difference A338900.
A338904 groups semiprimes by weight.
A338911 lists products of pairs of primes both of even index.
A339114/A339115 give the least/greatest semiprime of weight n.
A339116 groups squarefree semiprimes by greater prime factor.

Programs

  • Mathematica
    Select[Range[100],SquareFreeQ[#]&&PrimeOmega[#]==2&& EvenQ[Total[PrimePi/@First/@FactorInteger[#]]]&]

A339002 Numbers of the form prime(x) * prime(y) where x and y are distinct and have a common divisor > 1.

Original entry on oeis.org

21, 39, 57, 65, 87, 91, 111, 115, 129, 133, 159, 183, 185, 203, 213, 235, 237, 247, 259, 267, 299, 301, 303, 305, 319, 321, 339, 365, 371, 377, 393, 417, 427, 445, 453, 481, 489, 497, 515, 517, 519, 543, 551, 553, 559, 565, 579, 597, 611, 623, 669, 685, 687
Offset: 1

Views

Author

Gus Wiseman, Nov 22 2020

Keywords

Examples

			The sequence of terms together with their prime indices begins:
     21: {2,4}     235: {3,15}    393: {2,32}
     39: {2,6}     237: {2,22}    417: {2,34}
     57: {2,8}     247: {6,8}     427: {4,18}
     65: {3,6}     259: {4,12}    445: {3,24}
     87: {2,10}    267: {2,24}    453: {2,36}
     91: {4,6}     299: {6,9}     481: {6,12}
    111: {2,12}    301: {4,14}    489: {2,38}
    115: {3,9}     303: {2,26}    497: {4,20}
    129: {2,14}    305: {3,18}    515: {3,27}
    133: {4,8}     319: {5,10}    517: {5,15}
    159: {2,16}    321: {2,28}    519: {2,40}
    183: {2,18}    339: {2,30}    543: {2,42}
    185: {3,12}    365: {3,21}    551: {8,10}
    203: {4,10}    371: {4,16}    553: {4,22}
    213: {2,20}    377: {6,10}    559: {6,14}
		

Crossrefs

A300912 is the complement in A001358.
A338909 is the not necessarily squarefree version.
A001358 lists semiprimes, with odd and even terms A046315 and A100484.
A005117 lists squarefree numbers.
A006881 lists squarefree semiprimes, with odd/even terms A046388/A100484.
A339005 lists products of pairs of distinct primes of divisible index.
A320656 counts factorizations into squarefree semiprimes.
A338898, A338912, and A338913 give the prime indices of semiprimes, with product A087794, sum A176504, and difference A176506.
A338899, A270650, and A270652 give the prime indices of squarefree semiprimes, with difference A338900.
A338910/A338911 list products of pairs of primes both of odd/even index.
A339003/A339004 list squarefree semiprimes of odd/even index.

Programs

  • Mathematica
    Select[Range[100],SquareFreeQ[#]&&PrimeOmega[#]==2&&GCD@@PrimePi/@First/@FactorInteger[#]>1&]

A358103 Quotient of the n-th divisible pair, where pairs are ordered by Heinz number. Quotient of prime indices of A318990(n).

Original entry on oeis.org

1, 2, 1, 3, 4, 2, 5, 1, 6, 7, 8, 3, 9, 1, 4, 10, 11, 2, 12, 13, 14, 5, 15, 16, 6, 3, 17, 1, 18, 7, 2, 19, 20, 21, 22, 8, 23, 1, 24, 9, 4, 25, 26, 27, 10, 28, 29, 30, 5, 11, 31, 3, 32, 12, 33, 34, 1, 35, 36, 13, 6, 37, 2, 14, 38, 39, 15, 40, 41, 1, 42, 7, 4, 43
Offset: 1

Views

Author

Gus Wiseman, Nov 02 2022

Keywords

Comments

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

Examples

			The 12th divisible pair is (2,6) so a(12) = 3.
		

Crossrefs

The divisible pairs are ranked by A318990, proper A339005.
Quotient of A358104 and A358105.
A different ordering is A358106.
A000040 lists the primes.
A001222 counts prime indices, distinct A001221.
A001358 lists the semiprimes, squarefree A006881.
A003963 multiplies together prime indices.
A056239 adds up prime indices.
A358192/A358193 gives quotients of semiprime indices.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Join@@Table[Cases[primeMS[n],{x_,y_}/;Divisible[y,x]:>y/x,{0}],{n,100}]

Formula

a(n) = A358104(n)/A358105(n).

A358104 Unreduced numerator of the n-th divisible pair, where pairs are ordered by Heinz number. Greater prime index of A318990(n).

Original entry on oeis.org

1, 2, 2, 3, 4, 4, 5, 3, 6, 7, 8, 6, 9, 4, 8, 10, 11, 6, 12, 13, 14, 10, 15, 16, 12, 9, 17, 5, 18, 14, 8, 19, 20, 21, 22, 16, 23, 6, 24, 18, 12, 25, 26, 27, 20, 28, 29, 30, 15, 22, 31, 12, 32, 24, 33, 34, 7, 35, 36, 26, 18, 37, 10, 28, 38, 39, 30, 40, 41, 8, 42
Offset: 1

Views

Author

Gus Wiseman, Nov 02 2022

Keywords

Comments

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

Examples

			The 12th divisible pair is (2,6) so a(12) = 6.
		

Crossrefs

The divisible pairs are ranked by A318990, proper A339005.
For all semiprimes we have A338913.
The quotient of the pair is A358103.
The denominator is A358105.
The reduced version for all semiprimes is A358192, denominator A358193.
A000040 lists the primes.
A001222 counts prime indices, distinct A001221.
A001358 lists the semiprimes, squarefree A006881.
A003963 multiplies together prime indices.
A056239 adds up prime indices.
A318991 ranks divisor-chains.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Join@@Table[Cases[primeMS[n],{x_,y_}/;Divisible[y,x]:>y,{0}],{n,1000}]

Formula

A358103(n) = a(n)/A358105(n).

A358105 Unreduced denominator of the n-th divisible pair, where pairs are ordered by Heinz number. Lesser prime index of A318990(n).

Original entry on oeis.org

1, 1, 2, 1, 1, 2, 1, 3, 1, 1, 1, 2, 1, 4, 2, 1, 1, 3, 1, 1, 1, 2, 1, 1, 2, 3, 1, 5, 1, 2, 4, 1, 1, 1, 1, 2, 1, 6, 1, 2, 3, 1, 1, 1, 2, 1, 1, 1, 3, 2, 1, 4, 1, 2, 1, 1, 7, 1, 1, 2, 3, 1, 5, 2, 1, 1, 2, 1, 1, 8, 1, 3, 4, 1, 1, 2, 1, 1, 2, 1, 3, 1, 2, 1, 1, 1, 1
Offset: 1

Views

Author

Gus Wiseman, Nov 02 2022

Keywords

Comments

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

Examples

			The 12th divisible pair is (2,6) so a(12) = 2.
		

Crossrefs

The divisible pairs are ranked by A318990, proper A339005.
For all semiprimes we have A338912, greater A338913.
The quotient of the pair is A358103.
The reduced version for all semiprimes is A358193, numerator A358192.
A000040 lists the primes.
A001222 counts prime indices, distinct A001221.
A001358 lists the semiprimes, squarefree A006881.
A003963 multiplies together prime indices.
A056239 adds up prime indices.
A318991 ranks divisor-chains.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Join@@Table[Cases[primeMS[n],{x_,y_}/;Divisible[y,x]:>x,{0}],{n,1000}]

Formula

A358103(n) = A358104(n)/a(n).

A358106 Quotient of the n-th divisible pair, where pairs are ordered first by sum and then by denominator.

Original entry on oeis.org

1, 2, 3, 1, 4, 5, 2, 1, 6, 7, 3, 1, 8, 2, 9, 4, 1, 10, 11, 5, 3, 2, 1, 12, 13, 6, 1, 14, 4, 2, 15, 7, 3, 1, 16, 17, 8, 5, 2, 1, 18, 19, 9, 4, 3, 1, 20, 6, 2, 21, 10, 1, 22, 23, 11, 7, 5, 3, 2, 1, 24, 4, 25, 12, 1, 26, 8, 2, 27, 13, 6, 3, 1, 28, 29, 14, 9, 5, 4, 2, 1
Offset: 2

Views

Author

Gus Wiseman, Nov 03 2022

Keywords

Examples

			Grouping by sum gives:
   2:  1
   3:  2
   4:  3 1
   5:  4
   6:  5 2 1
   7:  6
   8:  7 3 1
   9:  8 2
  10:  9 4 1
  11: 10
  12: 11 5 3 2 1
  13: 12
  14: 13 6 1
  15: 14 4 2
  16: 15 7 3 1
  17: 16
  18: 17 8 5 2 1
		

Crossrefs

Row-lengths are A032741.
This is A208460/A027751.
A ranking of divisible pairs is A318990, proper A339005.
A different ordering is A358103 = A358104 / A358105.
A000041 counts partitions, strict A000009.
A001358 lists semiprimes, squarefree A006881.
A318991 ranks divisor-chains.
A358192/A358193 gives quotients of semiprime indices.

Programs

  • Mathematica
    Table[Divide@@@Select[IntegerPartitions[n,{2}],Divisible@@#&],{n,2,30}]

Formula

a(n) = A208460(n)/A027751(n).
Showing 1-10 of 13 results. Next