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-20 of 42 results. Next

A324696 Lexicographically earliest sequence containing 1 and all numbers divisible by prime(m) for some m not already in the sequence.

Original entry on oeis.org

1, 3, 6, 7, 9, 11, 12, 14, 15, 18, 19, 21, 22, 24, 27, 28, 29, 30, 33, 35, 36, 38, 39, 41, 42, 44, 45, 48, 49, 51, 53, 54, 55, 56, 57, 58, 59, 60, 63, 66, 69, 70, 71, 72, 75, 76, 77, 78, 81, 82, 83, 84, 87, 88, 90, 91, 93, 95, 96, 97, 98, 99, 101, 102, 105
Offset: 1

Views

Author

Gus Wiseman, Mar 10 2019

Keywords

Comments

A self-describing sequence, similar to A304360.
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.

Examples

			The sequence of terms together with their prime indices begins:
   1: {}
   3: {2}
   6: {1,2}
   7: {4}
   9: {2,2}
  11: {5}
  12: {1,1,2}
  14: {1,4}
  15: {2,3}
  18: {1,2,2}
  19: {8}
  21: {2,4}
  22: {1,5}
  24: {1,1,1,2}
  27: {2,2,2}
  28: {1,1,4}
  29: {10}
  30: {1,2,3}
  33: {2,5}
  35: {3,4}
  36: {1,1,2,2}

Crossrefs

Complement of A304360.
Cf. A000002, A000720, A001222, A001462, A007097, A055396, A061395, A079000, A079254, A109298, A112798, A276625, A277098.
Cf. A324694, A324695, A324697, A324698, A324699, A324700, A324701, A324702, A324703, A324704, A324705.

Programs

  • Mathematica
    aQ[n_]:=n==1||Or@@Cases[FactorInteger[n],{p_,k_}:>!aQ[PrimePi[p]]];
Select[Range[100],aQ]

A324572 Number of integer partitions of n whose multiplicities (where if x < y the multiplicity of x is counted prior to the multiplicity of y) are equal to the distinct parts in decreasing order.

Original entry on oeis.org

1, 1, 0, 0, 2, 0, 1, 0, 1, 1, 2, 0, 3, 0, 2, 0, 4, 1, 2, 1, 4, 1, 3, 1, 5, 3, 5, 1, 6, 2, 6, 1, 7, 2, 7, 2, 11, 4, 8, 3, 11, 5, 10, 4, 13, 5, 11, 5, 16, 8, 14, 5, 19, 8, 18, 6, 22, 8, 22, 7, 26, 10, 25, 8, 33, 12, 29, 11, 36, 13, 34, 12, 40, 16, 41, 14, 47, 17, 45, 16, 55
Offset: 0

Views

Author

Gus Wiseman, Mar 08 2019

Keywords

Comments

These are a kind of self-describing partitions (cf. A001462, A304679).
The Heinz numbers of these partitions are given by A324571.
The case where the distinct parts are taken in increasing order is counted by A033461, with Heinz numbers given by A109298.

Examples

			The first 19 terms count the following integer partitions:
   1: (1)
   4: (22)
   4: (211)
   6: (3111)
   8: (41111)
   9: (333)
  10: (511111)
  10: (322111)
  12: (6111111)
  12: (4221111)
  12: (33222)
  14: (71111111)
  14: (52211111)
  16: (811111111)
  16: (622111111)
  16: (4444)
  16: (442222)
  17: (43331111)
  18: (9111111111)
  18: (7221111111)
  19: (533311111)

Crossrefs

