A001462 -id:A001462 - cp's OEIS frontend

A333254 Lengths of maximal runs in the sequence of prime gaps (A001223).

1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1

Offset: 1

Gus Wiseman, Mar 20 2020

nonn

Prime gaps are differences between adjacent prime numbers.

Also lengths of maximal arithmetic progressions of consecutive primes.

			The prime gaps split into the following runs: (1), (2,2), (4), (2), (4), (2), (4), (6), (2), (6), (4), (2), (4), (6,6), (2), (6), (4), ...

Robert Israel, Table of n, a(n) for n = 1..10000
Wikipedia, Arithmetic progression
Wikipedia, Longest increasing subsequence

The version for A000002 is A000002. Similarly for A001462.
The unequal version is A333216.
The weakly decreasing version is A333212.
The weakly increasing version is A333215.
The strictly decreasing version is A333252.
The strictly increasing version is A333253.
Positions of first appearances are A335406.
The first term of the first length-n arithmetic progression of consecutive primes is A006560(n), with index A089180(n).
Prime gaps are A001223.
Positions of adjacent equal prime gaps are A064113.
Positions of adjacent unequal prime gaps are A333214.
Cf. A000040, A031217, A054800, A059044, A084758, A090832, A124767, A238279, A295235.

p:= 3: t:= 1: R:= NULL: s:= 1: count:= 0:
for i from 2 while count < 100 do
  q:= nextprime(p);
  g:= q-p; p:= q;
  if g = t then s:= s+1
  else count:= count+1; R:= R, s; t:= g; s:= 1;
  fi
od:
R; # Robert Israel, Jan 06 2021

