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 10 results.

A348824 Numbers in array A327259 that do not have a unique decomposition into numbers of A327261.

Original entry on oeis.org

32, 48, 72, 96, 112, 126, 128, 144, 160, 168, 176, 192, 198, 221, 224, 240, 252, 256, 264, 288, 294, 304, 336, 342, 347, 352, 360, 368, 384, 392, 396, 414, 416, 432, 448, 456, 462, 480, 496, 504, 512, 528, 544, 545, 552, 558, 560, 576, 588, 599
Offset: 1

Views

Author

David Lovler, Oct 31 2021

Keywords

Comments

While array A327259 has many properties of the multiplication table, one way the numbers that sieve out of the array fail to be prime numbers is that unique factorization does not hold. Some numbers have two or more decompositions.
For i >= 2, A327259(i, a(n)) is in the sequence.

Examples

			48 is in the sequence because 48 = A327259(2,12) = A327259(4,6) and 2, 4, 6 and 12 are in A327261.
72 is in the sequence because 72 = A327259(2,2,5) = A327259(6,6) and 2, 5 and 6 are in A327261. A327259(2,2,5) is well-defined because A327259(n,k) is associative.
221 is in the sequence because 221 = A327259(5,25) = A327259(11,11) and 5, 11 and 25 are in A327261.
462 is in the sequence because 462 = A327259(6,39) = A327259(11,22) = A327259(14,17) and 6, 11, 14, 17, 22 and 39 are in A327261.
The first six terms and their decompositions:
1 32 = A327259(2,2,2) = A327259(4,4)
2 48 = A327259(2,12) = A327259(4,6)
3 72 = A327259(2,2,5) = A327259(6,6)
4 96 = A327259(2,2,6) = A327259(4,12)
5 112 = A327259(2,28) = A327259(4,14)
6 126 = A327259(5,14) = A327259(6,11)
More in a-file.
		

Crossrefs

