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

A117407 a(n) = j if n is T(j), else a(n) = k if n is U(k), where T is a Beatty sequence based on (sqrt(5)+5)/2 (A054770) and U is its complement (A063732).

Original entry on oeis.org

1, 2, 1, 3, 4, 5, 2, 6, 7, 3, 8, 9, 10, 4, 11, 12, 13, 5, 14, 15, 6, 16, 17, 18, 7, 19, 20, 8, 21, 22, 23, 9, 24, 25, 26, 10, 27, 28, 11, 29, 30, 31, 12, 32, 33, 34, 13, 35, 36, 14, 37, 38, 39, 15, 40, 41, 16, 42, 43, 44, 17, 45, 46, 47, 18, 48, 49, 19, 50, 51, 52, 20, 53, 54, 21, 55
Offset: 0

Views

Author

Casey Mongoven, Mar 13 2006

Keywords

Comments

Every positive integer occurs exactly twice. Taking a Lucas number (A000032) of terms L(n) starting at a(0), the last two terms are a pair of Fibonacci numbers (A000045). If n is even, then the last two terms are F(n+1) followed by F(n-1), if n is odd they are F(n-1) followed by F(n+1), where F is the Fibonacci sequence. For example, the first L(4) = 7 terms of this sequence are (1,2,1,3,4,5,2) and the last members are 5 and 2 which are equal to F(5) and F(3). Note also that L(n) = F(n-1) + F(n+1).

Examples

			a(9) = 3 because 9 = T(3).
		

Crossrefs

A003263 Number of representations of n as a sum of distinct Lucas numbers 1, 3, 4, 7, 11, ... (A000204).

Original entry on oeis.org

1, 0, 1, 2, 1, 0, 2, 2, 0, 1, 3, 2, 0, 2, 3, 1, 0, 3, 3, 0, 2, 4, 2, 0, 3, 3, 0, 1, 4, 3, 0, 3, 5, 2, 0, 4, 4, 0, 2, 5, 3, 0, 3, 4, 1, 0, 4, 4, 0, 3, 6, 3, 0, 5, 5, 0, 2, 6, 4, 0, 4, 6, 2, 0, 5, 5, 0, 3, 6, 3, 0, 4, 4, 0, 1, 5, 4, 0, 4, 7, 3, 0, 6, 6, 0, 3, 8, 5, 0, 5, 7, 2, 0, 6, 6, 0, 4, 8, 4, 0, 6, 6, 0, 2, 7
Offset: 1

Views

Author

Keywords

References

  • A. Brousseau, Fibonacci and Related Number Theoretic Tables. Fibonacci Association, San Jose, CA, 1972, p. 58.
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Programs

  • Mathematica
    n1 = 10; n2 = LucasL[n1]; Product[1 + x^LucasL[n], {n, 1, n1}] + O[x]^n2 // CoefficientList[#, x]& // Rest (* Jean-François Alcover, Feb 17 2017, after Joerg Arndt *)
  • PARI
    L(n)=fibonacci(n+1) + fibonacci(n-1);
    N = 66;  x = 'x + O('x^N);
    gf = prod(n=1, 11, 1 + x^L(n) );
    Vec(gf) \\ Joerg Arndt, Jul 14 2013

Formula

G.f.: Product_{n>=1} (1 + x^L(n)) where L(n) = A000204(n). - Joerg Arndt, Jul 14 2013

Extensions

More terms from James Sellers, May 29 2000

A351712 Numbers whose minimal (or greedy) Lucas representation (A130310) is palindromic.

Original entry on oeis.org

0, 2, 6, 9, 13, 20, 24, 31, 49, 56, 64, 78, 100, 125, 136, 150, 158, 169, 201, 237, 252, 324, 342, 364, 378, 396, 404, 422, 444, 523, 581, 606, 650, 708, 845, 874, 910, 932, 961, 975, 1004, 1040, 1048, 1077, 1113, 1135, 1164, 1366, 1460, 1500, 1572, 1666, 1692, 1786
Offset: 1

Views

Author

Amiram Eldar, Feb 17 2022

