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

A190841 Integers in (1+A190803)/2.

Original entry on oeis.org

1, 2, 3, 5, 8, 9, 12, 14, 15, 17, 21, 23, 26, 27, 29, 33, 39, 41, 44, 45, 50, 51, 53, 57, 65, 66, 68, 75, 77, 80, 81, 86, 87, 89, 98, 99, 101, 102, 105, 113, 120, 122, 129, 131, 134, 135, 147, 149, 152, 153, 158, 159, 161, 170, 171, 173, 177, 183, 194, 195, 197, 201, 203, 209, 225
Offset: 1

Views

Author

Clark Kimberling, May 21 2011

Keywords

Comments

See Comments at A190803, which is a proper subsequence of A190841.

Crossrefs

Programs

A190842 Integers in (1+A190803)/3.

Original entry on oeis.org

1, 2, 3, 5, 6, 8, 9, 10, 14, 15, 17, 18, 22, 23, 26, 27, 29, 30, 33, 34, 38, 41, 44, 45, 50, 51, 53, 54, 57, 58, 65, 66, 68, 70, 77, 80, 81, 86, 87, 89, 90, 98, 99, 101, 102, 105, 106, 113, 114, 118, 122, 129, 130, 131, 134, 135, 149, 150, 152, 153, 158, 159, 161, 162, 170, 171, 173, 174, 177, 178, 194, 195, 197, 198
Offset: 1

Views

Author

Clark Kimberling, May 21 2011

Keywords

Comments

See Comments at A190803, which is a proper subsequence of A190842.

Crossrefs

Programs

A191113 Increasing sequence generated by these rules: a(1)=1, and if x is in a then 3x-2 and 4x-2 are in a.

Original entry on oeis.org

1, 2, 4, 6, 10, 14, 16, 22, 28, 38, 40, 46, 54, 62, 64, 82, 86, 110, 112, 118, 136, 150, 158, 160, 182, 184, 190, 214, 244, 246, 254, 256, 326, 328, 334, 342, 352, 406, 438, 446, 448, 470, 472, 478, 542, 544, 550, 568, 598, 630, 638, 640, 726, 730, 734, 736, 758, 760, 766, 854, 974, 976, 982, 1000, 1014, 1022, 1024, 1054, 1216
Offset: 1

Views

Author

Clark Kimberling, May 27 2011

Keywords

Comments

