A376305 -id:A376305 - cp's OEIS frontend

A376264 Run-sums of first differences (A078147) of nonsquarefree numbers (A013929).

4, 1, 3, 4, 4, 4, 1, 2, 1, 16, 1, 3, 2, 6, 4, 3, 1, 8, 3, 1, 4, 1, 3, 4, 4, 4, 2, 2, 16, 1, 3, 1, 3, 2, 2, 4, 3, 1, 8, 3, 1, 4, 1, 3, 4, 4, 4, 1, 2, 1, 3, 1, 12, 1, 3, 4, 4, 4, 3, 1, 16, 1, 3, 4, 4, 4, 2, 3, 3, 4, 8, 1, 3, 4, 4, 3, 1, 3, 1, 8, 1, 3, 4, 1, 3, 4

Offset: 1

Gus Wiseman, Sep 26 2024

nonn

Does the image include all positive integers? I have only verified this up to 8.

			The sequence of nonsquarefree numbers (A013929) is:
  4, 8, 9, 12, 16, 18, 20, 24, 25, 27, 28, 32, 36, 40, 44, 45, 48, 49, 50, ...
with first differences (A078147):
  4, 1, 3, 4, 2, 2, 4, 1, 2, 1, 4, 4, 4, 4, 1, 3, 1, 1, 2, 2, 2, 4, 3, 1, ...
with runs:
  (4),(1),(3),(4),(2,2),(4),(1),(2),(1),(4,4,4,4),(1),(3),(1,1),(2,2,2), ...
with sums (A376264):
  4, 1, 3, 4, 4, 4, 1, 2, 1, 16, 1, 3, 2, 6, 4, 3, 1, 8, 3, 1, 4, 1, 3, 4, ...

Before taking run-sums we had A078147.
For nonprime instead of nonsquarefree numbers we have A373822.
Positions of first appearances are A376265, sorted A376266.
For run-lengths instead of run-sums we have A376267.
For squarefree instead of nonsquarefree we have A376307.
For prime-powers instead of nonsquarefree numbers we have A376310.
For compression instead of run-sums we have A376312.
A000040 lists the prime numbers, differences A001223.
A000961 and A246655 list prime-powers, differences A057820.
A003242 counts compressed compositions, ranks A333489.
A005117 lists squarefree numbers, differences A076259 (ones A375927).
A013929 lists nonsquarefree numbers, differences A078147.
Cf. A053797, A053806, A061398, A072284, A120992, A373197, A373413, A375707, A376305, A376306, A376311.