Keywords

Comments

A000211(n) = Lucas(n) + 2 is a term for all n > 2, since the representation of Lucas(n) + 2 is 10...01 with n-1 0's between the two 1's.

Examples

			The first 10 terms are:
   n  a(n) A130310(a(n))
   ---------------------
   1   0               0
   2   2               1
   3   6            1001
   4   9           10001
   5  13          100001
   6  20         1000001
   7  24         1001001
   8  31        10000001
   9  49       100000001
  10  56       100010001
		

Crossrefs

Subsequence of A054770.
Similar sequences: A002113, A006995, A014190, A094202, A331191, A351717.

Programs

  • Mathematica
    lucasPalQ[n_] := Module[{s = {}, m = n, k = 1}, While[m > 0, If[m == 1, k = 1; AppendTo[s, k]; m = 0, If[m == 2, k = 0; AppendTo[s, k]; m = 0, While[LucasL[k] <= m, k++]; k--; AppendTo[s, k]; m -= LucasL[k]; k = 1]]]; PalindromeQ[IntegerDigits[Total[2^s], 2]]]; Select[Range[0, 2000], lucasPalQ]

A190509 a(n) = n + [nr/s] + [nt/s] + [nu/s] where r=golden ratio, s=r^2, t=r^3, u=r^4, and [] represents the floor function.

Original entry on oeis.org

4, 11, 15, 22, 29, 33, 40, 44, 51, 58, 62, 69, 76, 80, 87, 91, 98, 105, 109, 116, 120, 127, 134, 138, 145, 152, 156, 163, 167, 174, 181, 185, 192, 199, 203, 210, 214, 221, 228, 232, 239, 243, 250, 257, 261, 268, 275, 279, 286, 290, 297, 304, 308, 315, 319, 326, 333, 337, 344, 351, 355, 362, 366, 373, 380, 384, 391, 398, 402, 409
Offset: 1

Views

Author

Clark Kimberling, May 11 2011

Keywords

Comments

See A190508.
From Clark Kimberling, Nov 13 2022: (Start)
This is the third of four sequences that partition the positive integers. Suppose that u = (u(n)) and v = (v(n)) are increasing sequences of positive integers. Let u' and v' be their (increasing) complements, and consider these four sequences:
(1) v o u, defined by (v o u)(n) = v(u(n));
(2) u o v';
(3) v o u';
(4) v' o u'.
Every positive integer is in exactly one of the four sequences. For the reverse composites, u o v, u o v', u' o v, u' o v', see A356104 to A356107.
Assume that if w is any of the sequences u, v, u', v', then lim_{n->oo} w(n)/n exists and defines the (limiting) density of w. For w = u,v,u',v', denote the densities by r,s,r',s'. Then the densities of sequences (1)-(4) exist, and
1/(r*r') + 1/(r*s') + 1/(s*s') + 1/(s*r') = 1.
For this sequence, u, v, u', v', are the Beatty sequences given by u(n) = floor(n*(1+sqrt(5))/2) and v(n) = floor(n*sqrt(5)), so that r = (1+sqrt(5))/2, s = sqrt(5), r' = (3+sqrt(5))/2, s' = (5 + sqrt(5))/4.
(1) v o u = (2, 6, 8, 13, 17, 20, 24, 26, 31, 35, 38, 42, ...) = A356217
(2) v' o u = (1, 5, 7, 10, 14, 16, 19, 21, 25, 28, 30, 34, ...) = A356218
(3) v o u' = (4, 11, 15, 22, 29, 33, 40, 44, 51, 58, 62, 76, ...) = this sequence
(4) v' o u' = (3, 9, 12, 18, 23, 27, 32, 36, 41, 47, 50, 56, ...) = A356220
(End)

Crossrefs