This sequence represents a class of sequences generated by rules of the form "a(1)=1, and if x is in a then hx+i and jx+k are in a, where h,i,j,k are integers." If m>1, at least one of the numbers b(m)=(a(m)-i)/h and c(m)=(a(m)-k)/j is in the set N of natural numbers. Let d(n) be the n-th b(m) in N, and let e(n) be the n-th c(m) in N. Note that a is a subsequence of both d and e. Examples:
A191113: (h,i,j,k)=(3,-2,4,-2); d=A191146, e=A191149
A191114: (h,i,j,k)=(3,-2,4,-1); d=A191151, e=A191121
A191115: (h,i,j,k)=(3,-2,4,0); d=A191113, e=A191154
A191116: (h,i,j,k)=(3,-2,4,1); d=A191155 e=A191129
A191117: (h,i,j,k)=(3,-2,4,2); d=A191157, e=A191158
A191118: (h,i,j,k)=(3,-2,4,3); d=A191114, e=A191138
...
A191119: (h,i,j,k)=(3,-1,4,-3); d=A191120, e=A191163
A191120: (h,i,j,k)=(3,-1,4,-2); d=A191129, e=A191165
A191121: (h,i,j,k)=(3,-1,4,-1); d=A191166, e=A191167
A191122: (h,i,j,k)=(3,-1,4,0); d=A191168, e=A191169
A191123: (h,i,j,k)=(3,-1,4,1); d=A191170, e=A191171
A191124: (h,i,j,k)=(3,-1,4,2); d=A191172, e=A191173
A191125: (h,i,j,k)=(3,-1,4,3); d=A191174, e=A191175
...
A191126: (h,i,j,k)=(3,0,4,-3); d=A191128, e=A191177
A191127: (h,i,j,k)=(3,0,4,-2); d=A191178, e=A191179
A191128: (h,i,j,k)=(3,0,4,-1); d=A191180, e=A191181
A025613: (h,i,j,k)=(3,0,4,0); d=e=A025613
A191129: (h,i,j,k)=(3,0,4,1); d=A191182, e=A191183
A191130: (h,i,j,k)=(3,0,4,2); d=A191184, e=A191185
A191131: (h,i,j,k)=(3,0,4,3); d=A191186, e=A191187
...
A191132: (h,i,j,k)=(3,1,4,-3); d=A191135, e=A191189
A191133: (h,i,j,k)=(3,1,4,-2); d=A191190, e=A191191
A191134: (h,i,j,k)=(3,1,4,-1); d=A191192, e=A191193
A191135: (h,i,j,k)=(3,1,4,0); d=A191136, e=A191195
A191136: (h,i,j,k)=(3,1,4,1); d=A191196, e=A191197
A191137: (h,i,j,k)=(3,1,4,2); d=A191198, e=A191199
A191138: (h,i,j,k)=(3,1,4,3); d=A191200, e=A191201
...
A191139: (h,i,j,k)=(3,2,4,-3); d=A191143, e=A191119
A191140: (h,i,j,k)=(3,2,4,-2); d=A191204, e=A191205
A191141: (h,i,j,k)=(3,2,4,-1); d=A191206, e=A191207
A191142: (h,i,j,k)=(3,2,4,0); d=A191208, e=A191209
A191143: (h,i,j,k)=(3,2,4,1); d=A191210, e=A191136
A191144: (h,i,j,k)=(3,2,4,2); d=A191212, e=A191213
A191145: (h,i,j,k)=(3,2,4,3); d=e=A191145
...
Representative divisibility properties:
if s=A191116, then 2|(s+1), 4|(s+3), and 8|(s+3) for n>1; if s=A191117, then 10|(s+4) for n>1.
For lists of other "rules sequences" see A190803 (h=2 and j=3) and A191106 (h=j=3).

Examples

			1 -> 2 -> 4,6 -> 10,14,16,22 ->
		

Crossrefs