Total/@Split[Differences[Select[Range[1000],!SquareFreeQ[#]&]]]//Most

A376267 Run-lengths of first differences (A078147) of nonsquarefree numbers (A013929).

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Sep 27 2024

nonn

			The sequence of nonsquarefree numbers (A013929) is:
  4, 8, 9, 12, 16, 18, 20, 24, 25, 27, 28, 32, 36, 40, 44, 45, 48, 49, 50, ...
with first differences (A078147):
  4, 1, 3, 4, 2, 2, 4, 1, 2, 1, 4, 4, 4, 4, 1, 3, 1, 1, 2, 2, 2, 4, 3, 1, ...
with runs:
  (4),(1),(3),(4),(2,2),(4),(1),(2),(1),(4,4,4,4),(1),(3),(1,1),(2,2,2), ...
with lengths (A376267):
  1, 1, 1, 1, 2, 1, 1, 1, 1, 4, 1, 1, 2, 3, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, ...

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

For prime instead of nonsquarefree numbers we have A333254.
For run-sums instead of run-lengths we have A376264.
For squarefree instead of nonsquarefree we have A376306.
For prime-powers instead of nonsquarefree numbers we have A376309.
For compression instead of run-lengths we have A376312.
A000040 lists the prime numbers, differences A001223.
A000961 and A246655 list prime-powers, differences A057820.
A005117 lists squarefree numbers, differences A076259 (ones A375927).
A013929 lists nonsquarefree numbers, differences A078147.
Cf. A007674, A053797, A053806, A072284, A112925, A120992, A373198, A375707, A376305, A376307, A376311, A380595.

nsf:= remove(numtheory:-issqrfree, [$4..1000]):
S:= nsf[2..-1]-nsf[1..-2]:
R:= NULL: x:= 4: t:= 1:
for i from 2 to nops(S) do
  if S[i] = x then t:= t+1
  else R:= R,t; x:= S[i]; t:= 1
  fi
od:
R; # Robert Israel, Jan 27 2025

Length/@Split[Differences[Select[Range[1000], !SquareFreeQ[#]&]]]//Most

A376343 Positions of twos in the run-compressed (A037201) first differences (A001223) of the primes (A000040).

Original entry on oeis.org

2, 4, 6, 9, 12, 15, 18, 24, 26, 31, 33, 37, 39, 41, 44, 47, 50, 53, 57, 62, 73, 75, 81, 90, 95, 99, 102, 105, 108, 127, 129, 131, 135, 139, 156, 158, 161, 163, 167, 173, 182, 187, 190, 193, 196, 205, 210, 214, 216, 232, 235, 241, 244, 247, 254, 263, 265, 270

Offset: 1

Gus Wiseman, Sep 26 2024

nonn

We define the run-compression of a sequence to be the anti-run obtained by reducing each run of repeated parts to a single part. Alternatively, we can remove all parts equal to the part immediately to their left. For example, (1,1,2,2,1) has run-compression (1,2,1).

			The sequence of prime numbers (A000040) is:
  2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, ...
with first differences (A001223):
  1, 2, 2, 4, 2, 4, 2, 4, 6, 2, 6, 4, 2, 4, 6, 6, 2, 6, 4, 2, 6, 4, 6, 8, 4, 2, 4, ...
with run-compression (A037201):
  1, 2, 4, 2, 4, 2, 4, 6, 2, 6, 4, 2, 4, 6, 2, 6, 4, 2, 6, 4, 6, 8, 4, 2, 4, 2, 4, ...
with twos at (A376343):
  2, 4, 6, 9, 12, 15, 18, 24, 26, 31, 33, 37, 39, 41, 44, 47, 50, 53, 57, 62, 73, ...

Positions of 2's in A037201.
The repeats were at positions A064113 before being omitted.
A variation for squarefree numbers is A376342.
A000040 lists the prime numbers, differences A001223.
A000961 and A246655 list prime-powers, differences A057820.
A005117 lists squarefree numbers, differences A076259 (ones A375927).
A013929 lists nonsquarefree numbers, differences A078147.
A333254 lists run-lengths of differences between consecutive primes.
Cf. A007921, A030173, A053289, A061398, A373817, A373822, A373947, A376305, A376308.

Join@@Position[First/@Split[Differences[Select[Range[100],PrimeQ]]],2]

For just the odd primes we have a(n) - 1.

A376521 Sorted positions of first appearances in the run-compression (A037201) of the first differences (A001223) of the prime numbers (A000040).

Original entry on oeis.org

1, 2, 3, 8, 22, 28, 32, 42, 91, 141, 172, 198, 242, 259, 341, 400, 556, 692, 1119, 1737, 1779, 2072, 2101, 2913, 3126, 3204, 3246, 3457, 3598, 4294, 4383, 7596, 7651, 8284, 11986, 13729, 14220, 15101, 16273, 18217, 22303, 29523, 30243, 32236, 32808, 32820

Offset: 1

Gus Wiseman, Sep 26 2024

nonn

We define the run-compression of a sequence to be the anti-run obtained by reducing each run of repeated parts to a single part. Alternatively, we can remove all parts equal to the part immediately to their left. For example, (1,1,2,2,1) has run-compression (1,2,1).

			The sequence of prime numbers (A000040) is:
  2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, ...
with first differences (A001223):
  1, 2, 2, 4, 2, 4, 2, 4, 6, 2, 6, 4, 2, 4, 6, 6, 2, 6, 4, 2, 6, 4, 6, 8, 4, 2, 4, ...
with run-compression (A037201):
  1, 2, 4, 2, 4, 2, 4, 6, 2, 6, 4, 2, 4, 6, 2, 6, 4, 2, 6, 4, 6, 8, 4, 2, 4, 2, 4, ...
with first appearances at (A376521):
  1, 2, 3, 8, 22, 28, 32, 42, 91, 141, 172, 198, 242, 259, 341, 400, 556, 692, 1119, ...

These are the sorted positions of first appearances in A037201.
For positions of twos instead of first appearances we have A376343.
The unsorted version is A376520.
A000040 lists the prime numbers, differences A001223.
A003242 counts compressed compositions, ranks A333489.
A333254 lists run-lengths of differences between consecutive primes.
A373948 encodes compression using compositions in standard order.
Cf. A007921, A030173, A061398, A064113, A373817, A373822, A373947, A376305, A376308, A376312.

q=First/@Split[Differences[Select[Range[1000],PrimeQ]]];
Select[Range[Length[q]],!MemberQ[Take[q,#-1],q[[#]]]&]

A376265 Position of first appearance of n in A376264 (run-sums of first differences of nonsquarefree numbers), or 0 if there are none.

Original entry on oeis.org

2, 8, 3, 1, 6222, 14, 308540, 18

Offset: 1

Gus Wiseman, Sep 27 2024

			The sequence of nonsquarefree numbers (A013929) is:
  4, 8, 9, 12, 16, 18, 20, 24, 25, 27, 28, 32, 36, 40, 44, 45, 48, 49, 50, ...
with first differences (A078147):
  4, 1, 3, 4, 2, 2, 4, 1, 2, 1, 4, 4, 4, 4, 1, 3, 1, 1, 2, 2, 2, 4, 3, 1, ...
with runs:
  (4),(1),(3),(4),(2,2),(4),(1),(2),(1),(4,4,4,4),(1),(3),(1,1),(2,2,2), ...
with sums (A376264):
  4, 1, 3, 4, 4, 4, 1, 2, 1, 16, 1, 3, 2, 6, 4, 3, 1, 8, 3, 1, 4, 1, 3, 4, 4, ...
with first appearances at (A376265):
  2, 8, 3, 1, 6222, 14, 308540, 18, ...

This is the position of first appearance of n in A376264.
The sorted version is A376266.
For run-lengths instead of firsts of run-sums we have A376267.
For compression instead of firsts of run-sums we have A376312.
A000040 lists the prime numbers, differences A001223.
A000961 and A246655 list prime-powers, differences A057820.
A003242 counts compressed compositions, ranks A333489.
A005117 lists squarefree numbers, differences A076259 (ones A375927).
A013929 lists nonsquarefree numbers, differences A078147.
A333254 lists run-lengths of differences between consecutive primes.
A376305 gives run-compression of first differences of squarefree numbers.
A376307 gives run-sums of first differences of squarefree numbers.
Cf. A037201, A053797, A053806, A120992, A373198, A373413, A373822, A375707, A376306, A376310, A376311.

mnrm[s_]:=If[Min@@s==1,mnrm[DeleteCases[s-1,0]]+1,0];
q=Total/@Split[Differences[Select[Range[10000],!SquareFreeQ[#]&]]]//Most;
Table[Position[q,k][[1,1]],{k,mnrm[q]}]

A376264(a(n)) = n.

A376266 Sorted positions of first appearances in A376264 (run-sums of first differences of nonsquarefree numbers).

Original entry on oeis.org

1, 2, 3, 8, 10, 14, 18, 53, 1437, 6222, 40874

Offset: 1

Gus Wiseman, Sep 27 2024

			The sequence of nonsquarefree numbers (A013929) is:
  4, 8, 9, 12, 16, 18, 20, 24, 25, 27, 28, 32, 36, 40, 44, 45, 48, 49, 50, ...
with first differences (A078147):
  4, 1, 3, 4, 2, 2, 4, 1, 2, 1, 4, 4, 4, 4, 1, 3, 1, 1, 2, 2, 2, 4, 3, 1, ...
with runs:
  (4),(1),(3),(4),(2,2),(4),(1),(2),(1),(4,4,4,4),(1),(3),(1,1),(2,2,2), ...
with sums (A376264):
  4, 1, 3, 4, 4, 4, 1, 2, 1, 16, 1, 3, 2, 6, 4, 3, 1, 8, 3, 1, 4, 1, 3, 4, 4, ...
with first appearances at (A376266):
  1, 2, 3, 8, 10, 14, 18, 53, 1437, 6222, 40874, ...

These are the positions of first appearances in A376264.
The unsorted version is A376265.
A000040 lists the prime numbers, differences A001223.
A000961 and A246655 list prime-powers, differences A057820.
A005117 lists squarefree numbers, differences A076259 (ones A375927).
A013929 lists nonsquarefree numbers, differences A078147.
A333254 lists run-lengths of differences between consecutive primes.
A376267 gives run-lengths of first differences of nonsquarefree numbers.
A376312 gives run-compression of first differences of nonsquarefree numbers.
A376305 gives run-compression of differences of squarefree numbers, ones A376342.
Cf. A037201, A053797, A053806, A120992, A373197, A373198, A373413, A373822, A375707, A376306, A376307, A376521.

q=Total/@Split[Differences[Select[Range[10000], !SquareFreeQ[#]&]]]//Most;
Select[Range[Length[q]],!MemberQ[Take[q,#-1],q[[#]]]&]

A376520 Position of first appearance of 2n in the run-compression (A037201) of the first differences (A001223) of the prime numbers (A000040).

Original entry on oeis.org

2, 3, 8, 22, 32, 42, 28, 259, 91, 141, 172, 242, 341, 400, 556, 692, 198, 1119, 3126, 2072, 1779, 1737, 7596, 2913, 3246, 2101, 3598, 7651, 4383, 4294, 3457, 8284, 14220, 11986, 15101, 3204, 32808, 18217, 16273, 42990, 22303, 37037, 13729, 43117, 32820, 70501

Offset: 1

Gus Wiseman, Sep 26 2024

nonn

We define the run-compression of a sequence to be the anti-run obtained by reducing each run of repeated parts to a single part. Alternatively, we can remove all parts equal to the part immediately to their left. For example, (1,1,2,2,1) has run-compression (1,2,1).

			The sequence of prime numbers (A000040) is:
  2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, ...
with first differences (A001223):
  1, 2, 2, 4, 2, 4, 2, 4, 6, 2, 6, 4, 2, 4, 6, 6, 2, 6, 4, 2, 6, 4, 6, 8, 4, 2, 4, ...
with run-compression (A037201):
  1, 2, 4, 2, 4, 2, 4, 6, 2, 6, 4, 2, 4, 6, 2, 6, 4, 2, 6, 4, 6, 8, 4, 2, 4, 2, 4, ...
with first appearance of 2n at (A376520):
  2, 3, 8, 22, 32, 42, 28, 259, 91, 141, 172, 242, 341, 400, 556, 692, 198, 1119, ...

This is the position of first appearance of 2n in A037201.
For positions of twos instead of first appearances we have A376343.
The sorted version is A376521.
A000040 lists the prime numbers, differences A001223.
A000961 and A246655 list prime-powers, differences A057820.
A003242 counts compressed compositions, ranks A333489.
A005117 lists squarefree numbers, differences A076259 (ones A375927).
A013929 lists nonsquarefree numbers, differences A078147.
A116861 counts partitions by compressed sum, compositions A373949.
A116608 counts partitions by compressed length, compositions A333755.
A274174 counts contiguous compositions, ranks A374249.
A333254 lists run-lengths of differences between consecutive primes.
A373948 encodes compression using compositions in standard order.
Cf. A007921, A030173, A064113, A373817, A373822, A373947, A376305, A376308, A376312.

mnrm[s_]:=If[Min@@s==1,mnrm[DeleteCases[s-1,0]]+1,0];
q=First/@Split[Differences[Select[Range[10000],PrimeQ]]];
Table[Position[q,2k][[1,1]],{k,mnrm[Rest[q]/2]}]

A376656 Sorted positions of first appearances in the second differences (A036263) of consecutive primes (A000040).

Original entry on oeis.org

1, 2, 3, 4, 9, 10, 29, 30, 33, 34, 96, 98, 99, 154, 179, 180, 189, 216, 217, 242, 262, 294, 296, 428, 429, 446, 708, 756, 834, 1005, 1182, 1229, 1663, 1830, 1831, 1846, 1879, 2191, 2224, 2343, 2809, 3077, 3086, 3384, 3385, 3427, 3643, 3644, 3793, 3795, 4230

Offset: 1

Gus Wiseman, Oct 07 2024

nonn

The prime numbers are (A000040):
  2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, ...
with first differences (A001223):
  1, 2, 2, 4, 2, 4, 2, 4, 6, 2, 6, 4, 2, 4, 6, 6, 2, 6, 4, 2, 6, 4, 6, 8, 4, 2, ...
with second differences (A036263):
  1, 0, 2, -2, 2, -2, 2, 2, -4, 4, -2, -2, 2, 2, 0, -4, 4, -2, -2, 4, -2, 2, 2, ...
with sorted first appearances at (A376656):
  1, 2, 3, 4, 9, 10, 29, 30, 33, 34, 96, 98, 99, 154, 179, 180, 189, 216, 217, ...

These are the sorted positions of first appearances in A036263.
For first differences we had A373400(n) + 1, except initial terms.
For prime-powers instead of prime numbers we have A376653/A376654.
For squarefree instead of prime numbers we have A376655, sorted firsts of A376590.
A000040 lists the prime numbers, differences A001223.
A005117 lists squarefree numbers, complement A013929 (differences A078147).
A333254 lists run-lengths of differences between consecutive primes.
For second differences: A073445 (composite), A376559 (perfect-power), A376562 (non-perfect-power), A376593 (nonsquarefree), A376596 (prime-power inclusive), A376599 (non-prime-power inclusive).
Cf. A064113, A175632, A251092, A258025, A258026, A333214, A373402, A376305, A376311.

q=Differences[Select[Range[1000],PrimeQ],2];
Select[Range[Length[q]],!MemberQ[Take[q,#-1],q[[#]]]&]

cp's OEIS Frontend

A376264 Run-sums of first differences (A078147) of nonsquarefree numbers (A013929).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A376267 Run-lengths of first differences (A078147) of nonsquarefree numbers (A013929).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A376343 Positions of twos in the run-compressed (A037201) first differences (A001223) of the primes (A000040).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A376521 Sorted positions of first appearances in the run-compression (A037201) of the first differences (A001223) of the prime numbers (A000040).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A376265 Position of first appearance of n in A376264 (run-sums of first differences of nonsquarefree numbers), or 0 if there are none.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

A376266 Sorted positions of first appearances in A376264 (run-sums of first differences of nonsquarefree numbers).

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A376520 Position of first appearance of 2n in the run-compression (A037201) of the first differences (A001223) of the prime numbers (A000040).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A376656 Sorted positions of first appearances in the second differences (A036263) of consecutive primes (A000040).

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica