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-5 of 5 results.

A191324 Increasing sequence generated by these rules: a(1)=1, and if x is in a then [3x/2]+1 and 3x+2 are in a, where [ ]=floor.

Original entry on oeis.org

1, 2, 4, 5, 7, 8, 11, 13, 14, 17, 20, 22, 23, 26, 31, 34, 35, 40, 41, 44, 47, 52, 53, 61, 62, 67, 68, 71, 79, 80, 92, 94, 95, 101, 103, 104, 107, 119, 121, 122, 125, 134, 139, 142, 143, 152, 155, 157, 158, 161, 179, 182, 184, 185, 188, 202, 203, 206, 209, 214, 215, 229, 233, 236, 238, 239, 242, 269, 274, 277, 278, 283, 284, 287, 304
Offset: 1

Views

Author

Clark Kimberling, May 30 2011

Keywords

Comments

See A191323.

Examples

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

Links

Crossrefs

Cf. A191323.

Programs

  • Mathematica
    h = 3; i = 1; j = 3; k = 2; f = 1; g = 12;
a = Union[Flatten[NestList[{Floor[h #/2] + i, j # + k} &, f, g]]]  (* A191324 *)

A191325 Increasing sequence generated by these rules: a(1)=1, and if x is in a then [3x/2] and [5x/2] are in a, where [ ]=floor.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 9, 10, 12, 13, 15, 17, 18, 19, 22, 25, 27, 28, 30, 32, 33, 37, 40, 42, 45, 47, 48, 49, 55, 60, 62, 63, 67, 70, 72, 73, 75, 80, 82, 90, 92, 93, 94, 100, 105, 108, 109, 112, 117, 120, 122, 123, 135, 137, 138, 139, 141, 150, 155, 157, 162, 163, 167, 168, 175, 180, 182, 183, 184, 187, 200, 202, 205, 207, 208, 211, 225
Offset: 1

Views

Author

Clark Kimberling, May 30 2011

Keywords

Comments

See A191323.

Examples

			1 -> 2 -> 3,5 -> 4,7,12 -> 6,10,17,18,30 ->

Links

Crossrefs

Cf. A191323.

Programs

  • Mathematica
    h = 3; i = 0; j = 5; k = 0; f = 1; g = 15;
Union[Flatten[NestList[{Floor[h #/2] + i, Floor[j #/2] + k} &, f, g]]]
(* A191325 *)

A191326 Increasing sequence generated by these rules: a(1)=1, and if x is in a then [3x/2] and [7x/2] are in a, where [ ]=floor.

Original entry on oeis.org

1, 3, 4, 6, 9, 10, 13, 14, 15, 19, 21, 22, 28, 31, 33, 35, 42, 45, 46, 49, 52, 63, 66, 67, 69, 73, 77, 78, 94, 98, 99, 100, 103, 108, 109, 115, 117, 122, 141, 147, 148, 150, 154, 157, 161, 162, 163, 171, 172, 175, 182, 183, 211, 220, 222, 225, 231, 234, 235, 241, 243, 244, 255, 256, 258, 262, 269, 273, 274, 316, 329, 330, 333, 337, 343
Offset: 1

Views

Author

Clark Kimberling, May 30 2011

Keywords

Comments

See A191323.

Examples

			1 -> 3 -> 4,10 -> 6,14,15,35 ->

Links

Crossrefs

Cf. A191323.

Programs

  • Mathematica
    h = 3; i = 0; j = 7; k = 0; f = 1; g = 15;
Union[Flatten[NestList[{Floor[h #/2] + i, Floor[j #/2] + k} &, f, g]]]
(* A191326 *)

Extensions

Missing terms added by Ivan Neretin, May 17 2018

A191327 Increasing sequence generated by these rules: a(1)=1, and if x is in a then [5x/2] and [7x/2] are in a, where [ ]=floor.

Original entry on oeis.org

1, 2, 3, 5, 7, 10, 12, 17, 24, 25, 30, 35, 42, 59, 60, 62, 75, 84, 87, 105, 122, 147, 150, 155, 187, 206, 210, 217, 262, 294, 304, 305, 367, 375, 387, 427, 467, 514, 515, 525, 542, 654, 655, 721, 735, 759, 760, 762, 917, 937, 967, 1029, 1064, 1067, 1167, 1284, 1285, 1287, 1312, 1354, 1355, 1494, 1634, 1635, 1637, 1799, 1802
Offset: 1

Views

Author

Clark Kimberling, May 30 2011

Keywords

Comments

See A191323.

Links

Crossrefs

Cf. A191323.

Programs

  • Mathematica
    h = 5; i = 0; j = 7; k = 0; f = 1; g = 15;
Union[Flatten[NestList[{Floor[h #/2] + i, Floor[j #/2] + k} &, f, g]]]
(* A191327 *)

A191328 Increasing sequence generated by these rules: a(1)=1, and if x is in a then [5x/3] and [7x/3] are in a, where [ ]=floor.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 18, 21, 23, 25, 26, 30, 32, 35, 37, 38, 41, 42, 43, 49, 50, 53, 58, 60, 61, 63, 68, 70, 71, 74, 81, 83, 86, 88, 95, 96, 98, 100, 101, 105, 113, 114, 116, 118, 123, 135, 138, 140, 142, 143, 146, 147, 158, 160, 163, 165, 166, 168, 172, 175, 188, 189, 190, 193, 196, 200, 205, 221, 224, 225
Offset: 1

Views

Author

Clark Kimberling, May 30 2011

Keywords

Comments

See A191323.

Examples

			1 ->2 -> 3,4 -> 5,7,9 ->

Links

Crossrefs

Cf. A191323.

Programs

  • Mathematica
    h = 5; i = 0; j = 7; k = 0; f = 1; g = 15;
Union[Flatten[NestList[{Floor[h #/3] + i, Floor[j #/3] + k} &, f, g]]]
(* A191328 *)
Showing 1-5 of 5 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.