Programs

  • Magma
    [3*Floor(n*(Sqrt(5)+1)/2) + n: n in [1..80]]; // Vincenzo Librandi, Nov 01 2018
    
  • Maple
    r:=(1+sqrt(5))/2: s:=r^2: t:=r^3: u:=r^4: a:=n->n+floor(n*r/s)+floor(n*t/s)+floor(n*u/s):  seq(a(n),n=1..70); # Muniru A Asiru, Nov 01 2018
  • Mathematica
    (See A190508.)
    Table[3 Floor[n (Sqrt[5] + 1) / 2] + n, {n, 1, 100}] (* Vincenzo Librandi, Nov 01 2018 *)
  • PARI
    a(n) = 3*floor(n*(sqrt(5)+1)/2) + n; \\ Michel Marcus, Sep 10 2017; after Michel Dekking's formula
    
  • Python
    from math import isqrt
    def A190509(n): return n+((m:=n+isqrt(5*n**2))&-2)+(m>>1) # Chai Wah Wu, Aug 10 2022

Formula

A190508: a(n) = n + [nr] + [nr^2] + [nr^3];
A190509: b(n) = [n/r] + n + [nr] + [nr^2];
A054770: c(n) = [n/r^2] + [n/r] + n + [nr];
A190511: d(n) = [n/r^3] + [n/r^2] + [n/r] + n.
a(n) = 3*A000201(n)+n, since r/s = 1/r = r-1, and u/s = r^2 = r+1. - Michel Dekking, Sep 06 2017
a(n) = A000201(n) + A003623(n). - Primoz Pirnat, Jan 08 2021

A190508 a(n) = n+[n*s/r]+[n*t/r]+[n*u/r]; r=golden ratio, s=r^2, t=r^3, u=r^4.

Original entry on oeis.org

8, 18, 26, 36, 47, 55, 65, 73, 84, 94, 102, 112, 123, 131, 141, 149, 160, 170, 178, 188, 196, 207, 217, 225, 235, 246, 254, 264, 272, 283, 293, 301, 311, 322, 330, 340, 348, 358, 369, 377, 387, 395, 406, 416, 424, 434, 445, 453, 463, 471, 482, 492, 500, 510, 518, 529, 539, 547, 557, 568, 576, 586, 594, 605, 615, 623, 633, 644
Offset: 1

Views

Author

Clark Kimberling, May 11 2011

Keywords

Comments

This is one of four sequences that partition the positive integers. In general, suppose that r, s, t, u are positive real numbers for which the sets {i/r: i>=1}, {j/s: j>=1}, {k/t: k>=1}, {h/u: h>=1} are pairwise disjoint. Let a(n) be the rank of n/r when all the numbers in the four sets are jointly ranked. Define b(n), c(n), d(n) as the ranks of n/s, n/t, n/u, respectively.
It is easy to prove that
a(n)=n+[n*s/r]+[n*t/r]+[n*u/r],
b(n)=n+[n*r/s]+[n*t/s]+[n*u/s],
c(n)=n+[n*r/t]+[n*s/t]+[n*u/t],
d(n)=n+[n*r/u]+[n*s/u]+[n*t/u], where []=floor.
Taking r=golden ratio, s=r^2, t=r^3, u=r^4 gives a=A190508, b=A190509, c=A054770, d=A190511.

Crossrefs

Cf. A190509, A054770, A190511 (the other three sequences in the partition of N).

Programs

  • Mathematica
    r=GoldenRatio; s=r^2; t=r^3; u=r^4;
    a[n_] := n + Floor[n*s/r] + Floor[n*t/r]+Floor[n*u/r];
    b[n_] := n + Floor[n*r/s] + Floor[n*t/s]+Floor[n*u/s];
    c[n_] := n + Floor[n*r/t] + Floor[n*s/t]+Floor[n*u/t];
    d[n_] := n + Floor[n*r/u] + Floor[n*s/u]+Floor[n*t/u];
    Table[a[n], {n, 1, 120}]  (*A190508*)
    Table[b[n], {n, 1, 120}]  (*A190509*)
    Table[c[n], {n, 1, 120}]  (*A054770*)
    Table[d[n], {n, 1, 120}]  (*A190511*)

Formula

A190508: a(n)=n+[n*r]+[n*r^2]+[n*r^3]
A190509: b(n)=[n/r]+n+[n*r]+[n*r^2]
A054770: c(n)=[n/r^2]+[n/r]+n+[n*r]
A190511: d(n)=[n/r^3]+[n/r^2]+[n/r]+n