Length/@Split[Differences[Array[Prime,100]],#1==#2&]//Most

Partial sums are A333214.

A304360 Lexicographically earliest infinite sequence of numbers m > 1 with the property that none of the prime indices of m are in the sequence.

Original entry on oeis.org

2, 4, 5, 8, 10, 13, 16, 17, 20, 23, 25, 26, 31, 32, 34, 37, 40, 43, 46, 47, 50, 52, 61, 62, 64, 65, 67, 68, 73, 74, 79, 80, 85, 86, 89, 92, 94, 100, 103, 104, 107, 109, 113, 115, 122, 124, 125, 128, 130, 134, 136, 137, 146, 148, 149, 151, 155, 158, 160, 163

Offset: 1

Gus Wiseman, Aug 16 2018

nonn

A self-describing sequence.
The prime indices of m are the numbers k such that prime(k) divides m.
The sequence is monotonically increasing, since once a number is rejected it stays rejected. Sequence is closed under multiplication for a similar reason. - N. J. A. Sloane, Aug 26 2018

			After the initial term 2, the next term cannot be 3 because 3 has prime index 2, and 2 is already in the sequence. The next term could be 10, which has prime indices 1 and 3, but 4 (with prime index 1) is smaller. So a(2) = 4.

Robert Israel, Table of n, a(n) for n = 1..10000

Cf. A000002, A001462, A079000, A079254, A214577, A276625, A277098, A280996, A303431.

For first differences see A317963, for primes see A317964.

A:= NULL:
P:= {}:
for n  from 2 to 1000 do
  pn:= numtheory:-factorset(n);
  if pn intersect P = {} then
    A:= A, n;
    P:= P union {ithprime(n)};
  fi
od:
A; # Robert Israel, Aug 26 2018

gaQ[n_]:=Or[n==0,And@@Cases[FactorInteger[n],{p_,k_}:>!gaQ[PrimePi[p]]]];
Select[Range[100],gaQ]

Added "infinite" to definition. - N. J. A. Sloane, Sep 28 2019

A182857 Smallest number that requires exactly n iterations to reach a fixed point under the x -> A181819(x) map.

Original entry on oeis.org

1, 3, 4, 6, 12, 60, 2520, 1286485200, 35933692027611398678865941374040400000

Offset: 0

Matthew Vandermast, Jan 05 2011

nonn

a(9) has 296 digits.
Related to Levine's sequence (A011784): A011784(n) = A001222(a(n)) = A001221(a(n+1)) = A051903(a(n+2)) = A071625(a(n+2)). Also see A182858.
Values of n where A182850(n) increases to a record.
The multiplicity of prime(k) in a(n+1) is the k-th largest prime index of a(n), which is A296150(a(n),k). - Gus Wiseman, May 13 2018

			From _Gus Wiseman_, May 13 2018: (Start)
Like A001462 the following sequence of multisets whose Heinz numbers belong to this sequence is a run-length describing sequence, as the number of k's in row n + 1 is equal to the k-th term of row n.
{2}
{1,1}
{1,2}
{1,1,2}
{1,1,2,3}
{1,1,1,2,2,3,4}
{1,1,1,1,2,2,2,3,3,4,4,5,6,7}
{1,1,1,1,1,1,1,2,2,2,2,2,2,3,3,3,3,3,4,4,4,4,5,5,5,5,6,6,6,7,7,7,8,8,9,9,10,10,11,12,13,14}
(End)

Gus Wiseman, Table of n, a(n) for n = 0..9

Cf. A001462, A007755, A007916, A009287, A012257, A112798, A181819, A182850-A182858, A296150, A304455, A304464, A304465.

Prepend[Function[m,Times@@Prime/@m]/@NestList[Join@@Table[Table[i,{Reverse[#][[i]]}],{i,Length[#]}]&,{2},8],1] (* Gus Wiseman, May 13 2018 *)

For n > 0, a(n) = A181819(a(n+1)). For n > 1, a(n) = A181821(a(n-1)).

A324695 Lexicographically earliest sequence of positive integers whose prime indices are not already in the sequence.

Original entry on oeis.org

1, 3, 7, 9, 11, 13, 19, 21, 27, 29, 33, 37, 39, 43, 47, 49, 53, 57, 59, 61, 63, 71, 77, 79, 81, 83, 87, 89, 91, 97, 99, 101, 107, 111, 113, 117, 121, 127, 129, 131, 133, 139, 141, 143, 147, 149, 151, 159, 163, 169, 171, 173, 177, 179, 181, 183, 189, 193, 197

Offset: 1

Gus Wiseman, Mar 10 2019

nonn

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.

			The sequence of terms together with their prime indices begins:
   1: {}
   3: {2}
   7: {4}
   9: {2,2}
  11: {5}
  13: {6}
  19: {8}
  21: {2,4}
  27: {2,2,2}
  29: {10}
  33: {2,5}
  37: {12}
  39: {2,6}
  43: {14}
  47: {15}
  49: {4,4}
  53: {16}
  57: {2,8}
  59: {17}
  61: {18}
  63: {2,2,4}

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

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

A109298 Primal codes of finite idempotent functions on positive integers.

Original entry on oeis.org

1, 2, 9, 18, 125, 250, 1125, 2250, 2401, 4802, 21609, 43218, 161051, 300125, 322102, 600250, 1449459, 2701125, 2898918, 4826809, 5402250, 9653618, 20131375, 40262750, 43441281, 86882562, 181182375, 362364750, 386683451, 410338673, 603351125, 773366902, 820677346

Offset: 1

Jon Awbrey, Jul 06 2005

nonn

Finite idempotent functions are identity maps on finite subsets, counting the empty function as the idempotent on the empty set.
From Gus Wiseman, Mar 09 2019: (Start)
Also numbers whose ordered prime signature is equal to the distinct prime indices in increasing order. A prime index of n is a number m such that prime(m) divides n. 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. The case where the prime indices are taken in decreasing order is A324571.
Also numbers divisible by prime(k) exactly k times for each prime index k. These are a kind of self-describing numbers (cf. A001462, A304679).
Also Heinz numbers of integer partitions where the multiplicity of m is m for all m in the support (counted by A033461). The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).
Also products of distinct elements of A062457. For example, 43218 = prime(1)^1 * prime(2)^2 * prime(4)^4.
(End)

			Writing (prime(i))^j as i:j, we have the following table of examples:
Primal Codes of Finite Idempotent Functions on Positive Integers
` ` ` 1 = { }
` ` ` 2 = 1:1
` ` ` 9 = ` ` 2:2
` ` `18 = 1:1 2:2
` ` 125 = ` ` ` ` 3:3
` ` 250 = 1:1 ` ` 3:3
` `1125 = ` ` 2:2 3:3
` `2250 = 1:1 2:2 3:3
` `2401 = ` ` ` ` ` ` 4:4
` `4802 = 1:1 ` ` ` ` 4:4
` 21609 = ` ` 2:2 ` ` 4:4
` 43218 = 1:1 2:2 ` ` 4:4
`161051 = ` ` ` ` ` ` ` ` 5:5
`300125 = ` ` ` ` 3:3 4:4
`322102 = 1:1 ` ` ` ` ` ` 5:5
`600250 = 1:1 ` ` 3:3 4:4
From _Gus Wiseman_, Mar 09 2019: (Start)
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) has prime signature {1,2} and the distinct prime indices are also {1,2}.
       1: {}
       2: {1}
       9: {2,2}
      18: {1,2,2}
     125: {3,3,3}
     250: {1,3,3,3}
    1125: {2,2,3,3,3}
    2250: {1,2,2,3,3,3}
    2401: {4,4,4,4}
    4802: {1,4,4,4,4}
   21609: {2,2,4,4,4,4}
   43218: {1,2,2,4,4,4,4}
  161051: {5,5,5,5,5}
  300125: {3,3,3,4,4,4,4}
  322102: {1,5,5,5,5,5}
  600250: {1,3,3,3,4,4,4,4}
(End)

David A. Corneth, Table of n, a(n) for n = 1..10000
J. Awbrey, Riffs and Rotes

Cf. A076954, A106177, A108352, A108371, A109297, A109301.
Cf. A001156, A033461, A056239, A062457, A112798, A118914, A124010 (ordered prime signature), A181819, A276078, A304679.
Cf. A324524, A324525, A324570, A324571, A324572, A324587, A324588.
Sequences related to self-description: A000002, A001462, A079000, A079254, A276625, A304360.

Select[Range[10000],And@@Cases[If[#==1,{},FactorInteger[#]],{p_,k_}:>PrimePi[p]==k]&]

is(n) = my(f = factor(n)); for(i = 1, #f~, if(prime(f[i, 2]) != f[i, 1], return(0))); 1 \\ David A. Corneth, Mar 09 2019

Sum_{n>=1} 1/a(n) = Product_{n>=1} (1 + 1/prime(n)^n) = 1.6807104966... - Amiram Eldar, Jan 03 2021

Offset set to 1, missing terms inserted and more terms added by Alois P. Heinz, Mar 08 2019

A324694 Lexicographically earliest sequence of positive integers divisible by prime(m) for some m not already in the sequence.

Original entry on oeis.org

2, 4, 5, 6, 8, 10, 12, 14, 15, 16, 17, 18, 20, 22, 23, 24, 25, 26, 28, 30, 31, 32, 34, 35, 36, 38, 40, 41, 42, 44, 45, 46, 48, 50, 51, 52, 54, 55, 56, 58, 60, 62, 64, 65, 66, 67, 68, 69, 70, 72, 73, 74, 75, 76, 78, 80, 82, 84, 85, 86, 88, 90, 92, 93, 94, 95

Offset: 1

Gus Wiseman, Mar 10 2019

nonn

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.

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

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

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

A324758 Heinz numbers of integer partitions containing no prime indices of the parts.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 13, 16, 17, 19, 20, 21, 22, 23, 25, 27, 29, 31, 32, 33, 34, 35, 37, 40, 41, 43, 44, 46, 47, 49, 50, 51, 53, 57, 59, 61, 62, 63, 64, 65, 67, 68, 71, 73, 77, 79, 80, 81, 82, 83, 85, 87, 88, 89, 91, 92, 93, 94, 95, 97, 99, 100, 101

Offset: 1

Gus Wiseman, Mar 17 2019

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 Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).
These could be described as anti-transitive numbers (cf. A290822), as they are numbers x such that if prime(y) divides x and prime(z) divides y, then prime(z) does not divide x.
Also numbers n such that A003963(n) is coprime to n.

			The sequence of terms together with their prime indices begins:
   1: {}
   2: {1}
   3: {2}
   4: {1,1}
   5: {3}
   7: {4}
   8: {1,1,1}
   9: {2,2}
  10: {1,3}
  11: {5}
  13: {6}
  16: {1,1,1,1}
  17: {7}
  19: {8}
  20: {1,1,3}
  21: {2,4}
  22: {1,5}
  23: {9}
  25: {3,3}
  27: {2,2,2}

The subset version is A324741, with maximal case A324743. The strict integer partition version is A324751. The integer partition version is A324756. An infinite version is A324695.

Cf. A000720, A001221, A001462, A007097, A056239, A112798, A276625, A289509, A290822, A304360, A306844, A324742, A324753, A324764.

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

A324756 Number of integer partitions of n containing no prime indices of the parts.

Original entry on oeis.org

1, 1, 2, 2, 4, 3, 7, 7, 9, 11, 16, 16, 24, 25, 34, 39, 50, 54, 70, 79, 96, 111, 135, 152, 186, 208, 249, 285, 335, 377, 448, 506, 588, 664, 777, 873, 1010, 1139, 1309, 1471, 1697, 1890, 2175, 2435, 2772, 3106, 3532, 3941, 4478, 4995, 5643, 6297, 7107, 7897

Offset: 0

Gus Wiseman, Mar 17 2019

nonn

These could be described as anti-transitive integer partitions.

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 a(1) = 1 through a(8) = 9 integer partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (311)    (33)      (43)       (44)
                    (31)    (11111)  (42)      (52)       (71)
                    (1111)           (51)      (331)      (422)
                                     (222)     (511)      (2222)
                                     (3111)    (31111)    (3311)
                                     (111111)  (1111111)  (5111)
                                                          (311111)
                                                          (11111111)

The subset version is A324741, with maximal case A324743. The strict case is A324751. The Heinz number version is A324758. An infinite version is A324695.

Cf. A000720, A000837, A001462, A051424, A112798, A276625, A304360, A306844, A324764, A324742, A324753.

Table[Length[Select[IntegerPartitions[n],Intersection[#,PrimePi/@First/@Join@@FactorInteger/@#]=={}&]],{n,0,30}]

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

Gus Wiseman, Mar 10 2019

nonn

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.

			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}

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.

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

A324751 Number of strict integer partitions of n containing no prime indices of the parts.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 3, 3, 2, 4, 5, 5, 6, 8, 8, 12, 10, 14, 13, 18, 19, 26, 25, 30, 34, 39, 40, 51, 55, 60, 71, 77, 90, 97, 111, 123, 136, 153, 170, 179, 216, 230, 264, 282, 322, 345, 385, 423, 470, 513, 573, 629, 686, 755, 834, 910, 1005, 1095, 1194, 1303, 1433

Offset: 0

Gus Wiseman, Mar 16 2019

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 a(1) = 1 through a(13) = 8 strict integer partitions (A...D = 10...13):
  1   2   3   4    5   6    7    8    9    A    B     C     D
              31       42   43   71   54   64   65    75    76
                       51   52        63   73   83    84    85
                                      72   82   542   93    94
                                           91   731   A2    B2
                                                      B1    643
                                                            751
                                                            931

The subset version is A324741, with maximal case A324743. The non-strict version is A324756. The Heinz number version is A324758. An infinite version is A304360.
Cf. A000720, A001462, A007097, A074971, A078374, A112798, A276625, A290822, A305713, A306844, A324764.
Cf. A324695, A324742, A324748.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Intersection[#,PrimePi/@First/@Join@@FactorInteger/@#]=={}&]],{n,0,30}]

cp's OEIS Frontend

A333254 Lengths of maximal runs in the sequence of prime gaps (A001223).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A304360 Lexicographically earliest infinite sequence of numbers m > 1 with the property that none of the prime indices of m are in the sequence.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Extensions

A182857 Smallest number that requires exactly n iterations to reach a fixed point under the x -> A181819(x) map.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A324695 Lexicographically earliest sequence of positive integers whose prime indices are not already in the sequence.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A109298 Primal codes of finite idempotent functions on positive integers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A324694 Lexicographically earliest sequence of positive integers divisible by prime(m) for some m not already in the sequence.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A324758 Heinz numbers of integer partitions containing no prime indices of the parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A324756 Number of integer partitions of n containing no prime indices of the parts.

Views

Author

Keywords