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 30 results. Next

A333231 Positions of weak descents in the sequence of differences between primes.

Original entry on oeis.org

2, 4, 6, 9, 11, 12, 15, 16, 18, 19, 21, 24, 25, 27, 30, 32, 34, 36, 37, 39, 40, 42, 44, 46, 47, 48, 51, 53, 54, 55, 56, 58, 59, 62, 63, 66, 68, 72, 73, 74, 77, 80, 82, 84, 87, 88, 91, 92, 94, 97, 99, 101, 102, 103, 106, 107, 108, 110, 111, 112, 114, 115, 118
Offset: 1

Views

Author

Gus Wiseman, Mar 18 2020

Keywords

Comments

Partial sums of A333253.

Examples

			The prime gaps split into the following strictly increasing subsequences: (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), (2,4,14), ...
		

Crossrefs

The version for the Kolakoski sequence is A025505.
The version for equal differences is A064113.
The version for strict ascents is A258025.
The version for strict descents is A258026.
The version for distinct differences is A333214.
The version for weak ascents is A333230.
First differences are A333253 (if the first term is 0).
Prime gaps are A001223.
Weakly decreasing runs of compositions in standard order are A124765.
Strictly increasing runs of compositions in standard order are A124768.
Runs of prime gaps with nonzero differences are A333216.

