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

A184820 a(n) = n + floor(n/t) + floor(n/t^2), where t is the tribonacci constant.

Original entry on oeis.org

1, 3, 4, 7, 8, 10, 12, 14, 15, 17, 19, 21, 23, 25, 27, 28, 31, 32, 34, 35, 38, 39, 41, 44, 45, 47, 48, 51, 52, 54, 56, 58, 59, 62, 64, 65, 67, 69, 71, 72, 75, 76, 78, 80, 82, 84, 85, 88, 89, 91, 93, 95, 96, 98, 100, 102, 103, 106, 108, 109, 112, 113, 115, 116, 119, 120, 122, 124, 126, 128, 129, 132, 133, 135, 137, 139, 140, 143, 144, 146, 148, 150, 152, 153, 156, 157, 159, 161, 163, 164, 166, 169, 170, 172, 174, 176, 177, 179, 181, 183, 184, 187, 188, 190, 193, 194, 196, 197, 200, 201, 203, 205, 207, 208, 210, 213, 214, 216, 218, 220, 221, 224, 225, 227, 228, 231, 233, 234, 237, 238, 240, 242, 244, 245, 247
Offset: 1

Views

Author

Paul D. Hanna, Jan 22 2011

Keywords

Comments

This is one of three sequences that partition the positive integers.
Given t is the tribonacci constant, then the following sequences are disjoint:
. A184820(n) = n + [n/t] + [n/t^2],
. A184821(n) = n + [n*t] + [n/t],
. A184822(n) = n + [n*t] + [n*t^2], where []=floor.
This is a special case of Clark Kimberling's results given in A184812.

Examples

			Let t be the tribonacci constant, then t = 1 + 1/t + 1/t^2 where:
t = 1.8392867552..., t^2 = 3.3829757679..., t^3 = 6.2222625231...

Crossrefs

Cf. A184821, A184822, A184812, A058265; A184823, A184835.

Programs

  • PARI
    {a(n)=local(t=real(polroots(1+x+x^2-x^3)[1]));n+floor(n/t)+floor(n/t^2)}

Formula

