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

A026138 Numbers k such that s(j) < s(k) for all j < k, where s = A026136.

Original entry on oeis.org

1, 2, 4, 5, 8, 10, 11, 13, 14, 17, 20, 22, 23, 26, 28, 29, 31, 32, 35, 37, 38, 40, 41, 44, 47, 49, 50, 53, 56, 58, 59, 62, 64, 65, 67, 68, 71, 74, 76, 77, 80, 82, 83, 85, 86, 89, 91, 92, 94, 95, 98, 101, 103, 104, 107, 109, 110, 112, 113
Offset: 1

Views

Author

Keywords

Comments

Also a(n) = (1/2)*s(n+1), where s = A026169.
That these definitions produce the same sequence can be established using the methods in the Dekking paper.
Indices of records in A026136. - Michael De Vlieger, Aug 27 2021

Crossrefs

Cf. A026136, A026139 (records in A026136), A026169.

Programs

  • Mathematica
    Block[{a, r, s, nn = 113}, a[1] = 1; Do[If[! IntegerQ[a[#1]], Set[a[#1], i], Set[a[#2], i]] & @@ {i - #, i + #} &@ Floor[i/2], {i, 2 nn}]; s = TakeWhile[Array[a[#] &, nn], IntegerQ]; Map[FirstPosition[s, #][[1]] &, Union@ FoldList[Max, s]]] (* Michael De Vlieger, Aug 27 2021 *)

Extensions

Edited by N. J. A. Sloane, Jan 31 2020

A026139 a(n) = s(k), where k is the n-th number such that s(j) < s(k) for all j < k, where s = A026136. Also a(n) = 2*t(n) - 1, where t = A026138.

Original entry on oeis.org

1, 3, 7, 9, 15, 19, 21, 25, 27, 33, 39, 43, 45, 51, 55, 57, 61, 63, 69, 73, 75, 79, 81, 87, 93, 97, 99, 105, 111, 115, 117, 123, 127, 129, 133, 135, 141, 147, 151, 153, 159, 163, 165, 169, 171, 177, 181, 183, 187, 189, 195, 201, 205, 207, 213
Offset: 1

Views

Author

Keywords

Comments

Records in A026136. - Michael De Vlieger, Aug 27 2021

Crossrefs

Cf. A026138.

Programs

  • Mathematica
    Block[{a, r, s, nn = 108}, a[1] = 1; Do[If[! IntegerQ[a[#1]], Set[a[#1], i], Set[a[#2], i]] & @@ {i - #, i + #} &@ Floor[i/2], {i, 2 nn}]; s = TakeWhile[Array[a[#] &, nn], IntegerQ]; Union@ FoldList[Max, s]] (* Michael De Vlieger, Aug 27 2021 *)

Extensions

Edited by N. J. A. Sloane, Jan 31 2020

A026137 a(n) = position of n in A026136.

Original entry on oeis.org

1, 3, 2, 6, 7, 9, 4, 12, 5, 15, 16, 18, 19, 21, 8, 24, 25, 27, 10, 30, 11, 33, 34, 36, 13, 39, 14, 42, 43, 45, 46, 48, 17, 51, 52, 54, 55, 57, 20, 60, 61, 63, 22, 66, 23, 69, 70, 72, 73, 75, 26, 78, 79, 81, 28, 84, 29, 87, 88, 90, 31, 93, 32
Offset: 1

Views

Author

Keywords

Crossrefs

Cf. A026136.

Programs

  • Mathematica
    Block[{a, nn = 188}, a[1] = 1; Do[If[! IntegerQ[a[#1]], Set[a[#1], i], Set[a[#2], i]] & @@ {i - #, i + #} &@ Floor[i/2], {i, nn}]; a = TakeWhile[Array[a[#] &, nn], IntegerQ]; TakeWhile[Array[FirstPosition[a, #][[1]] &, nn], IntegerQ]] (* Michael De Vlieger, Apr 16 2020 *)

Extensions

Edited by N. J. A. Sloane, Jan 31 2020

A026182 a(n) = (1/2)*(s(n) + 1), where s(n) is the n-th odd number in A026136.

Original entry on oeis.org

1, 2, 4, 5, 3, 8, 10, 11, 13, 14, 6, 17, 7, 20, 22, 23, 9, 26, 28, 29, 31, 32, 12, 35, 37, 38, 40, 41, 15, 44, 16, 47, 49, 50, 18, 53, 19, 56, 58, 59, 21, 62, 64, 65, 67, 68, 24, 71, 25, 74, 76, 77, 27, 80, 82, 83, 85, 86, 30, 89, 91, 92, 94
Offset: 1

Views

Author

Keywords

Comments

Also a(n) = (1/2)*s(n), where s(n) is the n-th even number in A026166.

Crossrefs

Extensions

Edited by N. J. A. Sloane, Jan 31 2020

A026184 a(n) = (1/3)*s(n), where s(n) is the n-th multiple of 3 in A026136.

Original entry on oeis.org

1, 3, 5, 2, 7, 9, 11, 4, 13, 15, 17, 6, 19, 21, 23, 8, 25, 27, 29, 10, 31, 33, 35, 12, 37, 39, 41, 14, 43, 45, 47, 16, 49, 51, 53, 18, 55, 57, 59, 20, 61, 63, 65, 22, 67, 69, 71, 24, 73, 75, 77, 26, 79, 81, 83, 28, 85, 87, 89, 30, 91, 93, 95
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    Block[{a, r, s, nn = 141}, a[1] = 1; Do[If[! IntegerQ[a[#1]], Set[a[#1], i], Set[a[#2], i]] & @@ {i - #, i + #} &@ Floor[i/2], {i, 2 nn}]; Select[TakeWhile[Array[a[#] &, nn], IntegerQ], Mod[#, 3] == 0 &]/3] (* Michael De Vlieger, Aug 27 2021 *)
    LinearRecurrence[{0,0,0,2,0,0,0,-1},{1,3,5,2,7,9,11,4},70] (* Harvey P. Dale, Sep 25 2024 *)

Formula

a(4*n) = 2*n, a(4*n+1) = 6*n+1, a(4*n+2) = 6*n+3, a(4*n+3) = 6*n+5 . - Philippe Deléham, Nov 02 2023

Extensions

Edited by N. J. A. Sloane, Jan 31 2020

A026224 Numbers n such that t(n) = s(n) + 1, where s = A026136, t = A026142.

Original entry on oeis.org

2, 4, 10, 13, 22, 28, 31, 37, 40, 49, 58, 64, 67, 76, 82, 85, 91, 94, 103, 109, 112, 118, 121, 130, 139, 145, 148, 157, 166, 172, 175, 184, 190, 193, 199, 202, 211, 220, 226, 229, 238, 244, 247, 253, 256, 265, 271, 274, 280, 283
Offset: 1

Views

Author

Keywords

Comments

n is chosen to denote the numbers, as each n represents an index for sequences s and t.
From Peter Munn, Mar 08 2022: (Start)
2 with numbers of the form 3^i*(3k+1) + 1, i >= 1.
Proof:
n = 1 is clearly excluded by either definition, as t(1) <> s(1) + 1 and 1 is not of the form 3^i*(3k+1) + 1, i >= 1. For n >= 2 the remaining argument applies.
Considering the conditions s and t place on individual terms, and using basic arithmetic, it is easy to show that "s(n) > n, t(n) > n" is a necessary condition for t(n) = s(n) + 1. Taking into account the lexicographically earliest properties of s and t, it is then straightforward to show the condition is also sufficient. I omit the details.
Proofs in A026136 and A026142 show: s(n) > n if and only if s(n) has the form 3^i*(6k+2)+1; t(n) > n if and only if t(n) has the form (A) 3^i*4 or (B) 3^i*(6k+2), k >= 1. We consider (A) and (B) separately:
(A) s(n) + 1 = 3^i_1*(6k_1+2) + 2 = 3^i_2*4 = t(n)
Modulo 3, the left-hand side can be congruent to 1 or 2, the right-hand side to 0 or 1. Equality requires i_2 = 0, so t(n) = 4, from which we complete the solution with n = 2 and s(n) = 3.
or
(B) s(n) + 1 = 3^i_1*(6k_1+2) + 2 = 3^i_2*(6k_2+2) = t(n), k_2 >= 1
Modulo 3, the left-hand side can be congruent to 1 or 2, the right-hand side to 0 or 2. Equality requires i_1 >= 1, i_2 = 0.
So we have 3^i_1*(6k_1+2) + 2 = 6k_2+2, i_1 >= 1, k_2 >= 1. Clearly, for any i_1 >= 1 and k_1, there is a solution for k_2.
So for n to qualify under (B), s(n) must have the form 3^i*(6k+2) + 1, i >= 1, and therefore also the form 6j+1. If s(n) has the form 6j+1 and s(n) > n, then n = 3j+1 (see A026136) and also t(3j+1) = 6j+2 (see A026142, given j >= 1). So we need n to have the form 3^i*(3k+1) + 1, i >= 1, and for all such n there is a solution s(n) + 1 = 2*3^i*(3k+1) + 2 = t(n).
(End)

Crossrefs

A026188 a(n) = (1/5)*s(n), where s(n) is the n-th multiple of 5 in A026136.

Original entry on oeis.org

1, 3, 5, 2, 9, 11, 4, 15, 6, 7, 21, 23, 8, 27, 10, 33, 12, 13, 39, 41, 14, 45, 47, 16, 17, 51, 18, 19, 57, 59, 20, 63, 22, 69, 24, 25, 75, 77, 26, 81, 28, 29, 87, 30, 31, 93, 95, 32, 99, 101, 34, 35, 105, 36, 37, 111, 113, 38, 117, 40, 123
Offset: 1

Views

Author

Keywords

A026222 Numbers k such that A026136(k) = A026142(k).

Original entry on oeis.org

1, 3, 9, 15, 24, 27, 33, 42, 45, 51, 60, 69, 72, 78, 81, 87, 96, 99, 105, 114, 123, 126, 132, 135, 141, 150, 153, 159, 168, 177, 180, 186, 195, 204, 207, 213, 216, 222, 231, 234, 240, 243, 249, 258, 261, 267, 276, 285, 288, 294, 297
Offset: 1

Views

Author

Keywords

Programs

  • Mathematica
    Block[{nn = 10^3, a, b, s, t}, a[1] = b[1] = 1; Do[If[! IntegerQ[a[#1]], Set[a[#1], i], Set[a[#2], i]] & @@ {i - #, i + #} &@ Floor[i/2], {i, nn}]; s = TakeWhile[Array[a[#] &, nn], IntegerQ]; Do[If[! IntegerQ[b[#1]], Set[b[#1], i], Set[b[#2], i]] & @@ {i - #, i + #} &@ Floor[(i + 1)/2], {i, nn}]; t = TakeWhile[Array[b[#] &, nn], IntegerQ]; Select[Range@ Min[Last /@ {s, t}], s[[#]] == t[[#]] &]] (* Michael De Vlieger, Apr 21 2020 *)

A026226 Numbers k such that A026136(k) = A026166(k).

Original entry on oeis.org

1, 7, 16, 19, 25, 34, 43, 46, 52, 55, 61, 70, 73, 79, 88, 97, 100, 106, 115, 124, 127, 133, 136, 142, 151, 154, 160, 163, 169, 178, 181, 187, 196, 205, 208, 214, 217, 223, 232, 235, 241, 250, 259, 262, 268, 277, 286, 289, 295, 298
Offset: 1

Views

Author

Keywords

A026172 Duplicate of A026136.

Original entry on oeis.org

1, 3, 2, 7, 9, 4, 5, 15, 6, 19, 21, 8, 25, 27, 10, 11, 33, 12, 13, 39, 14, 43, 45, 16, 17, 51, 18, 55, 57, 20, 61, 63, 22, 23, 69, 24, 73, 75, 26, 79, 81, 28, 29, 87, 30, 31, 93, 32, 97, 99, 34, 35, 105, 36, 37, 111, 38, 115, 117, 40, 41, 123
Offset: 1

Views

Author

Keywords

Showing 1-10 of 17 results. Next