Programs

  • Mathematica
    Accumulate[Length/@Split[Differences[Array[Prime,100]],#1<#2&]]//Most
    - or -
    Select[Range[100],Prime[#+1]-Prime[#]>=Prime[#+2]-Prime[#+1]&]

Formula

Numbers k such that prime(k+2) - 2*prime(k+1) + prime(k) >= 0.

A376603 Points of nonzero curvature in the sequence of composite numbers (A002808).

Original entry on oeis.org

2, 4, 6, 8, 10, 12, 13, 17, 19, 23, 24, 26, 28, 30, 31, 35, 36, 40, 42, 46, 47, 49, 51, 55, 56, 58, 59, 63, 64, 70, 71, 73, 75, 77, 79, 81, 82, 94, 95, 97, 98, 102, 104, 112, 114, 118, 119, 123, 124, 126, 127, 131, 132, 136, 138, 146, 148, 150, 152, 162, 163
Offset: 1

Views

Author

Gus Wiseman, Oct 05 2024

Keywords

Comments

These are points at which the second differences (A073445) are nonzero.

Examples

			The composite numbers (A002808) are:
  4, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 22, 24, 25, 26, 27, 28, 30, 32, 33, ...
with first differences (A073783):
  2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 1, 1, 2, ...
with first differences (A073445):
  0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, -1, 0, 0, 0, 1, 0, -1, 0, 0, 0, 1, -1, 0, ...
with nonzero terms at (A376603):
  2, 4, 6, 8, 10, 12, 13, 17, 19, 23, 24, 26, 28, 30, 31, 35, 36, 40, 42, 46, 47, ...
		

Crossrefs

Partitions into composite numbers are counted by A023895, factorizations A050370.
These are the positions of nonzero terms in A073445.
For first differences we had A073783, ones A375929, complement A065890.
For prime instead of composite we have A333214.
The complement is A376602.
For upward concavity (instead of nonzero) we have A376651, downward A376652.
For composite numbers: A002808 (terms), A073783 (first differences), A073445 (second differences), A376602 (zeros), A376651 (concave-up), A376652 (concave-down).
For nonzero curvature: A333214 (prime), A376589 (non-perfect-power), A376592 (squarefree), A376595 (nonsquarefree), A376598 (prime-power), A376601 (non-prime-power).

Programs

  • Mathematica
    Join@@Position[Sign[Differences[Select[Range[100],CompositeQ],2]],1|-1]

A376681 Row sums of the absolute value of the array A095195(n, k) = n-th term of the k-th differences of the prime numbers (A000040).

Original entry on oeis.org

2, 4, 8, 10, 22, 36, 72, 134, 266, 500, 874, 1418, 2044, 2736, 4626, 15176, 41460, 95286, 196368, 372808, 660134, 1092790, 1682198, 2384724, 3147706, 4526812, 11037090, 36046768, 93563398, 214796426, 452129242, 885186658, 1619323680, 2763448574, 4368014812
Offset: 1

Views

Author

Gus Wiseman, Oct 15 2024

Keywords

Examples

			The fourth row of A095195 is: (7, 2, 0, -1), so a(4) = 10.
		

Crossrefs

For firsts instead of row-sums we have A007442 (modern version of A030016).
This is the absolute version of A140119.
If 1 is considered prime (A008578) we get A376684, absolute version of A376683.
For first zero-positions we have A376678 (modern version of A376855).
For composite instead of prime we have A377035.
For squarefree instead of prime we have A377040, nonsquarefree A377048.
A000040 lists the modern primes, differences A001223, seconds A036263.
A008578 lists the noncomposites, differences A075526, seconds A036263 with 0 prepended.

Programs

  • Mathematica
    nn=15;
    t=Table[Take[Differences[NestList[NestWhile[#+1&, #+1,!PrimeQ[#]&]&,2,2*nn],k],nn],{k,0,nn}]
    Total/@Abs/@Table[t[[j,i-j+1]],{i,nn},{j,i}]

Extensions

More terms from Pontus von Brömssen, Oct 17 2024

A376651 Points of upward concavity in the sequence of composite numbers (A002808).

Original entry on oeis.org

4, 8, 12, 17, 23, 26, 30, 35, 40, 46, 49, 55, 58, 63, 70, 73, 77, 81, 94, 97, 102, 112, 118, 123, 126, 131, 136, 146, 150, 162, 173, 176, 180, 185, 195, 200, 205, 210, 216, 219, 229, 242, 245, 249, 262, 267, 276, 280, 285, 292, 297, 302, 305, 310, 317, 320
Offset: 1

Views

Author

Gus Wiseman, Oct 06 2024

Keywords

Comments

These are points at which the second differences (A073445) are positive.
Also positions of strict ascents in the first differences (A073783) of composite numbers (A002808).

Examples

			The composite numbers are (A002808):
  4, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 22, 24, 25, 26, 27, 28, 30, 32, 33, ...
with first differences (A073783):
  2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 1, 1, 2, ...
with first differences (A073445):
  0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, -1, 0, 0, 0, 1, 0, -1, 0, 0, 0, 1, -1, 0, ...
with positive terms at (A376651):
  4, 8, 12, 17, 23, 26, 30, 35, 40, 46, 49, 55, 58, 63, 70, 73, 77, 81, 94, 97, ...
		

Crossrefs

The version for A000002 is A022297, negative A156242.
Partitions into composite numbers are counted by A023895, factorizations A050370.
For first differences we had A065310 or A073783, ones A375929.
These are the positions of positive terms in A073445, negative A376652.
For prime instead of composite we have A258025, negative A258026.
For zero second differences (instead of positive) we have A376602.
For composite numbers: A002808 (terms), A073783 (first differences), A073445 (second differences), A376602 (inflections and undulations), A376603 (nonzero curvature), A376652 (concave-down).

Programs

  • Mathematica
    Join@@Position[Sign[Differences[Select[Range[1000],CompositeQ],2]],1]

A376652 Points of downward concavity in the sequence of composite numbers (A002808).

Original entry on oeis.org

2, 6, 10, 13, 19, 24, 28, 31, 36, 42, 47, 51, 56, 59, 64, 71, 75, 79, 82, 95, 98, 104, 114, 119, 124, 127, 132, 138, 148, 152, 163, 174, 178, 181, 187, 196, 201, 206, 212, 217, 221, 230, 243, 247, 250, 263, 268, 278, 281, 286, 293, 298, 303, 306, 311, 318, 321
Offset: 1

Views

Author

Gus Wiseman, Oct 06 2024

Keywords

Comments

These are points at which the second differences (A073445) are negative.
Also positions of strict descents in the first differences (A073783) of composite numbers (A002808).

Examples

			The composite numbers are (A002808):
  4, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 22, 24, 25, 26, 27, 28, 30, 32, 33, ...
with first differences (A073783):
  2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 1, 1, 2, ...
with second differences (A073445):
  0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, -1, 0, 0, 0, 1, 0, -1, 0, 0, 0, 1, -1, 0, ...
with negative terms at (A376651):
  2, 6, 10, 13, 19, 24, 28, 31, 36, 42, 47, 51, 56, 59, 64, 71, 75, 79, 82, 95, 98, ...
		

Crossrefs

The version for A000002 is A156242, positive A022297.
Partitions into composite numbers are counted by A023895, factorizations A050370.
For first differences we had A065310 or A073783, ones A375929.
These are the positions of negative terms in A073445, positive A376651.
For prime instead of composite we have A258026, positive A258025.
For zero second differences instead of negative we have A376602.
For composite numbers: A002808 (terms), A073783 (first differences), A073445 (second differences), A376602 (inflections and undulations), A376603 (nonzero curvature), A376651 (concave-up).

Programs

  • Maple
    Comps:= remove(isprime, [seq(i,i=4..1000)]):
    D1:= Comps[2..-1]-Comps[1..-2]:
    D2:= D1[2..-1]-D1[1..-2]:
    select(t -> D2[t] < 0, [$1..nops(D2)]); # Robert Israel, Nov 06 2024
  • Mathematica
    Join@@Position[Sign[Differences[Select[Range[1000],CompositeQ],2]],-1]

A376678 Position of first zero in the n-th differences of the primes, or 0 if it does not appear.

Original entry on oeis.org

0, 0, 2, 7, 69, 13, 47, 58, 9, 43, 3553, 100, 7019, 14082, 68097, 14526, 149677, 2697, 481054, 979719, 631894, 29811, 25340978, 50574254, 7510843, 210829337, 67248861, 224076286, 910615647, 931510269, 452499644, 2880203722, 396680865, 57954439970, 77572822440, 35394938648
Offset: 0

Views

Author

Gus Wiseman, Oct 14 2024

Keywords

Comments

Do the k-th differences of the primes contain a zero for all k > 1?

Examples

			The third differences of the primes begin:
  -1, 2, -4, 4, -4, 4, 0, -6, 8, ...
so a(3) = 7.
		

Crossrefs

If 1 is considered prime (A008578) we get A376855.
The zeros of second differences are A064113, complement A333214.
This is the position at which 0 first appears in row n of A095195.
For composite instead of prime we have A377037.
For squarefree instead of prime we have A377042, nonsquarefree A377050.
For prime-power instead of prime we have A377055.
A000040 lists the primes, first differences A001223, second A036263.

Programs

  • Mathematica
    nn=100000;
    u=Table[Differences[Select[Range[nn],PrimeQ],k],{k,2,16}];
    mnrm[s_]:=If[Min@@s==1,mnrm[DeleteCases[s-1,0]]+1,0];
    m=Table[Position[u[[k]],0][[1,1]],{k,mnrm[Union[First/@Position[u,0]]]}]

Formula

a(n) = A000720(A349643(n)) for n >= 2. - Pontus von Brömssen, Oct 17 2024

Extensions

a(17)-a(32) from Pontus von Brömssen, Oct 17 2024
a(33)-a(35) from Lucas A. Brown, Nov 03 2024

A376684 Antidiagonal-sums of the absolute value of the array A376682(n,k) = n-th term of the k-th differences of the noncomposite numbers (A008578).

Original entry on oeis.org

1, 3, 4, 9, 12, 27, 50, 109, 224, 471, 942, 1773, 3118, 4957, 7038, 9373, 16256, 55461, 150622, 346763, 718972, 1377101, 2462220, 4114987, 6387718, 9112455, 12051830, 17160117, 40946860, 134463917, 349105370, 800713921, 1684145408, 3297536923, 6040907554
Offset: 0

Views

Author

Gus Wiseman, Oct 15 2024

Keywords

Examples

			The fourth antidiagonal of A376682 is: (7, 2, 0, -1, -2), so a(4) = 12.
		

Crossrefs

For the modern primes (A000040) we have A376681, absolute version of A140119.
For firsts instead of row-sums we have A030016, modern A007442.
These are the antidiagonal-sums of the absolute value of A376682 (modern A095195).
This is the absolute version of A376683.
For first zero-positions we have A376855, modern A376678.
A000040 lists the modern primes, differences A001223, seconds A036263.
A008578 lists the noncomposites, first differences A075526.

Programs

  • Mathematica
    nn=12;
    t=Table[Take[Differences[NestList[NestWhile[#+1&,#+1,!PrimeQ[#]&]&,1,2*nn],k],nn],{k,0,nn}];
    Total/@Table[Abs[t[[j,i-j+1]]],{i,nn},{j,i}]

A376855 Position of first 0 in the n-th differences of the noncomposite numbers (A008578), or 0 if it does not appear.

Original entry on oeis.org

0, 0, 1, 8, 70, 14, 48, 59, 10, 44, 3554, 101, 7020, 14083, 68098, 14527, 149678, 2698, 481055, 979720, 631895, 29812, 25340979, 50574255, 7510844, 210829338, 67248862, 224076287, 910615648, 931510270, 452499645, 2880203723, 396680866, 57954439971, 77572822441, 35394938649
Offset: 0

Views

Author

Gus Wiseman, Oct 15 2024

Keywords

Examples

			The third differences of the noncomposite numbers begin: 1, -1, 2, -4, 4, -4, 4, 0, -6, 8, ... so a(3) = 8.
		

Crossrefs

For firsts instead of positions of zeros we have A030016, modern A007442.
These are the first zero-positions in A376682, modern A376678.
For row-sums instead of zero-positions we have A376683, modern A140119.
For absolute row-sums we have A376684, modern A376681.
For composite instead of noncomposite we have A377037.
For squarefree instead of noncomposite we have A377042, nonsquarefree A377050.
For prime-power instead of noncomposite we have A377055.
A000040 lists the modern primes, differences A001223, seconds A036263.
A008578 lists the noncomposite numbers, first differences A075526.

Programs

  • Mathematica
    nn=10000;
    u=Table[Differences[Select[Range[nn],#==1||PrimeQ[#]&],k],{k,2,16}];
    mnrm[s_]:=If[Min@@s==1,mnrm[DeleteCases[s-1,0]]+1,0];
    m=Table[Position[u[[k]],0][[1,1]],{k,mnrm[Union[First/@Position[u,0]]]}]

Extensions

a(16)-a(21) from Alois P. Heinz, Oct 18 2024
a(22)-a(35) from Lucas A. Brown, Nov 03 2024

A333212 Lengths of maximal weakly decreasing subsequences in the sequence of prime gaps (A001223).

Original entry on oeis.org

1, 2, 2, 2, 1, 2, 3, 1, 3, 3, 2, 1, 3, 2, 1, 2, 2, 2, 3, 3, 2, 2, 4, 1, 2, 5, 3, 1, 3, 1, 2, 2, 1, 1, 4, 1, 2, 1, 2, 2, 2, 1, 3, 1, 3, 2, 1, 2, 2, 4, 1, 4, 4, 3, 1, 3, 2, 1, 1, 2, 5, 3, 2, 2, 2, 2, 2, 1, 3, 1, 3, 1, 2, 1, 3, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 1, 3
Offset: 1

Views

Author

Gus Wiseman, Mar 14 2020

Keywords

Comments

Prime gaps are differences between adjacent prime numbers.

Examples

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

Crossrefs

First differences of A258025 (with zero prepended).
The version for the Kolakoski sequence is A332273.
The weakly increasing version is A333215.
The unequal version is A333216.
The strictly decreasing version is A333252.
The strictly increasing version is A333253.
The equal version is A333254.
Prime gaps are A001223.
Positions of adjacent equal differences are A064113.
Weakly decreasing runs of compositions in standard order are A124765.
Positions of strict ascents in the sequence of prime gaps are A258025.

Programs

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

Formula

Ones correspond to weak prime quartets A054819, so the sum of terms up to but not including the n-th one is A000720(A054819(n - 1)).

A333253 Lengths of maximal strictly increasing subsequences in the sequence of prime gaps (A001223).

Original entry on oeis.org

2, 2, 2, 3, 2, 1, 3, 1, 2, 1, 2, 3, 1, 2, 3, 2, 2, 2, 1, 2, 1, 2, 2, 2, 1, 1, 3, 2, 1, 1, 1, 2, 1, 3, 1, 3, 2, 4, 1, 1, 3, 3, 2, 2, 3, 1, 3, 1, 2, 3, 2, 2, 1, 1, 3, 1, 1, 2, 1, 1, 2, 1, 3, 1, 2, 4, 2, 1, 1, 1, 2, 1, 2, 2, 2, 2, 2, 3, 1, 3, 1, 3, 3, 1, 2, 2, 2
Offset: 1

Views

Author

Gus Wiseman, Mar 18 2020

Keywords

Comments

Prime gaps are differences between adjacent prime numbers.

Examples

			The prime gaps split into the following strictly increasing subsequences: (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), (2,4,14), ...
		

Crossrefs

The weakly decreasing version is A333212.
The weakly increasing version is A333215.
The unequal version is A333216.
First differences of A333231 (if its first term is 0).
The strictly decreasing version is A333252.
The equal version is A333254.
Prime gaps are A001223.
Strictly increasing runs of compositions in standard order are A124768.
Positions of strict ascents in the sequence of prime gaps are A258025.

Programs

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

Formula

Partial sums are A333231. The partial sum up to but not including the n-th one is A333382(n).
Previous Showing 11-20 of 30 results. Next