A190511 n+[nr/u]+[ns/u]+[nt/u]; r=golden ratio, s=r^2, t=r^3, u=r^4.

Original entry on oeis.org

1, 3, 5, 7, 10, 12, 14, 16, 19, 21, 23, 25, 28, 30, 32, 34, 37, 39, 41, 43, 45, 48, 50, 52, 54, 57, 59, 61, 63, 66, 68, 70, 72, 75, 77, 79, 81, 83, 86, 88, 90, 92, 95, 97, 99, 101, 104, 106, 108, 110, 113, 115, 117, 119, 121, 124, 126, 128, 130, 133, 135, 137, 139, 142, 144, 146, 148, 151, 153, 155, 157, 159, 162, 164, 166, 168, 171, 173
Offset: 1

Views

Author

Clark Kimberling, May 11 2011

Keywords

Comments

A190508: a(n)=n+[nr]+[nr^2]+[nr^3]
A190509: b(n)=[n/r]+n+[nr]+[nr^2]
A054770: c(n)=[n/r^2]+[n/r]+n+[nr]
A190511: d(n)=[n/r^3]+[n/r^2]+[n/r]+n
Are the differences between successive terms always 2 or 3? - Harvey P. Dale, Apr 03 2025

Crossrefs

Programs

  • Mathematica
    (See A190508.)
    Module[{g=GoldenRatio,g4},g4=g^4;Table[n+Floor[(n*g)/g4]+Floor[(n*g^2)/g4]+Floor[(n*g^3)/g4],{n,80}]] (* Harvey P. Dale, Apr 03 2025 *)

Formula

a(n) = A022839(n)-1. - Michel Dekking, May 04 2019

A294203 Number of partitions of n into distinct Lucas parts (A000204) greater than 1.

Original entry on oeis.org

1, 0, 0, 1, 1, 0, 0, 2, 0, 0, 1, 2, 0, 0, 2, 1, 0, 0, 3, 0, 0, 2, 2, 0, 0, 3, 0, 0, 1, 3, 0, 0, 3, 2, 0, 0, 4, 0, 0, 2, 3, 0, 0, 3, 1, 0, 0, 4, 0, 0, 3, 3, 0, 0, 5, 0, 0, 2, 4, 0, 0, 4, 2, 0, 0, 5, 0, 0, 3, 3, 0, 0, 4, 0, 0, 1, 4, 0, 0, 4, 3, 0, 0, 6, 0, 0, 3, 5, 0, 0, 5, 2, 0, 0, 6, 0, 0, 4, 4
Offset: 0

Views

Author

Ilya Gutkovskiy, Oct 24 2017

Keywords

Comments

Convolution of the sequences A003263 and A033999.
Positions of 0: 1, 2, 5, 6, 8, 9, 12, 13, ... = A287775(n) - 1 (conjecture).
From Michel Dekking, Dec 30 2017: (Start)
Proof of the 'positions of 0' conjecture: let (z(n))=1,2,5,6,8,9,12,... be the positions of 0. The crucial observation is that if a number n is the sum of distinct Lucas parts greater than 1, then n+1 is a sum of Lucas parts. This implies that (z(2n))=2,6,9,13,... is the sequence of numbers A054770 that are not a sum of Lucas numbers. We see there that Ian Agol proved that b(n):=A054770(n)=floor(phi*n)+2n-1. But then the sequence of first differences (b(n+1)-b(n)) equals the Fibonacci word on the alphabet {4,3}, yielding that (z(2n)-z(2n-1)) equals the Fibonacci word on {3,2}, and we already know that z(2n+1)-z(2n)=1 for all n. On the other hand, A287775 has the same first difference sequence given by A108103. Since A287775(1)=2, the conjecture follows. (End)
Positions of 1: 0, 3, 4, 10, 15, 28, 44, 75, ... = A001350(n+1) - 1 (conjecture).

Examples

			a(7) = 2 because we have [7] and [4, 3].
		