Limit a(n)/n = t = 1.8392867552141611325518525646532866...
a(n) = n + floor(n*p/r) + floor(n*q/r), where p=t, q=t^2, r=t^3, and t is the tribonacci constant (see Clark Kimberling's formula in A184812).

A184823 a(n) = n + floor(n/t) + floor(n/t^2) + floor(n/t^3), where t is the tetranacci constant.

Original entry on oeis.org

1, 3, 4, 7, 8, 10, 11, 15, 16, 18, 19, 22, 23, 25, 28, 30, 31, 33, 35, 37, 38, 41, 43, 45, 46, 48, 51, 52, 55, 57, 59, 60, 62, 64, 66, 68, 70, 72, 74, 75, 78, 79, 82, 83, 86, 87, 89, 90, 93, 94, 97, 98, 101, 103, 104, 107, 108, 111, 112, 115, 116, 118, 119, 122, 124, 126, 128, 130, 131, 133, 135, 138, 139, 141, 143, 145, 146, 148, 151, 153, 155, 157, 159, 160, 162, 165, 167, 168, 170, 172, 174, 175, 178, 180, 182, 183, 186, 187, 189, 190, 194, 195, 197, 198, 201, 202, 204, 208, 209, 211, 212, 215, 216, 218, 220, 223, 224
Offset: 1

Views

Author

Paul D. Hanna, Jan 23 2011

Keywords

Comments

This is one of four sequences that partition the positive integers.
Given t is the tetranacci constant, then the following sequences are disjoint:
. A184823(n) = n + [n/t] + [n/t^2] + [n/t^3],
. A184824(n) = n + [n*t] + [n/t] + [n/t^2],
. A184825(n) = n + [n*t] + [n*t^2] + [n/t],
. A184826(n) = n + [n*t] + [n*t^2] + [n*t^3], where []=floor.
This is a special case of Clark Kimberling's results given in A184812.

Examples

			Let t be the tetranacci constant, then t = 1 + 1/t + 1/t^2 + 1/t^3 and:
t = 1.92756197548..., t^2 = 3.71549516932..., t^3 = 7.16184720848..., t^4 = 13.8049043532...

Crossrefs

Cf. A184824, A184825, A184826; A184820, A184835, A184812, A086088.

Programs

  • PARI
    {a(n)=local(t=real(polroots(1+x+x^2+x^3-x^4)[2])); n+floor(n/t)+floor(n/t^2)+floor(n/t^3)}

Formula

Limit a(n)/n = t = 1.9275619754829253042619058...
a(n) = n + floor(n*p/s) + floor(n*q/s) + floor(n*r/s), where p=t, q=t^2, r=t^3, s=t^4, and t is the tetranacci constant.

A184836 a(n) = n + floor(n*t) + floor(n/t) + floor(n/t^2) + floor(n/t^3), where t is the pentanacci constant.

Original entry on oeis.org

2, 6, 9, 14, 17, 21, 24, 30, 33, 37, 40, 45, 48, 52, 55, 61, 64, 68, 71, 76, 79, 83, 87, 92, 95, 99, 102, 107, 110, 113, 118, 122, 125, 129, 133, 137, 140, 145, 149, 153, 156, 160, 164, 168, 171, 176, 180, 184, 187, 191, 195, 199, 202, 207, 211, 215, 218, 223, 226, 229, 234, 238, 242, 245, 249, 253, 257, 260, 265, 269, 273, 276, 280, 284, 288, 292, 296, 300, 304, 307, 311, 315, 319, 323, 327, 331, 335, 338, 342, 345, 349, 353, 358, 361, 365, 368, 373, 376, 381, 384, 389, 392, 396, 399, 404, 407, 412, 415, 420, 423
Offset: 1

Views

Author

Paul D. Hanna, Jan 23 2011

Keywords

Comments

This is one of five sequences that partition the positive integers.
Given t is the pentanacci constant, then the following sequences are disjoint:
. A184835(n) = n + [n/t] + [n/t^2] + [n/t^3] + [n/t^4],
. A184836(n) = n + [n*t] + [n/t] + [n/t^2] + [n/t^3],
. A184837(n) = n + [n*t] + [n*t^2] + [n/t] + [n/t^2],
. A184838(n) = n + [n*t] + [n*t^2] + [n*t^3] + [n/t],
. A184839(n) = n + [n*t] + [n*t^2] + [n*t^3] + [n*t^4], where []=floor.
This is a special case of Clark Kimberling's results given in A184812.

Examples

			Given t = pentanacci constant, then t^2 = 1 + t + 1/t + 1/t^2 + 1/t^3,
t = 1.965948236645..., t^2 = 3.864952469169..., t^3 = 7.598296491482..., t^4 = 14.93785758893..., t^5 = 29.36705478623...

Crossrefs

Cf. A184835, A184837, A184838, A184839; A184812, A103814.

Programs

  • PARI
    {a(n)=local(t=real(polroots(1+x+x^2+x^3+x^4-x^5)[1])); n+floor(n*t)+floor(n/t)+floor(n/t^2)+floor(n/t^3)}

Formula

Limit a(n)/n = t^2 = 3.8649524691694932164414964...
a(n) = n + floor(n*p/s) + floor(n*q/s) + floor(n*r/s) + floor(n*u/s), where p=t, q=t^2, r=t^3, s=t^4, u=t^5, and t is the pentanacci constant.

A184837 a(n) = n + floor(n*t) + floor(n*t^2) + floor(n/t) + floor(n/t^2), where t is the pentanacci constant.

Original entry on oeis.org

5, 13, 20, 29, 36, 44, 51, 59, 66, 74, 81, 90, 97, 105, 111, 120, 127, 135, 142, 151, 158, 166, 172, 181, 188, 196, 203, 212, 219, 225, 233, 241, 248, 256, 264, 272, 279, 286, 294, 302, 309, 317, 325, 333, 339, 347, 355, 363, 370, 378, 386, 393, 400, 408, 416, 424, 431, 440, 447, 453, 461, 469, 477, 484, 492, 500, 507, 514, 522, 530, 538, 545, 553, 561, 568, 575, 583, 591, 599, 606, 614, 621, 629, 636, 644, 652, 660, 667, 674, 681, 689, 696, 705, 712, 720, 727, 735, 742, 750, 757, 766, 773, 781, 787, 796, 803
Offset: 1

Views

Author

Paul D. Hanna, Jan 23 2011

Keywords

Comments

This is one of five sequences that partition the positive integers.
Given t is the pentanacci constant, then the following sequences are disjoint:
. A184835(n) = n + [n/t] + [n/t^2] + [n/t^3] + [n/t^4],
. A184836(n) = n + [n*t] + [n/t] + [n/t^2] + [n/t^3],
. A184837(n) = n + [n*t] + [n*t^2] + [n/t] + [n/t^2],
. A184838(n) = n + [n*t] + [n*t^2] + [n*t^3] + [n/t],
. A184839(n) = n + [n*t] + [n*t^2] + [n*t^3] + [n*t^4], where []=floor.
This is a special case of Clark Kimberling's results given in A184812.

Examples

			Given t = pentanacci constant, then t^3 = 1 + t + t^2 + 1/t + 1/t^2,
t = 1.965948236645..., t^2 = 3.864952469169..., t^3 = 7.598296491482..., t^4 = 14.93785758893..., t^5 = 29.36705478623...

Crossrefs

Cf. A184835, A184836, A184838, A184839; A184812, A103814.

Programs

  • PARI
    {a(n)=local(t=real(polroots(1+x+x^2+x^3+x^4-x^5)[1])); n+floor(n*t)+floor(n*t^2)+floor(n/t)+floor(n/t^2)}

Formula

Limit a(n)/n = t^3 = 7.5982964914823797216620775...
a(n) = n + floor(n*p/r) + floor(n*q/r) + floor(n*s/r) + floor(n*u/r), where p=t, q=t^2, r=t^3, s=t^4, u=t^5, and t is the pentanacci constant.

A184838 a(n) = n + floor(n*t) + floor(n*t^2) + floor(n*t^3) + floor(n/t), where t is the pentanacci constant.

Original entry on oeis.org

12, 28, 42, 58, 72, 88, 103, 117, 132, 147, 162, 178, 192, 208, 221, 237, 252, 267, 282, 297, 312, 328, 341, 357, 371, 387, 402, 417, 432, 445, 460, 476, 490, 506, 520, 536, 551, 565, 580, 595, 610, 626, 640, 656, 669, 685, 700, 715, 730, 745, 760, 775, 789, 805, 819, 835, 850, 865, 880, 893, 909, 924, 939, 954, 969, 984, 999, 1013, 1029, 1043, 1059, 1074, 1089, 1104, 1118, 1133, 1149, 1163, 1179, 1193, 1209, 1223, 1238, 1253, 1268, 1283, 1299, 1313, 1327, 1341, 1357, 1372, 1387, 1402, 1417, 1432, 1447
Offset: 1

Views

Author

Paul D. Hanna, Jan 23 2011

Keywords

Comments

This is one of five sequences that partition the positive integers.
Given t is the pentanacci constant, then the following sequences are disjoint:
. A184835(n) = n + [n/t] + [n/t^2] + [n/t^3] + [n/t^4],
. A184836(n) = n + [n*t] + [n/t] + [n/t^2] + [n/t^3],
. A184837(n) = n + [n*t] + [n*t^2] + [n/t] + [n/t^2],
. A184838(n) = n + [n*t] + [n*t^2] + [n*t^3] + [n/t],
. A184839(n) = n + [n*t] + [n*t^2] + [n*t^3] + [n*t^4], where []=floor.
This is a special case of Clark Kimberling's results given in A184812.

Examples

			Given t = pentanacci constant, then t^4 = 1 + t + t^2 + t^3 + 1/t,
t = 1.965948236645..., t^2 = 3.864952469169..., t^3 = 7.598296491482..., t^4 = 14.93785758893..., t^5 = 29.36705478623...

Crossrefs

Cf. A184835, A184836, A184837, A184839; A184812, A103814.

Programs

  • PARI
    {a(n)=local(t=real(polroots(1+x+x^2+x^3+x^4-x^5)[1])); n+floor(n*t)+floor(n*t^2)+floor(n*t^3)+floor(n/t)}

Formula

Limit a(n)/n = t^4 = 14.937857588939362411757354...
a(n) = n + floor(n*p/q) + floor(n*r/q) + floor(n*s/q) + floor(n*u/q), where p=t, q=t^2, r=t^3, s=t^4, u=t^5, and t is the pentanacci constant.

A184839 a(n) = n + floor(n*t) + floor(n*t^2) + floor(n*t^3) + floor(n*t^4), where t is the pentanacci constant.

Original entry on oeis.org

26, 56, 85, 115, 144, 174, 204, 232, 262, 291, 321, 351, 380, 410, 438, 468, 497, 526, 556, 585, 615, 645, 673, 703, 732, 762, 792, 821, 851, 878, 908, 938, 966, 996, 1025, 1055, 1085, 1113, 1143, 1172, 1202, 1232, 1261, 1291, 1319, 1349, 1379, 1408, 1437, 1466, 1496, 1525, 1554, 1584, 1613, 1643, 1673, 1702, 1731, 1759, 1789, 1819, 1848, 1878, 1906, 1936, 1965, 1994, 2024, 2053, 2083, 2113, 2142, 2172, 2200, 2230, 2260, 2289, 2319, 2348, 2377, 2406, 2435, 2465, 2494, 2524, 2554, 2583, 2611, 2640, 2670
Offset: 1

Views

Author

Paul D. Hanna, Jan 23 2011

Keywords

Comments

This is one of five sequences that partition the positive integers.
Given t is the pentanacci constant, then the following sequences are disjoint:
. A184835(n) = n + [n/t] + [n/t^2] + [n/t^3] + [n/t^4],
. A184836(n) = n + [n*t] + [n/t] + [n/t^2] + [n/t^3],
. A184837(n) = n + [n*t] + [n*t^2] + [n/t] + [n/t^2],
. A184838(n) = n + [n*t] + [n*t^2] + [n*t^3] + [n/t],
. A184839(n) = n + [n*t] + [n*t^2] + [n*t^3] + [n*t^4], where []=floor.
This is a special case of Clark Kimberling's results given in A184812.

Examples

			Given t = pentanacci constant, then t^5 = 1 + t + t^2 + t^3 + t^4,
t = 1.965948236645..., t^2 = 3.864952469169..., t^3 = 7.598296491482..., t^4 = 14.93785758893..., t^5 = 29.36705478623...

Links

Crossrefs

Cf. A184835, A184836, A184837, A184838; A184812, A103814.

Programs

  • Mathematica
    With[{t=Root[x^5-x^4-x^3-x^2-x-1,1]},Table[n+Total@@Through[ Floor[ n*t^Range[4]]],{n,100}]] (* Harvey P. Dale, Dec 12 2019 *)
  • PARI
    {a(n)=local(t=real(polroots(1+x+x^2+x^3+x^4-x^5)[1])); n+floor(n*t)+floor(n*t^2)+floor(n*t^3)+floor(n*t^4)}

Formula

Limit a(n)/n = t^5 = 29.367054786236720687050865...
a(n) = n + floor(n*q/p) + floor(n*r/p) + floor(n*s/p) + floor(n*u/p), where p=t, q=t^2, r=t^3, s=t^4, u=t^5, and t is the pentanacci constant.
Showing 1-6 of 6 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.