Programs

  • Mathematica
    T[n_,k_]:=2n*k-If[Mod[n,2]==1,If[Mod[k,2]==1,n+k-1,k],If[Mod[k,2]==1,n,0]];F[d_]:=If[(q=Union[Sort/@(Position[Table[T[n,k],{n,2,Ceiling[d/3]},{k,2,Ceiling[d/3]}],d]+1)])=={},{{d}},q];FC[x_]:=FixedPoint[Union[Sort/@Flatten[Flatten/@Tuples[#]&/@((F/@#&/@#)&[#]),1]]&,F[x]];list={};Do[If[Length@FC@i>1,AppendTo[list,i]],{i,300}];list (* Giorgos Kalogeropoulos, Nov 05 2021 *)

Extensions

Name amended by David Lovler, Jan 26 2022

A327263 Array T(n,k) in which the i-th row consists of numbers > 1 not in array U(i;n,k) = (i*n*k - (i-2)*A319929(n,k))/2 where i >= 1, n >= 1 and k >= 1, read by antidiagonals.

Original entry on oeis.org

3, 5, 2, 9, 3, 2, 13, 5, 3, 2, 21, 7, 4, 3, 2, 25, 11, 5, 4, 3, 2, 33, 13, 7, 5, 4, 3, 2, 37, 17, 9, 6, 5, 4, 3, 2, 45, 19, 10, 7, 6, 5, 4, 3, 2, 57, 23, 13, 9, 7, 6, 5, 4, 3, 2, 61, 29, 15, 11, 8, 7, 6, 5, 4, 3, 2, 73, 31, 17, 12, 9, 8, 7, 6, 5, 4, 3, 2
Offset: 1

Views

Author

David Lovler, Oct 15 2019

Keywords

Comments

All the U(i;n,k) mimic the ordinary multiplication table in that they are commutative, associative, have identity element 1 and have 0. However (except when i=2) they are partially distributive, meaning that distributivity works except if an even number is partitioned into a sum of two odd numbers. Only when i=2, the odd-even-dependent A319929 term disappears and normal distributivity holds.
U(0;n,k) = A319929(n,k);
U(1;n,k) = A322630(n,k);
U(2;n,k) = n*k;
U(3;n,k) = A322744(n,k);
U(4;n,k) = A327259(n,k);
U(i;n,k) = 2i*floor(n/2)*floor(k/2) + A319929(n,k).
Row 1 is 2p-1 where p is a prime number (A076274 without 1).
Row 2 is the prime numbers.
Row 3 is A307002.
Row 4 is A327261.
The i-th row of T(n,k) consists of numbers that sieve out of the array U(i;n,k) = (i*n*k - (i-2)*A319929(n,k))/2, in numerical order.
From David Lovler, Sep 02 2020: (Start)
Row 1 has no even numbers. Row 2 has one even number. Generally, the even numbers of the i-th row start with i-1 consecutive even numbers (from 2). This is because U(i;2,2) = 2*i gives the first even number not in row i.
Row 3 seems to have even numbers that, after 2, coincide with A112774 which has an infinite number of terms. For i > 3, as i increases, row i has a denser presence of even numbers, thus each row has an infinite number of even terms.
Generalization of the twin prime conjecture: Since row 2 is the prime numbers, we can observe the twin prime conjecture that after the first three odd primes, the sprinkling of pairs of consecutive prime numbers never ends. Concerning just odd terms, a similar conjecture can be stated for rows i >= 3. Row 3 starts with four odd numbers then the sprinkling of three consecutive odd number never ends. Row 4 starts with five odd numbers then the sprinkling of four consecutive odd numbers never ends. The pattern continues as row i starts with i+1 odd numbers then the sprinkling of i consecutive odd numbers never ends. We can take this back to row 1 which starts with two odd numbers then continues with isolated odd numbers.
Studying the even terms, there is an analog to the above generalization of the twin prime conjecture. Row 3 starts with two even numbers then continues with isolated even numbers. Row 4 starts with three even numbers then the sprinkling of pairs of consecutive even numbers never ends. Row 5 starts with four even numbers then the sprinkling of three consecutive even numbers never ends. The pattern continues as row i starts with i-1 even numbers then the sprinkling of i-2 consecutive even numbers never ends.
(End)

Examples

			3  5  9  13  21  25  33  37  45  57  61  73  81  85  93 105 117 121 133 141 145 ...
2  3  5   7  11  13  17  19  23  29  31  37  41  43  47  53  59  61  67  71  73 ...
2  3  4   5   7   9  10  13  15  17  21  22  23  25  29  31  34  37  39  41  45 ...
2  3  4   5   6   7   9  11  12  14  15  17  19  21  22  25  27  28  29  31  35 ...
2  3  4   5   6   7   8   9  11  13  14  16  17  18  19  21  23  25  26  28  29 ...
2  3  4   5   6   7   8   9  10  11  13  15  16  18  19  20  21  22  23  25  27 ...
2  3  4   5   6   7   8   9  10  11  12  13  15  17  18  20  21  22  23  24  25 ...
2  3  4   5   6   7   8   9  10  11  12  13  14  15  17  19  20  22  23  24  25 ...
2  3  4   5   6   7   8   9  10  11  12  13  14  15  16  17  19  21  22  24  25 ...
2  3  4   5   6   7   8   9  10  11  12  13  14  15  16  17  18  19  21  23  24 ...
...
		

Crossrefs

Programs

  • Mathematica
    row=12;max=200;U[i_,n_,k_]:=(i*n*k-(i-2)If[OddQ@n,If[OddQ@k,n+k-1,k],If[OddQ@k,n,0]])/2;t=Table[c=Union@Flatten@Table[U[i,n,k],{n,2,max},{k,2,max}];Complement[Range[2,max],c][[;;row]],{i,row}];Flatten@Table[t[[m,k-m+1]],{k,row},{m,k}] (* Giorgos Kalogeropoulos, Jun 08 2021 *)

Formula

With one exception there are likely no formulas for the rows of T(n,k) since their creation is based on a sieving process like the familiar prime number sieve. The exception is T(1,k) = 2*T(2,k)-1.

A319929 Minimal arithmetic table similar to multiplication with different rules for odd and even products, read by antidiagonals.

Original entry on oeis.org

1, 2, 2, 3, 0, 3, 4, 2, 2, 4, 5, 0, 5, 0, 5, 6, 2, 4, 4, 2, 6, 7, 0, 7, 0, 7, 0, 7, 8, 2, 6, 4, 4, 6, 2, 8, 9, 0, 9, 0, 9, 0, 9, 0, 9, 10, 2, 8, 4, 6, 6, 4, 8, 2, 10, 11, 0, 11, 0, 11, 0, 11, 0, 11, 0, 11, 12, 2, 10, 4, 8, 6, 6, 8, 4, 10, 2, 12
Offset: 1

Views

Author

David Lovler, Dec 17 2018

Keywords

Comments

This table is akin to multiplication in that it is associative, 1 is the identity and 0 takes any number to 0. Associativity is proved by checking eight cases of three ordered odd and even numbers. Distributivity works except if an even number is partitioned into a sum of two odd numbers.

Examples

			T(3,5) = 3 + 5 - 1 = 7, T(4,7) = 4, T(8,8) = 0.
Array T(n,k) begins:
   1  2  3  4  5  6  7  8  9 10
   2  0  2  0  2  0  2  0  2  0
   3  2  5  4  7  6  9  8 11 10
   4  0  4  0  4  0  4  0  4  0
   5  2  7  4  9  6 11  8 13 10
   6  0  6  0  6  0  6  0  6  0
   7  2  9  4 11  6 13  8 15 10
   8  0  8  0  8  0  8  0  8  0
   9  2 11  4 13  6 15  8 17 10
  10  0 10  0 10  0 10  0 10  0
		

Crossrefs

Programs

  • Mathematica
    Table[Function[n, If[OddQ@ n, If[OddQ@ k, n + k - 1, k], If[OddQ@ k, n, 0]]][m - k + 1], {m, 12}, {k, m}] // Flatten (* Michael De Vlieger, Mar 24 2019 *)
  • PARI
    T(n,k) = if (n%2, if (k%2, n+k-1, k), if (k%2, n, 0));
    matrix(6, 6, n, k, T(n,k)) \\ Michel Marcus, Dec 22 2018

Formula

T(n,k) = n + k - 1 if n is odd and k is odd;
T(n,k) = n if n is even and k is odd;
T(n,k) = k if n is odd and k is even;
T(n,k) = 0 if n is even and k is even.

A327261 Numbers > 1 not of the form 2n*k - A319929(n,k) where n and k > 1.

Original entry on oeis.org

2, 3, 4, 5, 6, 7, 9, 11, 12, 14, 15, 17, 19, 21, 22, 25, 27, 28, 29, 31, 35, 37, 38, 39, 44, 45, 46, 47, 49, 51, 55, 57, 61, 62, 65, 67, 69, 71, 75, 76, 79, 81, 86, 87, 89, 91, 92, 94, 97, 99, 101, 105, 107, 109, 115, 117, 118, 119, 121
Offset: 1

Views

Author

David Lovler, Aug 27 2019

Keywords

Comments

The subsequence of odd terms is A327260. - David Lovler, Jan 23 2022

Crossrefs

Fourth row of array A327263.

Programs

  • PARI
    T319929(n, k) = if (n%2, if (k%2, n+k-1, k), if (k%2, n, 0));
    T(n, k) = 2*n*k - T319929(n, k); \\ A327259
    lista(nn) = {my(list = List()); for (n=2, nn, for (k=2, nn\n, listput(list, T(n, k)); ); ); setminus([2..nn], Set(list)); } \\ David Lovler, Apr 30 2021

Extensions

Name amended David Lovler, Jan 22 2022

A345357 Numbers m > 4 such that [m-2..m+2] belong to A327261.

Original entry on oeis.org

5, 717, 2637, 14157, 89037, 112077, 149517, 156957, 180477, 235917, 255357, 267837, 269997, 293037, 399357, 447837, 533517, 592557, 679677, 703917, 770157, 909837, 929997, 1043997, 1158237, 1257597, 1283037, 1296477, 1333197, 1369197, 1500237, 1971357, 1998717, 2062557, 2099997
Offset: 1

Views

Author

David Lovler, Jun 15 2021

Keywords

Comments

Terms > 5 have 7 for their units digit. This is because the units digit of A327261 terms can't be 0 or 3 (row 3 of A327259 has all numbers that end in 0 or 3) and there are at most 2 consecutive even terms (see comment for A327263).

Crossrefs

Programs

  • PARI
    T319929(n, k) = if (n%2, if (k%2, n+k-1, k), if (k%2, n, 0));
    T(n, k) = 2*n*k - T319929(n, k); \\ A327259
    list(nn) = {my(list = List()); for (n=2, nn, for (k=2, nn\n, listput(list, T(n, k)); ); ); setminus([1..nn], Set(list)); } \\ A327261
    lista(nn) = {my(v=Vec(list(nn))); for (m=5, #v-1, my(x=v[m]); if (vecsearch(v, x-2) && vecsearch(v, x-1) && vecsearch(v, x+1) && vecsearch(v, x+2), print1(x, ", ")); ); }

A354595 a(n) = n^2 + 4*floor(n/2)^2.

Original entry on oeis.org

0, 1, 8, 13, 32, 41, 72, 85, 128, 145, 200, 221, 288, 313, 392, 421, 512, 545, 648, 685, 800, 841, 968, 1013, 1152, 1201, 1352, 1405, 1568, 1625, 1800, 1861, 2048, 2113, 2312, 2381, 2592, 2665, 2888, 2965, 3200, 3281, 3528, 3613, 3872
Offset: 0

Views

Author

David Lovler, Jun 01 2022

Keywords

Comments

The first bisection is A139098, the second bisection is A102083.

Crossrefs

Programs

  • Mathematica
    a[n_] := n^2 + 4 Floor[n/2]^2
    Table[a[n], {n, 0, 90}]    (* A354595 *)
    LinearRecurrence[{1, 2, -2, -1, 1}, {0, 1, 8, 13, 32}, 60]
  • PARI
    a(n) = n^2 + 4*(n\2)^2;

Formula

a(n) = a(n-1) + 2*a(n-2) - 2*a(n-3) - a(n-4) + a(n-5), n >= 5.
a(n) = A000290(n) + 4*A008794(n).
G.f.: x*(1 + 7*x + 3*x^2 + 5*x^3)/((1 - x)^3*(1 + x)^2).
E.g.f.: 2*x^2*cosh(x) + (1 + 2*x + 2*x^2)*sinh(x). - Stefano Spezia, Jun 07 2022

A354596 Array T(n,k) = k^2 + (2n-4)*floor(k/2)^2, n >= 0, k >= 0, read by descending antidiagonals.

Original entry on oeis.org

0, 1, 0, 0, 1, 0, 5, 2, 1, 0, 0, 7, 4, 1, 0, 9, 8, 9, 6, 1, 0, 0, 17, 16, 11, 8, 1, 0, 13, 18, 25, 24, 13, 10, 1, 0, 0, 31, 36, 33, 32, 15, 12, 1, 0, 17, 32, 49, 54, 41, 40, 17, 14, 1, 0, 0, 49, 64, 67, 72, 49, 48, 19, 16, 1, 0, 21, 50, 81, 96, 85, 90, 57, 56, 21, 18, 1, 0
Offset: 0

Views

Author

David Lovler, Jun 01 2022

Keywords

Comments

Column k is an arithmetic progression with difference 2*A008794(k).
Odd rows of A133728 triangle are contained in row 0.
For i = 0 through 4, row i is 0 and the diagonal of A319929, A322630 = A213037, A003991, A322744, and A327259, respectively. In general, row i is 0 and the diagonal of array U(i;n,k) described in A327263.

Examples

			T(n,k) begins:
  0,   1,   0,   5,   0,   9,   0,  13, ...
  0,   1,   2,   7,   8,  17,  18,  31, ...
  0,   1,   4,   9,  16,  25,  36,  49, ...
  0,   1,   6,  11,  24,  33,  54,  67, ...
  0,   1,   8,  13,  32,  41,  72,  85, ...
  0,   1,  10,  15,  40,  49,  90, 103, ...
  0,   1,  12,  17,  48,  57, 108, 121, ...
  ...
		

Crossrefs

Programs

  • Mathematica
    T[n_, k_] := k^2 + (2*n - 4)*Floor[k/2]^2; Table[T[n - k, k], {n, 0, 10}, {k, n, 0, -1}] // Flatten (* Amiram Eldar, Jun 20 2022 *)
  • PARI
    T(n,k) = k^2 + (2*n-4)*(k\2)^2;

Formula

T(n,k) = U(n;k,k) (see A327263).
For each row, T(n,k) = T(n,k-1) + 2*T(n,k-2) - 2*T(n,k-3) - T(n,k-4) + T(n,k-5), k >= 5.
G.f. for row n: x*(1 + (2*n-1)*x + 3*x^2 + (2*n-3)*x^3)/((1 - x)^3*(1 + x)^2). When n = 2, this reduces to x*(1 + x)/(1 - x)^3.
E.g.f. for row n: (((4-n)*x + n*x^2)*cosh(x) + (n-2 + n*x + n*x^2)*sinh(x))/2. When n = 2, this reduces to (x + x^2)*cosh(x) + (x + x^2)*sinh(x) = (x + x^2)*exp(x).

A327260 Odd numbers not of the form 2*n*k - n - k + 1 where n and k are odd numbers > 1.

Original entry on oeis.org

1, 3, 5, 7, 9, 11, 15, 17, 19, 21, 25, 27, 29, 31, 35, 37, 39, 45, 47, 49, 51, 55, 57, 61, 65, 67, 69, 71, 75, 79, 81, 87, 89, 91, 97, 99, 101, 105, 107, 109, 115, 117, 119, 121, 125, 127, 129, 135, 139, 141, 147, 151, 155, 157, 159, 161, 165, 169
Offset: 1

Views

Author

David Lovler, Aug 27 2019

Keywords

Comments

Terms are the odd numbers not appearing in array A327259 with its first row and column omitted.

Crossrefs

Programs

  • Maple
    N:= 201: # for terms <= N
    f:= (n,k) -> 2*n*k-n-k+1:
    S:= {seq(i,i=1..N,2)} minus {seq(seq(f(n,k),k=3..min(N,(N+n-1)/(2*n-1)),2),n=3..(N+2)/5,2)}:
    sort(convert(S,list)); # Robert Israel, Sep 09 2020
  • Mathematica
    Select[2 Range[100]-1, FindInstance[# == 1 + 2*n + k (2 + 8 n) && n>0 && k>0, {n, k}, Integers] === {} &] (* David Lovler, Dec 28 2020 *)

Extensions

Corrected by Robert Israel, Sep 09 2020

A334922 Square array T(n,k) = ((3/2)*n*k + (1/2)*A319929(n,k))/2, n >= 1, k >= 1, read by antidiagonals.

Original entry on oeis.org

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

Views

Author

David Lovler, May 16 2020

Keywords

Comments

T(n,k) is commutative, associative, has identity element 1 and has 0. Also it is distributive except when an even number is partitioned into two odd numbers. Thus it has a multiplicative structure similar to that of A319929, A322630, A322744 and A327259 except that T(odd,odd) is not always odd, T(even,even) is not always even and T(odd,even) is not always even.
T(n,k) is in the same form as the supplementary arrays of A327263 called U(i;n,k). Here (and in A334923) i is being incremented by 1/2. When i is incremented by 1/4 or less, array values cease to be all integers, although all of the multiplication rules still hold.

Examples

			Array begins:
1   2   3   4   5   6   7   8   9  10 ...
2   3   5   6   8   9  11  12  14  15 ...
3   5   8  10  13  15  18  20  23  25 ...
4   6  10  12  16  18  22  24  28  30 ...
5   8  13  16  21  24  29  32  37  40 ...
6   9  15  18  24  27  33  36  42  45 ...
7  11  18  22  29  33  40  44  51  55 ...
8  12  20  24  32  36  44  48  56  60 ...
9  14  23  28  37  42  51  56  65  70 ...
10 15  25  30  40  45  55  60  70  75 ...
...
		

Crossrefs

Programs

  • Mathematica
    Table[Function[n, ((3/2)*n*k + (1/2)*If[OddQ@ n, If[OddQ@ k, n + k - 1, k], If[OddQ@ k, n, 0]])/2][m - k + 1], {m, 11}, {k, m}] // Flatten (* Michael De Vlieger, Jun 23 2020 *)

Formula

T(n,k) = 3*floor(n/2)*floor(k/2) + A319929(n,k).
T(n,k) = (A322630(n,k) + n*k)/2.
T(n,k) = (A319929 + A322744(n,k))/2.
T(n,k) = 2*n*k - A334923(n,k).

A334923 Square array T(n,k) = ((5/2)*n*k - (1/2)*A319929(n,k))/2, n >= 1, k >= 1, read by antidiagonals.

Original entry on oeis.org

1, 2, 2, 3, 5, 3, 4, 7, 7, 4, 5, 10, 10, 10, 5, 6, 12, 14, 14, 12, 6, 7, 15, 17, 20, 17, 15, 7, 8, 17, 21, 24, 24, 21, 17, 8, 9, 20, 24, 30, 29, 30, 24, 20, 9, 10, 22, 28, 34, 36, 36, 34, 28, 22, 10, 11, 25, 31, 40, 41, 45, 41, 40, 31, 25, 11
Offset: 1

Views

Author

David Lovler, May 25 2020

Keywords

Comments

T(n,k) is commutative, associative, has identity element 1 and has 0. Also it is distributive except when an even number is partitioned into two odd numbers. Thus it has a multiplicative structure similar to that of A319929, A322630, A322744 and A327259 except that T(odd,odd) is not always odd, T(even,even) is not always even and T(odd,even) is not always even.
T(n,k) is in the same form as the supplementary arrays of A327263 called U(i;n,k). Here (and in A334922) i is being incremented by 1/2. When i is incremented by 1/4 or less, array values cease to be all integers, although all of the multiplication rules still hold.

Examples

			Array begins:
1   2   3   4   5   6   7   8   9  10 ...
2   5   7  10  12  15  17  20  22  25 ...
3   7  10  14  17  21  24  28  31  35 ...
4  10  14  20  24  30  34  40  44  50 ...
5  12  17  24  29  36  41  48  53  60 ...
6  15  21  30  36  45  51  60  66  75 ...
7  17  24  34  41  51  58  68  75  85 ...
8  20  28  40  48  60  68  80  88 100 ...
9  22  31  44  53  66  75  88  97 110 ...
10 25  35  50  60  75  85 100 110 125 ...
...
		

Crossrefs

Programs

  • Mathematica
    Table[Function[n, ((5/2)*n*k - (1/2)*If[OddQ@ n, If[OddQ@ k, n + k - 1, k], If[OddQ@ k, n, 0]])/2][m - k + 1], {m, 11}, {k, m}] // Flatten (* Michael De Vlieger, Jun 23 2020 *)

Formula

T(n,k) = 5*floor(n/2)*floor(k/2) + A319929(n,k).
T(n,k) = (n*k + A322744(n,k))/2.
T(n,k) = (A322630(n,k) + A327259(n,k))/2.
T(n,k) = 2*n*k - A334922(n,k).
Showing 1-10 of 10 results.