Crossrefs

Programs

  • Mathematica
    CoefficientList[Series[Product[1 + x^LucasL[k], {k, 2, 15}], {x, 0, 100}], x]

Formula

G.f.: Product_{k>=2} (1 + x^Lucas(k)).

A351713 Numbers whose binary and minimal Lucas representations are both palindromic.

Original entry on oeis.org

0, 9, 31, 975, 297097, 816867, 4148165871, 152488124529, 1632977901693, 11162529166917, 11925833175477, 3047549778123957, 3894487365191355, 8920885515768255
Offset: 1

Views

Author

Amiram Eldar, Feb 17 2022

Keywords

Examples

			   n    a(n)       A007088(a(n))                A130310(a(n))
   ----------------------------------------------------------
   1       0                   0                            0
   2       9                1001                        10001
   3      31               11111                     10000001
   4     975          1111001111              100010000010001
   5  297097 1001000100010001001  100001000000101000000100001
		

Crossrefs

Intersection of A006995 and A351712.
Subsequence of A054770.
Similar sequences: A095309, A331193, A331894, A351718.

Programs

  • Mathematica
    lucasPalQ[n_] := Module[{s = {}, m = n, k = 1}, While[m > 0, If[m == 1, k = 1; AppendTo[s, k]; m = 0, If[m == 2, k = 0; AppendTo[s, k]; m = 0, While[LucasL[k] <= m, k++]; k--; AppendTo[s, k]; m -= LucasL[k]; k = 1]]]; PalindromeQ[IntegerDigits[Total[2^s], 2]]]; Join[{0}, Select[Range[1, 10^6, 2], PalindromeQ[IntegerDigits[#, 2]] && lucasPalQ[#] &]]

A063732 Numbers whose Lucas representation excludes L_0 = 2.

Original entry on oeis.org

0, 1, 3, 4, 5, 7, 8, 10, 11, 12, 14, 15, 16, 18, 19, 21, 22, 23, 25, 26, 28, 29, 30, 32, 33, 34, 36, 37, 39, 40, 41, 43, 44, 45, 47, 48, 50, 51, 52, 54, 55, 57, 58, 59, 61, 62, 63, 65, 66, 68, 69, 70, 72, 73, 75, 76, 77, 79, 80, 81, 83, 84, 86, 87, 88, 90
Offset: 1

Views

Author

Fred Lunnon, Aug 25 2001

Keywords

Comments

From Michel Dekking, Aug 26 2019: (Start)
This sequence is a generalized Beatty sequence. We know that A054770, the sequence of numbers whose Lucas representation includes L_0=2, is equal to A054770(n) = A000201(n) + 2*n - 1 = floor((phi+2)*n) - 1.
One also easily checks that the numbers 3-phi and phi+2 form a Beatty pair. This implies that the sequence with terms floor((3-phi)*n)-1 is the complement of A054770 in the natural numbers 0,1,2,...
It follows that a(n) = 3*n - floor(n*phi) - 2.
(End)

Crossrefs

Cf. A003622, A022342. Complement of A054770.
Partial sums of A003842.
Cf. A130310 (Lucas representation).

Formula

a(n) = floor((3-phi)*n)-1, where phi is the golden mean. - Michel Dekking, Aug 26 2019

A055635 Smallest number that can be expressed as the sum of distinct Lucas numbers (A000204) in exactly n ways.

Original entry on oeis.org

1, 4, 11, 22, 33, 51, 80, 87, 134, 145, 210, 221, 232, 344, 355, 373, 561, 554, 601, 619, 608, 894, 1397, 930, 999, 988, 1473, 1462, 1451, 1509, 1603, 1585, 2341, 1596, 2363, 2352, 3658, 2551, 2439, 2562, 3781, 2580, 3810, 3792, 3926, 4132, 3803, 3944
Offset: 1

Views

Author

Jud McCranie, Jun 06 2000

Keywords

Examples

			11 can be expressed as 11=4+7=1+3+7, distinct Lucas numbers, so a(3)=11.
		

Crossrefs

Showing 1-10 of 15 results. Next