Cf. A001156, A033461, A109298, A117144, A276078, A324524, A324571.
Sequences related to self-description: A000002, A001462, A079000, A079254, A276625, A304360.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Union[#]==Length/@Split[#]&]],{n,0,30}]

Extensions

More terms from Alois P. Heinz, Mar 08 2019

A324704 Lexicographically earliest sequence containing 1 and all numbers > 2 divisible by prime(m) for some m already in the sequence.

Original entry on oeis.org

1, 4, 6, 7, 8, 10, 12, 13, 14, 16, 17, 18, 19, 20, 21, 22, 24, 26, 28, 29, 30, 32, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 46, 48, 49, 50, 51, 52, 53, 54, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 70, 71, 72, 73, 74, 76, 77, 78, 79, 80, 82, 84
Offset: 1

Views

Author

Gus Wiseman, Mar 11 2019

Keywords

Comments

A self-describing sequence, similar to A304360.
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.

Examples

			The sequence of terms together with their prime indices begins:
   1: {}
   4: {1,1}
   6: {1,2}
   7: {4}
   8: {1,1,1}
  10: {1,3}
  12: {1,1,2}
  13: {6}
  14: {1,4}
  16: {1,1,1,1}
  17: {7}
  18: {1,2,2}
  19: {8}
  20: {1,1,3}
  21: {2,4}
  22: {1,5}
  24: {1,1,1,2}
  26: {1,6}
  28: {1,1,4}

Crossrefs

Complement of A324698.
Cf. A000002, A000720, A001222, A001462, A007097, A055396, A061395, A079000, A079254, A109298, A112798, A276625, A277098, A304360.
Cf. A324694, A324695, A324696, A324697, A324699, A324700, A324701, A324702, A324703, A324705.

Programs

A324698 Lexicographically earliest sequence containing 2 and all numbers > 1 whose prime indices already belong to the sequence.

Original entry on oeis.org

2, 3, 5, 9, 11, 15, 23, 25, 27, 31, 33, 45, 47, 55, 69, 75, 81, 83, 93, 97, 99, 103, 115, 121, 125, 127, 135, 137, 141, 155, 165, 197, 207, 211, 225, 235, 243, 249, 253, 257, 275, 279, 291, 297, 309, 341, 345, 347, 363, 375, 379, 381, 405, 411, 415, 419, 423
Offset: 1

Views

Author

Gus Wiseman, Mar 10 2019

Keywords

Comments

A self-describing sequence, similar to A304360.
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.

Examples

			The sequence of terms together with their prime indices begins:
   2: {1}
   3: {2}
   5: {3}
   9: {2,2}
  11: {5}
  15: {2,3}
  23: {9}
  25: {3,3}
  27: {2,2,2}
  31: {11}
  33: {2,5}
  45: {2,2,3}
  47: {15}
  55: {3,5}
  69: {2,9}
  75: {2,3,3}
  81: {2,2,2,2}
  83: {23}
  93: {2,11}
  97: {25}
  99: {2,2,5}

Crossrefs

Complement of A324704.
Cf. A000002, A000720, A001222, A001462, A007097, A055396, A061395, A079000, A079254, A109298, A112798, A276625, A277098, A304360.
Cf. A324694, A324695, A324696, A324697, A324699, A324700, A324701, A324702, A324703, A324705.

Programs

A324525 Numbers divisible by prime(k)^k for each prime index k.

Original entry on oeis.org

1, 2, 4, 8, 9, 16, 18, 27, 32, 36, 54, 64, 72, 81, 108, 125, 128, 144, 162, 216, 243, 250, 256, 288, 324, 432, 486, 500, 512, 576, 625, 648, 729, 864, 972, 1000, 1024, 1125, 1152, 1250, 1296, 1458, 1728, 1944, 2000, 2048, 2187, 2250, 2304, 2401, 2500, 2592
Offset: 1

Views

Author

Gus Wiseman, Mar 08 2019

Keywords

Comments

These are a kind of self-describing numbers (cf. A001462, A304679).
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 prime signature of a number is the multiset of multiplicities (or exponents) in its prime factorization.
Also Heinz numbers of integer partitions where the multiplicity of k is at least k (A117144). The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).

Examples

			The sequence of terms together with their prime indices begins as follows. For example, 36 = prime(1) * prime(1) * prime(2) * prime(2) is a term because the prime multiplicities are {2,2}, which are greater than or equal to the prime indices {1,2}.
    1: {}
    2: {1}
    4: {1,1}
    8: {1,1,1}
    9: {2,2}
   16: {1,1,1,1}
   18: {1,2,2}
   27: {2,2,2}
   32: {1,1,1,1,1}
   36: {1,1,2,2}
   54: {1,2,2,2}
   64: {1,1,1,1,1,1}
   72: {1,1,1,2,2}
   81: {2,2,2,2}
  108: {1,1,2,2,2}
  125: {3,3,3}
  128: {1,1,1,1,1,1,1}

Links

Crossrefs