Programs

  • Haskell
    import Data.Set (singleton, deleteFindMin, insert)
    a191113 n = a191113_list !! (n-1)
    a191113_list = 1 : f (singleton 2)
       where f s = m : (f $ insert (3*m-2) $ insert (4*m-2) s')
                 where (m, s') = deleteFindMin s
    -- Reinhard Zumkeller, Jun 01 2011
  • Maple
    N:= 2000: # to get all terms <= N
    S:= {}: agenda:= {1}:
    while nops(agenda) > 0 do
      S:= S union agenda;
      agenda:= select(`<=`,map(t -> (3*t-2,4*t-2),agenda) minus S, N)
    od:
    sort(convert(S,list)); # Robert Israel, Dec 22 2015
  • Mathematica
    h = 3; i = -2; j = 4; k = -2; f = 1; g = 8;
    a = Union[Flatten[NestList[{h # + i, j # + k} &, f, g]]]
    (* a=A191113; regarding g, see the Mathematica note at A190803 *)
    b = (a + 2)/3; c = (a + 2)/4; r = Range[1, 900];
    d = Intersection[b, r] (* A191146 *)
    e = Intersection[c, r] (* A191149 *)
    m = a/2 (* divisibility property *)

Formula

a(1)=1, and if x is in a then 3x-2 and 4x-2 are in a; the terms of a are listed in without repetitions, in increasing order.

A191106 Increasing sequence generated by these rules: a(1)=1, and if x is in a then 3x-2 and 3x are in a.

Original entry on oeis.org

1, 3, 7, 9, 19, 21, 25, 27, 55, 57, 61, 63, 73, 75, 79, 81, 163, 165, 169, 171, 181, 183, 187, 189, 217, 219, 223, 225, 235, 237, 241, 243, 487, 489, 493, 495, 505, 507, 511, 513, 541, 543, 547, 549, 559, 561, 565, 567, 649, 651, 655, 657, 667, 669, 673, 675, 703, 705, 709, 711, 721, 723, 727, 729, 1459, 1461, 1465, 1467, 1477
Offset: 1

Views

Author

Clark Kimberling, May 26 2011

Keywords

Comments

Related sequences for various choices of i and k as defined in A190803:
A003278: (i,k) = (-2,-1)
A191106: (i,k) = (-2, 0)
A191107: (i,k) = (-2, 1)
A191108: (i,k) = (-2, 2)
A153775: (i,k) = (-1, 0)
A147991: (i,k) = (-1, 1)
A191109: (i,k) = (-1, 2)
A005836: (i,k) = ( 0, 1)
A191110: (i,k) = ( 0, 2)
A132140: (i,k) = ( 1, 2)
For a=A191106, we have closure properties: the integers in (2+a)/3 comprise a; the integers in a/3 comprise a.
For k >= 1, m = a(i), 1 <= i <= 2^k seems to be m such that m/(3^k+1) is in the Cantor set (except that m = 0 and m = 3^k+1 do not appear). For k >= 2, m = (a(i)-1)/2, 1 <= i <= 2^k seems to be m such that m/((3^k-1)/2) is in the Cantor set. - Peter Munn, Jul 06 2019
Every even number is the sum of two (possibly equal) terms. More specifically: terms a(1) through a(2^n) = 3^n sum to even numbers 2 times 1 through 3^n. Every even number is infinitely often the difference of two terms. Since the sequence is equal to 2*A005836(n) + 1, these properties follow immediately from similar properties of A005836 for every number. - Aad Thoen, Feb 17 2022
if A_n=(a(1),a(2),...,a(2^n)), then A_(n+1)=(A_n,A_n+2*3^n), similar to A003278. - Arie Bos, Jul 26 2022

Examples

			1 -> 3 -> 7,9 -> 19,21,25,27 -> ...
		

Crossrefs

Cf. A005823, A005836, A054591, A088917 (characteristic function), A173934, A190803, A191108.
Partial sums of A061393.
Similar formula as A003278, A_(n+1)=(A_n,A_n+2*3^n).

Programs

  • Mathematica
    h = 3; i = -2; j = 3; k = 0; f = 1; g = 9;
    a = Union[Flatten[NestList[{h # + i, j # + k} &, f, g]]]  (* A191106; regarding g, see note at A190803 *)
    b = (a + 2)/3; c = a/3; r = Range[1, 900];
    d = Intersection[b, r](* illustrates closure property *)
    e = Intersection[c, r](* illustrates closure property *)
    2 FromDigits[#, 3]&/@Tuples[{0, 1}, 7] + 1 (* Vincenzo Librandi, Jul 10 2019 *)

Formula

a(n) = 2*A005836(n) + 1. - Charles R Greathouse IV, Sep 06 2011
a(n) = A005823(n) + 1. - Vladimir Shevelev, Dec 17 2012
a(n) = (A191108(n) + 1)/2. - Peter Munn, Jul 09 2019

A191203 Increasing sequence generated by these rules: a(1)=1, and if x is in a then 2x and 1+x^2 are in a.

Original entry on oeis.org

1, 2, 4, 5, 8, 10, 16, 17, 20, 26, 32, 34, 40, 52, 64, 65, 68, 80, 101, 104, 128, 130, 136, 160, 202, 208, 256, 257, 260, 272, 290, 320, 401, 404, 416, 512, 514, 520, 544, 580, 640, 677, 802, 808, 832, 1024, 1025, 1028, 1040, 1088, 1157, 1160, 1280, 1354, 1601, 1604, 1616, 1664, 2048, 2050, 2056, 2080, 2176, 2314, 2320, 2560
Offset: 1

Views

Author

Clark Kimberling, May 29 2011

Keywords

Comments

The method generalizes: a finite set F={f} of functions f:N->N and finite set G of numbers generate a set S by these rules: (1) every element of G is in S, and (2) if x is in S then f(x) is in S for every f in F. The sequence a results by taking the numbers in S in increasing order.
Examples include A190803, A191106, A191113, and these:
A191203: 2x, 1+x^2
A191211: 1+2x, 1+x^2
A191281: 2x, x^2-x+1
A191282: 2x, x^2+x+1
A191283: 2x, x(x+1)/2
A191284: floor(3x/2), 2x
A191285: 3x, floor((x^2)/2)
A191286: 3x, 1+x^2
A191287: floor(3x/2), 3x
A191288: 2x, floor((x^2)/3)
A191289: 3x-1, x^2
A191290: 2x+1, x(x+1)/2
For A191203 and other such sequences, the depth g for the NestList in the Mathematica program must be large enough to generate as many terms as required by the user. For example, the rules 2x and 1+x^2, starting with x=1, successively generate set of numbers whose minima are powers of 2: 1->2->4-> ... 2^g -> ....

Examples

			1 -> 2 -> 4,5 -> 8,10,17,26 ->
		

Crossrefs

Programs

  • Haskell
    import Data.Set (singleton, deleteFindMin, insert)
    a191203 n = a191203_list !! (n-1)
    a191203_list = f $ singleton 1 where
       f s = m : f (insert (2 * m) $ insert (m ^ 2 + 1) s')
             where (m, s') = deleteFindMin s
    -- Reinhard Zumkeller, Apr 18 2014
  • Mathematica
    g = 12; Union[Flatten[NestList[{2 #, 1 + #^2} &, 1, g]]]
    (*  A191203; use g>11 to get all terms up to 4096 *)

A191107 Increasing sequence generated by these rules: a(1)=1, and if x is in a then 3x-2 and 3x+1 are in a.

Original entry on oeis.org

1, 4, 10, 13, 28, 31, 37, 40, 82, 85, 91, 94, 109, 112, 118, 121, 244, 247, 253, 256, 271, 274, 280, 283, 325, 328, 334, 337, 352, 355, 361, 364, 730, 733, 739, 742, 757, 760, 766, 769, 811, 814, 820, 823, 838, 841, 847, 850, 973, 976, 982, 985, 1000, 1003, 1009, 1012, 1054, 1057, 1063, 1066, 1081, 1084, 1090, 1093, 2188
Offset: 1

Views

Author

Clark Kimberling, May 26 2011

Keywords

Comments

For general discussions, see A190803 and A191106.
Numbers whose base-3 representation ends in 1 and contains no 2; primitive members of A005836. - Peter Munn, Aug 14 2023

Crossrefs

Programs

  • Maple
    N:= 100000: # to get all terms <= N
    with(queue):
    Q:= new(1):
    A:= {}:
    while not empty(Q) do
      s:= dequeue(Q);
      A:= A union {s};
      for t in {3*s-2,3*s+1} minus A do
        if t <= N then enqueue(Q,t) fi
      od
    od:
    sort(convert(A,list)); # Robert Israel, Nov 29 2015
  • Mathematica
    h = 3; i = -2; j = 3; k = 1; f = 1;  g = 7;
    a = Union[Flatten[NestList[{h # + i, j # + k} &, f, g]]]  (* A191107 *)
    b = (a + 2)/3; c = (a - 1)/3; r = Range[1, 900];
    d = Intersection[b, r] (* A003278 *)
    e = Intersection[c, r] (* A005836 *)

Formula

Conjecture: a(n) = 3*A003278(n) - 2 = (A055246(n) + 1)/2. - L. Edson Jeffery, Nov 25 2015
Conjecture: a(n) = A190640(n)/2. - Michel Marcus, Aug 24 2016
Conjecture: a(n) = A003278(2n-1). - Arie Bos, Aug 07 2022

A191108 Increasing sequence generated by these rules: a(1)=1, and if x is in a then 3x-2 and 3x+2 are in a.

Original entry on oeis.org

1, 5, 13, 17, 37, 41, 49, 53, 109, 113, 121, 125, 145, 149, 157, 161, 325, 329, 337, 341, 361, 365, 373, 377, 433, 437, 445, 449, 469, 473, 481, 485, 973, 977, 985, 989, 1009, 1013, 1021, 1025, 1081, 1085, 1093, 1097, 1117, 1121, 1129, 1133, 1297, 1301, 1309, 1313, 1333, 1337, 1345, 1349, 1405, 1409, 1417, 1421, 1441, 1445
Offset: 1

Views

Author

Clark Kimberling, May 26 2011

Keywords

Comments

See discussions at A190803, A191106. The sequence a=A191108 has closure properties: the positive integers in (2+A191108)/3 comprise A191108, as do those in (-2+A191108)/3.
From Peter Munn, May 13 2019: (Start)
The closure of {1} in the positive integers under reflection about 3^k, k >= 1.
Asymptotic density is 0.
Consider a Sierpinski arrowhead curve formed of edges numbered consecutively from 0 at its axis of symmetry. The m-th edge is contained in the boundary of the plane sector occupied by the arrowhead if and only if m or -m is in this sequence.
For k >= 0, a(2^k) = 2*3^k - 1 and {a(i)/(2*3^k) | 1 <= i <= 2^k} is the set of center points of surviving intervals at the k-th step of generating the Cantor set, and therefore the set of center points of deleted middle-third intervals at the (k+1)-th step.
Define t: Z -> P(R) so that t(n) is the translated Cantor ternary set spanning [(n-1)/2, (n+1)/2], and let T be the union of t(a(n)) for all n. T = T * 3 = T / 3 is the closure of the Cantor ternary set under multiplication by 3.
(End)

Crossrefs

Programs

  • Mathematica
    h = 3; i = -2; j = 3; k = 2; f = 1; g = 7;
    a = Union[Flatten[NestList[{h # + i, j # + k} &, f, g]]]  (* A191108 *)
    b = (a + 2)/3; c = (a - 2)/3; r = Range[1, 900];
    d = Intersection[b, r] (* A191108 closure property  *)
    e = Intersection[c, r] (* A191108 closure property  *)
  • PARI
    a(n) = fromdigits(binary(n-1),3)<<2 + 1; \\ Kevin Ryde, Aug 05 2022

Formula

From Peter Munn, May 25 2019: (Start)
a(n) = (A055247(2n-1) + A055247(2n)) / 3.
a(n) = A306556(2n)*2 - 1 = A306556(2n-1) + A306556(2n).
a(n) = 2*A005823(n) + 1 = 4*A005836(n) + 1 = 2*A191106(n) - 1.
a(2^k+i) = 2*A147991(2^k+i-1) + 3^(k+1) for k >= 0, 1 <= i <= 2^k.
(End)

A190808 Increasing sequence generated by these rules: a(1)=1, and if x is in a then 2x and 3x+1 are in a.

Original entry on oeis.org

1, 2, 4, 7, 8, 13, 14, 16, 22, 25, 26, 28, 32, 40, 43, 44, 49, 50, 52, 56, 64, 67, 76, 79, 80, 85, 86, 88, 97, 98, 100, 104, 112, 121, 128, 130, 133, 134, 148, 151, 152, 157, 158, 160, 169, 170, 172, 176, 193, 194, 196, 200, 202, 208, 224, 229, 238, 241, 242, 256
Offset: 1

Views

Author

Clark Kimberling, May 20 2011

Keywords

Comments

See A190803.

Crossrefs

Programs

  • Haskell
    import Data.Set (singleton, deleteFindMin, insert)
    a190808 n = a190808_list !! (n-1)
    a190808_list = f $ singleton 1
       where f s = m : (f $ insert (2*m) $ insert (3*m+1) s')
                 where (m, s') = deleteFindMin s
    -- Reinhard Zumkeller, Jun 01 2011
  • Mathematica
    h = 2; i = 0; j = 3; k = 1; f = 1; g = 9 ;
    a = Union[Flatten[NestList[{h # + i, j # + k} &, f, g]]]  (* A190808 *)
    b = a/2; c = (a - 1)/3; r = Range[1, 900];
    d = Intersection[b, r] (* A190851 *)
    e = Intersection[c, r] (* A190852 *)

Extensions

a(55)=224 inserted by Reinhard Zumkeller, Jun 01 2011

A190804 Increasing sequence generated by these rules: a(1)=1, and if x is in a then 2x-1 and 3x are in a.

Original entry on oeis.org

1, 3, 5, 9, 15, 17, 27, 29, 33, 45, 51, 53, 57, 65, 81, 87, 89, 99, 101, 105, 113, 129, 135, 153, 159, 161, 171, 173, 177, 195, 197, 201, 209, 225, 243, 257, 261, 267, 269, 297, 303, 305, 315, 317, 321, 339, 341, 345, 353, 387, 389, 393, 401, 405, 417, 449
Offset: 1

Views

Author

Clark Kimberling, May 20 2011

Keywords

Comments

See A190803.

Crossrefs

Cf. A190803.

Programs

  • Haskell
    import Data.Set (singleton, deleteFindMin, insert)
    a190804 n = a190804_list !! (n-1)
    a190804_list = 1 : f (singleton 3)
       where f s = m : (f $ insert (2*m-1) $ insert (3*m) s')
                 where (m, s') = deleteFindMin s
    -- Reinhard Zumkeller, Jun 01 2011
  • Mathematica
    h = 2; i = -1; j = 3; k = 0; f = 1; g = 10 ;
    a = Union[Flatten[NestList[{h # + i, j # + k} &, f, g]]]  (* A190804 *)
    b = (a + 1)/2; c = a/3; r = Range[1, 500];
    d = Intersection[b, r] (* A190803 conjectured *)
    e = Intersection[c, r] (* A190844 *)

Extensions

a(56) = 449 inserted by Reinhard Zumkeller, Jun 01 2011

A190807 Increasing sequence generated by these rules: a(1)=1, and if x is in a then 2x and 3x-1 are in a.

Original entry on oeis.org

1, 2, 4, 5, 8, 10, 11, 14, 16, 20, 22, 23, 28, 29, 32, 40, 41, 44, 46, 47, 56, 58, 59, 64, 65, 68, 80, 82, 83, 86, 88, 92, 94, 95, 112, 116, 118, 119, 122, 128, 130, 131, 136, 137, 140, 160, 164, 166, 167, 172, 173, 176, 184, 188, 190, 191, 194, 203, 224, 232, 236, 238, 239, 244, 245, 248, 256, 257, 260, 262, 263, 272, 274, 275, 280
Offset: 1

Views

Author

Clark Kimberling, May 20 2011

Keywords

Comments

See A190803.

Crossrefs

Programs

  • Haskell
    import Data.Set (singleton, deleteFindMin, insert)
    a190807 n = a190807_list !! (n-1)
    a190807_list = f $ singleton 1
       where f s = m : (f $ insert (2*m) $ insert (3*m-1) s')
                 where (m, s') = deleteFindMin s
    -- Reinhard Zumkeller, Jun 01 2011
  • Mathematica
    h = 2; i = 0; j = 3; k = -1; f = 1; g = 9 ;
    a = Union[Flatten[NestList[{h # + i, j # + k} &, f, g]]]  (* A190807 *)
    b = a/2; c = (a + 1)/3; r = Range[1, 900];
    d = Intersection[b, r] (* A190849 *)
    e = Intersection[c, r] (* A190850 *)
Showing 1-10 of 31 results. Next