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 61-70 of 79 results. Next

A120206 a(1)=5; a(n)=floor((49+sum(a(1) to a(n-1)))/9).

Original entry on oeis.org

5, 6, 6, 7, 8, 9, 10, 11, 12, 13, 15, 16, 18, 20, 22, 25, 28, 31, 34, 38, 42, 47, 52, 58, 64, 71, 79, 88, 98, 109, 121, 134, 149, 166, 184, 205, 227, 253, 281, 312
Offset: 1

Views

Author

Graeme McRae, Jun 10 2006

Keywords

Links

Crossrefs

Cf. A073941, A112088, A072493.

Programs

  • Mathematica
    nxt[{t_,a_}]:=With[{c=Floor[(49+t)/9]},{t+c,c}]; NestList[nxt,{5,5},40][[;;,2]] (* Harvey P. Dale, May 23 2025 *)

A120176 a(1)=8; a(n)=floor((41+sum(a(1) to a(n-1)))/5).

Original entry on oeis.org

8, 9, 11, 13, 16, 19, 23, 28, 33, 40, 48, 57, 69, 83, 99, 119, 143, 171, 206, 247, 296, 355, 426, 512, 614, 737, 884, 1061, 1273, 1528, 1833, 2200, 2640, 3168, 3802, 4562, 5474, 6569, 7883, 9460
Offset: 1

Views

Author

Graeme McRae, Jun 10 2006

Keywords

Crossrefs

Cf. A073941, A112088, A072493.

Programs

  • Mathematica
    Module[{lst={8}},Table[AppendTo[lst,Floor[(41+Total[lst])/5]],{n,40}]; lst] (* Harvey P. Dale, Apr 30 2012 *)

A120179 a(1)=2; a(n)=floor((13+sum(a(1) to a(n-1)))/6).

Original entry on oeis.org

2, 2, 2, 3, 3, 4, 4, 5, 6, 7, 8, 9, 11, 13, 15, 17, 20, 24, 28, 32, 38, 44, 51, 60, 70, 81, 95, 111, 129, 151, 176, 205, 239, 279, 326, 380, 443, 517, 603, 704, 821, 958, 1118, 1304, 1521, 1775, 2071, 2416, 2819, 3288, 3836, 4476, 5222, 6092, 7107, 8292, 9674, 11286
Offset: 1

Views

Author

Graeme McRae, Jun 10 2006

Keywords

Crossrefs

Cf. A073941, A112088, A072493.

Programs

  • Mathematica
    f[s_] := Append[s, Floor[(13 + Plus @@ s)/6]]; Nest[f, {2}, 57] (* Robert G. Wilson v, Jul 08 2006 *)

Extensions

More terms from Robert G. Wilson v, Jul 08 2006

A120180 a(1)=3; a(n)=floor((20+sum(a(1) to a(n-1)))/6).

Original entry on oeis.org

3, 3, 4, 5, 5, 6, 7, 8, 10, 11, 13, 15, 18, 21, 24, 28, 33, 39, 45, 53, 61, 72, 84, 98, 114, 133, 155, 181, 211, 246, 287, 335, 391, 456, 532, 621, 724, 845, 986, 1150, 1342, 1565, 1826, 2131, 2486, 2900, 3383, 3947, 4605, 5373, 6268, 7313, 8532, 9954, 11613
Offset: 1

Views

Author

Graeme McRae, Jun 10 2006

Keywords

Crossrefs

Cf. A073941, A112088, A072493.

Programs

  • Mathematica
    Module[{lst={3}},Do[AppendTo[lst,Floor[(20+Total[lst])/6]],{100}];lst] (* Harvey P. Dale, Jul 15 2012 *)

Extensions

More terms from Harvey P. Dale, Jul 15 2012

A120182 a(1)=5; a(n)=floor((34+sum(a(1) to a(n-1)))/6).

Original entry on oeis.org

5, 6, 7, 8, 10, 11, 13, 15, 18, 21, 24, 28, 33, 38, 45, 52, 61, 71, 83, 97, 113, 132, 154, 179, 209, 244, 285, 332, 388, 452, 528, 616, 718, 838, 978, 1141, 1331, 1553, 1811, 2113
Offset: 1

Views

Author

Graeme McRae, Jun 10 2006

Keywords

Crossrefs