Cf. A001156, A033461, A056239, A062457, A112798, A117144, A118914 (prime signature), A124010, A181819, A276078, A304679.
Cf. A109298, A324524, A324571, A324572, A324587, A324588.
Sequences related to self-description: A000002, A001462, A079000, A079254, A276625, A304360.

Programs

  • Maple
    q:= n-> andmap(i-> i[2]>=numtheory[pi](i[1]), ifactors(n)[2]):
select(q, [$1..3000])[];  # Alois P. Heinz, Mar 08 2019
  • Mathematica
    Select[Range[1000],And@@Cases[If[#==1,{},FactorInteger[#]],{p_,k_}:>k>=PrimePi[p]]&]
seq[max_] := Module[{ps = {2}, p, s = {1}, s1, s2, emax}, While[ps[[-1]]^Length[ps] < max, AppendTo[ps, NextPrime[ps[[-1]]]]]; Do[p = ps[[k]]; emax = Floor[Log[p, max]]; s1 = Join[{1}, p^Range[k, emax]]; s2 = Select[Union[Flatten[Outer[Times, s, s1]]], # <= max &]; s = Union[s, s2], {k, 1, Length[ps]}]; s]; seq[3000] (* Amiram Eldar, Nov 23 2020 *)

Formula

Closed under multiplication.
Sum_{n>=1} 1/a(n) = Product_{k>=1} 1 + 1/(prime(k)^(k-1) * (prime(k)-1)) = 2.35782843100111139159... - Amiram Eldar, Nov 23 2020

A324697 Lexicographically earliest sequence of positive integers > 1 that are prime or whose prime indices already belong to the sequence.

Original entry on oeis.org

2, 3, 5, 7, 9, 11, 13, 15, 17, 19, 23, 25, 27, 29, 31, 33, 37, 41, 43, 45, 47, 51, 53, 55, 59, 61, 67, 69, 71, 73, 75, 79, 81, 83, 85, 89, 93, 97, 99, 101, 103, 107, 109, 113, 115, 121, 123, 125, 127, 131, 135, 137, 139, 141, 149, 151, 153, 155, 157, 163, 165
Offset: 1

Views

Author

Gus Wiseman, Mar 10 2019

Keywords

Comments

A self-describing sequence, similar to A304360.
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.

Examples

			The sequence of terms together with their prime indices begins:
   2: {1}
   3: {2}
   5: {3}
   7: {4}
   9: {2,2}
  11: {5}
  13: {6}
  15: {2,3}
  17: {7}
  19: {8}
  23: {9}
  25: {3,3}
  27: {2,2,2}
  29: {10}
  31: {11}
  33: {2,5}
  37: {12}
  41: {13}
  43: {14}
  45: {2,2,3}

Crossrefs

Complement of A324705.
Cf. A000002, A000720, A001222, A001462, A007097, A055396, A061395, A079000, A079254, A109298, A112798, A276625, A277098, A304360.
Cf. A324694, A324695, A324696, A324698, A324699, A324700, A324701, A324702, A324703, A324704.

Programs

  • Mathematica
    aQ[n_]:=Switch[n,1,False,?PrimeQ,True,,And@@Cases[FactorInteger[n],{p_,k_}:>aQ[PrimePi[p]]]];
Select[Range[100],aQ]

A324524 Numbers where every prime index divides its multiplicity in the prime factorization. Numbers divisible by a power of prime(k)^k for each prime index k.

Original entry on oeis.org

1, 2, 4, 8, 9, 16, 18, 32, 36, 64, 72, 81, 125, 128, 144, 162, 250, 256, 288, 324, 500, 512, 576, 648, 729, 1000, 1024, 1125, 1152, 1296, 1458, 2000, 2048, 2250, 2304, 2401, 2592, 2916, 4000, 4096, 4500, 4608, 4802, 5184, 5832, 6561, 8000, 8192, 9000, 9216
Offset: 1

Views

Author

Gus Wiseman, Mar 07 2019

Keywords

Comments

These are a kind of self-describing numbers (cf. A001462, A304679).
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 prime signature of a number is the multiset of multiplicities (or exponents) in its prime factorization.
Also Heinz numbers of integer partitions in which every part divides its multiplicity (counted by A001156). The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).
Also products of elements of A062457.

Examples

			The sequence of terms together with their prime indices begins as follows. For example, we have 18: {1,2,2} because 18 = prime(1) * prime(2) * prime(2).
    1: {}
    2: {1}
    4: {1,1}
    8: {1,1,1}
    9: {2,2}
   16: {1,1,1,1}
   18: {1,2,2}
   32: {1,1,1,1,1}
   36: {1,1,2,2}
   64: {1,1,1,1,1,1}
   72: {1,1,1,2,2}
   81: {2,2,2,2}
  125: {3,3,3}
  128: {1,1,1,1,1,1,1}
  144: {1,1,1,1,2,2}
  162: {1,2,2,2,2}
  250: {1,3,3,3}
  256: {1,1,1,1,1,1,1,1}

Links

Crossrefs

Cf. A001156, A033461, A056239, A062457, A066328, A072873, A112798, A118914 (prime signature), A124010, A181819, A276078, A304679.
Cf. A109298, A324525, A324570, A324571, A324572, A324587, A324588.
Range of values of A090884.
Sequences related to self-description: A000002, A001462, A079000, A079254, A276625, A304360.

Programs

  • Maple
    q:= n-> andmap(i-> irem(i[2], numtheory[pi](i[1]))=0, ifactors(n)[2]):
select(q, [$1..10000])[];  # Alois P. Heinz, Mar 08 2019
  • Mathematica
    Select[Range[1000],And@@Cases[If[#==1,{},FactorInteger[#]],{p_,k_}:>Divisible[k,PrimePi[p]]]&]
v = Join[{1}, Prime[(r = Range[10])]^r]; n = Length[v]; vmax = 10^4; s = {1}; Do[v1 = v[[k]]; rmax = Floor[Log[v1, vmax]]; s1 = v1^Range[0, rmax]; s2 = Select[Union[Flatten[Outer[Times, s, s1]]], # <= vmax &]; s = Union[s, s2], {k, 2, n}]; Length[s] (* Amiram Eldar, Sep 30 2020 *)

Formula

Closed under multiplication.
Sum_{n>=1} 1/a(n) = Product_{k>=1} 1/(1-prime(k)^(-k)) = 2.26910478689594012492... - Amiram Eldar, Sep 30 2020

A324571 Numbers whose ordered prime signature is equal to the set of distinct prime indices in decreasing order.

Original entry on oeis.org

1, 2, 9, 12, 40, 112, 125, 352, 360, 675, 832, 1008, 2176, 2401, 3168, 3969, 4864, 7488, 11776, 14000, 19584, 29403, 29696, 43776, 44000, 63488, 75600, 104000, 105984, 123201, 151552, 161051, 214375, 237600, 267264, 272000, 335872, 496125, 561600, 571392, 608000
Offset: 1

Views

Author

Gus Wiseman, Mar 08 2019

Keywords

Comments

These are a kind of self-describing numbers (cf. A001462, A304679). The increasing case is A109298.
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 ordered prime signature (A124010) is the sequence of multiplicities (or exponents) in a number's prime factorization, taken in order of the prime base.
Also Heinz numbers of the integer partitions counted by A324572. The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).
Each finite set of positive integers determines a unique term with those prime indices. For example, corresponding to {1,2,4,5} is 1397088 = prime(1)^5 * prime(2)^4 * prime(4)^2 * prime(5)^1.

Examples

			The sequence of terms together with their prime indices begins as follows. For example, we have 40: {1,1,1,3} because 40 = prime(1) * prime(1) * prime(1) * prime(3).
      1: {}
      2: {1}
      9: {2,2}
     12: {1,1,2}
     40: {1,1,1,3}
    112: {1,1,1,1,4}
    125: {3,3,3}
    352: {1,1,1,1,1,5}
    360: {1,1,1,2,2,3}
    675: {2,2,2,3,3}
    832: {1,1,1,1,1,1,6}
   1008: {1,1,1,1,2,2,4}
   2176: {1,1,1,1,1,1,1,7}
   2401: {4,4,4,4}
   3168: {1,1,1,1,1,2,2,5}
   3969: {2,2,2,2,4,4}
   4864: {1,1,1,1,1,1,1,1,8}
   7488: {1,1,1,1,1,1,2,2,6}
  11776: {1,1,1,1,1,1,1,1,1,9}
  14000: {1,1,1,1,3,3,3,4}
  19584: {1,1,1,1,1,1,1,2,2,7}

Crossrefs

Cf. A001156, A033461, A056239, A062457, A109298, A112798, A117144, A118914, A124010, A181819, A276078.
Cf. A324524, A324525, A324572.
Sequences related to self-description: A000002, A001462, A079000, A079254, A276625, A304360, A304679.

Programs

  • Mathematica
    Select[Range[1000],Reverse[PrimePi/@First/@If[#==1,{},FactorInteger[#]]]==Last/@If[#==1,{},FactorInteger[#]]&]

A324570 Numbers where the sum of distinct prime indices (A066328) is equal to the number of prime factors counted with multiplicity (A001222).

Original entry on oeis.org

1, 2, 9, 12, 18, 40, 100, 112, 125, 240, 250, 352, 360, 392, 405, 540, 600, 672, 675, 810, 832, 900, 1008, 1125, 1350, 1372, 1500, 1512, 1701, 1875, 1936, 2112, 2176, 2240, 2250, 2268, 2352, 2401, 3168, 3402, 3528, 3750, 3969, 4752, 4802, 4864, 4992, 5292
Offset: 1

Views

Author

Gus Wiseman, Mar 07 2019

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. For example, 540 = prime(1)^2 * prime(2)^3 * prime(3)^1 has sum of distinct prime indices 1 + 2 + 3 = 6, while the number of prime factors counted with multiplicity is 2 + 3 + 1 = 6, so 540 belongs to the sequence.
Also Heinz numbers of the integer partitions counted by A114638. The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).

Examples

			The sequence of terms together with their prime indices begins:
    1: {}
    2: {1}
    9: {2,2}
   12: {1,1,2}
   18: {1,2,2}
   40: {1,1,1,3}
  100: {1,1,3,3}
  112: {1,1,1,1,4}
  125: {3,3,3}
  240: {1,1,1,1,2,3}
  250: {1,3,3,3}
  352: {1,1,1,1,1,5}
  360: {1,1,1,2,2,3}
  392: {1,1,1,4,4}
  405: {2,2,2,2,3}
  540: {1,1,2,2,2,3}
  600: {1,1,1,2,3,3}
  672: {1,1,1,1,1,2,4}

Crossrefs

Cf. A001221, A001222, A056239, A066328, A112798, A114638, A117144, A276078.
Cf. A109298, A324524, A324525, A324570, A324571, A324572.

Programs

  • Maple
    with(numtheory):
q:= n-> is(add(pi(p), p=factorset(n))=bigomega(n)):
select(q, [$1..5600])[];  # Alois P. Heinz, Mar 07 2019
  • Mathematica
    Select[Range[1000],Total[PrimePi/@First/@FactorInteger[#]]==PrimeOmega[#]&]

Formula

A066328(a(n)) = A001222(a(n)).

A324699 Lexicographically earliest sequence of positive integers whose prime indices minus 1 already belong to the sequence.

Original entry on oeis.org

1, 3, 7, 9, 19, 21, 27, 29, 49, 57, 63, 71, 79, 81, 87, 107, 113, 133, 147, 171, 189, 203, 213, 229, 237, 243, 261, 271, 311, 321, 339, 343, 359, 361, 399, 409, 421, 441, 457, 497, 513, 551, 553, 567, 593, 609, 619, 639, 687, 711, 729, 749, 757, 783, 791, 813
Offset: 1

Views

Author

Gus Wiseman, Mar 10 2019

Keywords

Comments

A self-describing sequence, similar to A304360.
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.

Examples

			The sequence of terms together with their prime indices begins:
    1: {}
    3: {2}
    7: {4}
    9: {2,2}
   19: {8}
   21: {2,4}
   27: {2,2,2}
   29: {10}
   49: {4,4}
   57: {2,8}
   63: {2,2,4}
   71: {20}
   79: {22}
   81: {2,2,2,2}
   87: {2,10}
  107: {28}
  113: {30}
  133: {4,8}
  147: {2,4,4}
  171: {2,2,8}
  189: {2,2,2,4}

Crossrefs

Prime indices are A306719.
Cf. A000002, A000720, A001222, A001462, A007097, A055396, A061395, A079000, A079254, A109298, A112798, A276625, A277098, A304360, A306719.
Cf. A324694, A324695, A324696, A324697, A324698, A324700, A324701, A324702, A324703, A324704, A324705.

Programs

Formula

a(n) = A306719(n) - 1.
Previous Showing 11-20 of 42 results. Next

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

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