Cf. A073941, A112088, A072493.

A120187 a(1)=2; a(n) = floor((15 + Sum_{j=1..n-1} a(j))/7).

Original entry on oeis.org

2, 2, 2, 3, 3, 3, 4, 4, 5, 6, 7, 8, 9, 10, 11, 13, 15, 17, 19, 22, 25, 29, 33, 38, 43, 49, 56, 64, 73, 84, 96, 110, 125, 143, 164, 187, 214, 244, 279, 319, 365, 417, 476, 544, 622, 711, 812, 928, 1061, 1213, 1386, 1584, 1810, 2069, 2364, 2702, 3088, 3529, 4033, 4609
Offset: 1

Views

Author

Graeme McRae, Jun 10 2006

Keywords

Crossrefs

Cf. A073941, A112088, A072493.

Programs

  • Mathematica
    f[s_] := Append[s, Floor[(15 + Plus @@ s)/7]]; Nest[f, {2}, 59] (* Robert G. Wilson v, Jul 08 2006 *)

Extensions

More terms from Robert G. Wilson v, Jul 08 2006

A120188 a(1)=3; a(n)=floor((23+sum(a(1) to a(n-1)))/7).

Original entry on oeis.org

3, 3, 4, 4, 5, 6, 6, 7, 8, 9, 11, 12, 14, 16, 18, 21, 24, 27, 31, 36, 41, 47, 53, 61, 70, 80, 91, 104, 119, 136, 155, 177, 203, 232, 265, 303, 346, 395, 452, 516
Offset: 1

Views

Author

Graeme McRae, Jun 10 2006

Keywords

Crossrefs

Cf. A073941, A112088, A072493.

A120189 a(1)=4; a(n) = floor((31+Sum_{i=1..n-1} a(i))/7).

Original entry on oeis.org

4, 5, 5, 6, 7, 8, 9, 10, 12, 13, 15, 17, 20, 23, 26, 30, 34, 39, 44, 51, 58, 66, 76, 87, 99, 113, 129, 148, 169, 193, 221, 252, 288, 329, 376, 430, 491, 562, 642, 734, 838, 958, 1095, 1251, 1430, 1634, 1868, 2135, 2440, 2788, 3187, 3642, 4162, 4757, 5436, 6213
Offset: 1

Views

Author

Graeme McRae, Jun 10 2006

Keywords

Crossrefs

Cf. A073941, A112088, A072493.

Programs

  • Mathematica
    a[n_]:=Module[{s=k=4}, For[i=1, iStefano Spezia, Jul 21 2024 *)

Extensions

a(41)-a(56) from Stefano Spezia, Jul 21 2024

A120191 a(1)=6; a(n)=floor((47+sum(a(1) to a(n-1)))/7).

Original entry on oeis.org

6, 7, 8, 9, 11, 12, 14, 16, 18, 21, 24, 27, 31, 35, 40, 46, 53, 60, 69, 79, 90, 103, 118, 134, 154, 176, 201, 229, 262, 300, 342, 391, 447, 511, 584, 667, 763, 872, 996, 1139
Offset: 1

Views

Author

Graeme McRae, Jun 10 2006

Keywords

Crossrefs

Cf. A073941, A112088, A072493.

Programs

  • Mathematica
    nxt[{t_,a_}]:=Module[{c=Floor[(47+t)/7]},{t+c,c}]; NestList[nxt,{0,6},40][[All,2]] (* Harvey P. Dale, Jan 17 2020 *)

A120192 a(1)=7; a(n)=floor((55+sum(a(1) to a(n-1)))/7).

Original entry on oeis.org

7, 8, 10, 11, 13, 14, 16, 19, 21, 24, 28, 32, 36, 42, 48, 54, 62, 71, 81, 93, 106, 121, 138, 158, 181, 207, 236, 270, 308, 352, 403, 460, 526, 601, 687, 785, 897, 1025, 1172, 1339
Offset: 1

Views

Author

Graeme McRae, Jun 10 2006

Keywords

Crossrefs

Cf. A073941, A112088, A072493.

Programs

  • Mathematica
    Module[{lst={7}},Do[AppendTo[lst,Floor[(55+Total[lst])/7]],{40}];lst] (* Harvey P. Dale, Sep 06 2012 *)
Previous Showing 61-70 of 79 results. Next

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

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