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 11-20 of 22 results. Next

A003249 a(n) = A001950(A003234(n)) + 1.

Original entry on oeis.org

8, 21, 29, 42, 50, 55, 63, 76, 84, 97, 110, 118, 131, 139, 144, 152, 165, 173, 186, 194, 199, 207, 220, 228, 241, 254, 262, 275, 283, 288, 296, 309, 317, 330, 338, 343, 351, 364, 372, 377, 385, 398, 406, 419, 427, 432, 440, 453, 461, 474, 487, 495, 508, 516
Offset: 1

Views

Author

Keywords

Comments

This is the function named u' in [Carlitz]. - Eric M. Schmidt, Aug 14 2014

References

  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Cf. A242094 (complement), A001950, A003234.

Programs

Extensions

Corrected and extended by, and a definition from Eric M. Schmidt, Aug 14 2014

A276886 Sums-complement of the Beatty sequence for 2 + phi.

Original entry on oeis.org

1, 2, 5, 6, 9, 12, 13, 16, 17, 20, 23, 24, 27, 30, 31, 34, 35, 38, 41, 42, 45, 46, 49, 52, 53, 56, 59, 60, 63, 64, 67, 70, 71, 74, 77, 78, 81, 82, 85, 88, 89, 92, 93, 96, 99, 100, 103, 106, 107, 110, 111, 114, 117, 118, 121, 122, 125, 128, 129, 132, 135, 136
Offset: 1

Views

Author

Clark Kimberling, Oct 01 2016

Keywords

Comments

See A276871 for a definition of sums-complement and guide to related sequences.
From Michel Dekking, Apr 30 2019: (Start)
This sequence is a generalized Beatty sequence. According to Theorem 3.2 in the paper "The Frobenius problem for homomorphic embeddings of languages into the integers" this sequence (as a subset of the natural numbers) is the complement of the union of the two Beatty sequences
V := A003231 and W = V+1 (as subsets of the natural numbers) given by
V(n):= A(n)+2n = 3,7,10,14,..., W(n):=A(n)+2n+1 = 4,8,11,15,...
Here A = A000201, the lower Wythoff sequence.
Since the sequence Delta A = A014675 of first differences of A is the infinite Fibonacci word on the alphabet {2,1}, the sequence Delta V = (V(n+1)-V(n)) is the infinite Fibonacci word on the alphabet {4,3}. (Delta V equals A276867 shifted by 1.)
Now if for some k, Delta V(k) = 4, then a distance 3 plus a distance 1 are generated between three consecutive numbers in the complement, whereas if Delta V(k) = 3, then only a distance 3 is generated between two consecutive numbers in the complement.
This means that (skipping a(1)=1)
Delta a = (a(n+1)-a(n)) = gamma(Delta V),
where gamma is the morphism
gamma(4) = 31, gamma(3) = 3.
Since the Fibonacci word is a fixed point of the morphism 0->01, 1->0, this implies that Delta a, skipping a(1)=1, is the Fibonacci word on the alphabet {3,1}. It follows that
a(n+1) = 2*A(n) - n + 1.
(End)

Examples

			The Beatty sequence for 2 + phi is 0 followed by A003231, which is (0,3,7,10,14,18,21,...), with difference sequence s = A276867 = (3,4,3,4,4,3,4,3,4,4,3,4,4,3,4,3,4,4,3,...). The sums s(j)+s(j+1)+...+s(k) include (3,4,7,8,10,12,14,15,...), with complement (1,2,5,6,9,12,13,16,...).
		

Crossrefs

Programs

  • Mathematica
    z = 500; r = 2 + GoldenRatio; b = Table[Floor[k*r], {k, 0, z}]; (* A003231 *)
    t = Differences[b]; (* A276867 *)
    c[k_, n_] := Sum[t[[i]], {i, n, n + k - 1}];
    u[k_] := Union[Table[c[k, n], {n, 1, z - k + 1}]];
    w = Flatten[Table[u[k], {k, 1, z}]]; Complement[Range[Max[w]], w];  (* A276886 *)

Formula

a(n) = 2*floor((n-1)*phi) - n + 2, where phi is the golden mean.

A362917 The part of n to the left of the decimal point in the Dekking-van-Loon-canonical base phi representation of n.

Original entry on oeis.org

0, 1, 10, 11, 101, 1000, 1010, 1011, 10001, 10010, 10011, 10101, 100000, 100010, 100011, 100101, 101000, 101010, 101011, 1000001, 1000010, 1000011, 1000101, 1001000, 1001010, 1001011, 1010001, 1010010, 1010011, 1010101, 10000000
Offset: 0

Views

Author

N. J. A. Sloane, May 26 2023

Keywords

Comments

The part to the right of the decimal point, reversed, is given by A341722, that is, it is the same as in the Bergman-canonical representation. I asked Jeffrey Shallit to confirm this, and he provided the following verification using the Walnut Theorem-Prover:
[Walnut]$ eval sloane "?msd_fib An,x1,x2,y1,y2 ($saka(n,x1,y1) & $dvl(n,x2,y2)) => $equal(y1,y2)":
(saka(n,x1,y1))&dvl(n,x2,y2))):54 states - 66ms
((saka(n,x1,y1))&dvl(n,x2,y2)))=>equal(y1,y2))):2 states - 25ms
(A n , x1 , x2 , y1 , y2 ((saka(n,x1,y1))&dvl(n,x2,y2)))=>equal(y1,y2)))):1 states - 81ms
Total computation time: 264ms.
TRUE

Examples

			The canonical base phi representations of the numbers 0 through 12 are:
0 = 0.
1 = 1.
2 = 10.01
3 = 11.01
4 = 101.01
5 = 1000.1001
6 = 1010.0001
7 = 1011.0001
8 = 10001.0001
9 = 10010.0101
10 = 10011.0101
11 = 10101.0101
12 = 100000.101001
		

References

  • Dekking, Michel, and Ad van Loon. "On the representation of the natural numbers by powers of the golden mean." arXiv preprint arXiv:2111.07544 (2021); Fib. Quart. 61:2 (May 2023), 105-118.

Crossrefs

Differs from A105424 at positions given by A003231.

Extensions

a(13)-a(32) from Hugo Pfoertner, May 26 2023

A003247 Complement of A003248.

Original entry on oeis.org

1, 2, 3, 4, 6, 7, 8, 9, 10, 11, 12, 13, 15, 16, 17, 18, 19, 21, 22, 23, 24, 25, 26, 27, 28, 30, 31, 32, 33, 34, 36, 37, 38, 40, 41, 42, 43, 44, 46, 47, 48, 49, 50, 51, 52, 53, 55, 56, 57, 58, 59, 61, 62, 63, 64, 65, 66, 67, 68, 70, 71, 72, 73, 74, 75, 76, 77
Offset: 1

Views

Author

Keywords

Comments

Numbers k such that A003234(k) equals the image of some x by A000201(A001950()) (see 1.20 p. 339 of Carlitz link). - Michel Marcus, Feb 02 2014
This is the function named t in [Carlitz]. - Eric M. Schmidt, Aug 14 2014

References

  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Programs

  • PARI
    A000201(n) = floor(n*(sqrt(5)+1)/2);
    A001950(n) = floor(n*(sqrt(5)+3)/2);
    A003231(n) = floor(n*(sqrt(5)+5)/2);
    is003234(n) = A003231(A001950(n)) == A001950(A003231(n)) - 1;
    lista(nn) = {vab = vector(nn, i, A000201(A001950(i))); v003234 = select(n->is003234(n), vector(nn, i, i)); for (n=1, #v003234, if (vecsearch(vab, v003234[n]), print1(n, ", ")););} \\ Michel Marcus, Feb 02 2014

Extensions

More terms from Michel Marcus, Feb 02 2014
New definition from Eric M. Schmidt, Aug 14 2014

A006132 Related to representations as sums of Fibonacci numbers.

Original entry on oeis.org

1, 6, 9, 22, 40, 43, 48, 56, 61, 64, 111, 145, 150, 153, 166, 255, 273, 276, 281, 289, 294, 297, 310, 315, 318, 323, 328, 331, 336, 344, 378, 383, 386, 399, 417, 420, 425, 433, 438, 441, 488, 721, 755, 760, 763, 776, 865, 988, 993, 996, 1009, 1027, 1030, 1035
Offset: 1

Views

Author

Keywords

Comments

Numbers such that A003231(n) = A003234(n), see Table 1 p. 357 in Carlitz link. - Michel Marcus, Feb 02 2014

References

  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Programs

  • PARI
    A001950(n) = floor(n*(sqrt(5)+3)/2); \\ b
    A003231(n) = floor(n*(sqrt(5)+5)/2); \\ c
    iss(n) = A003231(A001950(n)) == A001950(A003231(n)) - 1;
    lista(nn) = {v003231 = vector(nn, i, floor(i*(sqrt(5)+5)/2)); v003234 = select(n->iss(n), vector(5*nn, i, i)); for (n=1, nn, if (v003231[n] == v003234[n], print1(n, ", ")););}  \\ Michel Marcus, Feb 02 2014

Extensions

More terms from Michel Marcus, Feb 02 2014

A118287 A fractal transform of the Lucas numbers: define a(1)=1, then if L(n)A000032(n).

Original entry on oeis.org

1, 2, 1, 3, 6, 5, 6, 10, 9, 10, 8, 17, 16, 17, 15, 12, 13, 12, 28, 27, 28, 26, 23, 24, 23, 19, 20, 19, 21, 46, 45, 46, 44, 41, 42, 41, 37, 38, 37, 39, 30, 31, 30, 32, 35, 34, 35, 75, 74, 75, 73, 70, 71, 70, 66, 67, 66, 68, 59, 60, 59, 61, 64, 63, 64, 48, 49, 48, 50, 53, 52, 53
Offset: 1

Views

Author

Casey Mongoven, Apr 22 2006

Keywords

Comments

From Jeffrey Shallit, Jan 01 2024: (Start)
No integer appears three times or more in this sequence.
If an integer appears twice, it appears as a(n) and a(n-2) for some n.
a(n) = a(n-2) if and only if n belongs to A003231. (observation of Benoit Cloitre)
All these and more properties can be proved using the synchronized Fibonacci automaton for a(n), which has 102 states. (End)

Crossrefs

A190723 Numbers m for which A055778(m) > A055778(m-1).

Original entry on oeis.org

1, 2, 4, 8, 9, 11, 15, 19, 20, 22, 26, 27, 29, 33, 37, 38, 40, 44, 48, 49, 51, 55, 56, 58, 62, 66, 67, 69, 73, 74, 76, 80, 84, 85, 87, 91, 95, 96, 98, 102, 103, 105, 109, 113, 114, 116, 120, 124, 125, 127, 131, 132, 134, 138, 142, 143, 145, 149, 150, 152, 156
Offset: 1

Views

Author

Carmine Suriano, May 17 2011

Keywords

Comments

The sequence (a(n+1)-1) = 1,3,7,8,10,... is the union of two generalized Beatty sequences, namely (floor(n*phi)+2*n) = A003231, and the sequence (4*floor(n*phi)+3*n+1), the latter with offset 0. For a proof see my paper "Points of increase...". - Michel Dekking, Apr 01 2020

Crossrefs

Cf. A055778, A190720, A190721, A003231. The morphism in the Formula is a change of alphabet of the morphism generating A284749.

Programs

Formula

a(n) = 1 + Sum_{k=1..n-1} x(k), where x is the unique fixed point of the morphism 1->12, 2->4, 4->1244 on the alphabet {1,2,4}. - Michel Dekking, Apr 01 2020

A284387 {010->2}-transform of the infinite Fibonacci word A003849.

Original entry on oeis.org

2, 2, 1, 0, 2, 2, 1, 0, 2, 1, 0, 2, 2, 1, 0, 2, 2, 1, 0, 2, 1, 0, 2, 2, 1, 0, 2, 1, 0, 2, 2, 1, 0, 2, 2, 1, 0, 2, 1, 0, 2, 2, 1, 0, 2, 2, 1, 0, 2, 1, 0, 2, 2, 1, 0, 2, 1, 0, 2, 2, 1, 0, 2, 2, 1, 0, 2, 1, 0, 2, 2, 1, 0, 2, 1, 0, 2, 2, 1, 0, 2, 2, 1, 0, 2, 1
Offset: 1

Views

Author

Clark Kimberling, May 02 2017

Keywords

Comments

It appears that the sequences p = A214971, q = A003231, r = A276886 give the positions of 0, 1, 2, respectively. Let t,u,v be the slopes of p, q, r, respectively. Then t = (5+sqrt(5))/2, u = (5+sqrt(5))/2, v = sqrt(5), and 1/t + 1/u + 1/v = 1. If 1 is removed from p (or from r), the resulting three sequences partition the set of positive integers.
From Michel Dekking, Apr 29 2019: (Start)
This sequence is the unique fixed point of the morphism
0->10, 1->2, 2->2210.
To prove this, let phi2 be the square of the Fibonacci morphism given by
phi2(0)=010, phi2(1)=01.
Then xF := A003849 = 0100101001... is the unique fixed point of phi2.
We introduce the morphism beta with fixed point xB := A188432 = 00100101... given by
beta(0) = 001, beta(1) = 01,
and also the morphism psi given by
psi(0) = 010, psi(1) = 10.
CLAIM: psi(xB) = xF.
This claim can be proved by showing with induction that for n>0
psi(beta^n(0)) = phi2^{n+1}(0),
psi(beta^n(01)) = phi2^{n+1}(10).
Why is this claim useful? Well, it implies directly that
(a(n)) = delta(xB),
where delta is the 'decoration' morphism given by
delta(0) = 2, delta(1) = 10.
Now double the 1's in xB: 1->11'. Then beta induces a 'substitution' S
0 -> 0011', 11' -> 011'.
Since 1 is always followed by 1', and 1' always preceded by 1, the action of S is equivalent to the action of the morphism sigma defined by
sigma(0) = 0011', sigma(1) = 0, sigma(1') = 11'.
The decoration morphism delta gives rise to a letter-to-letter map gamma given by
gamma(0) = 2, gamma(1) = 1, gamma(1') = 0.
Now the change of alphabet gamma gives the morphism we have been looking for, since delta(xB) = gamma(xS), where xS is the unique fixed point of sigma.
(End)
This sequence is the {0->2, 1->10}-transform of A188432. - Michel Dekking, Apr 29 2019

Examples

			As a word, A003849 = 01001010010010100..., and replacing consecutively (not simultaneously!) each 010 by 2 gives 2210221021...
		

Crossrefs

Programs

  • Mathematica
    s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0}}] &, {0}, 13]  (* A003849 *)
    w = StringJoin[Map[ToString, s]]
    w1 = StringReplace[w, {"010" -> "2"}]
    st = ToCharacterCode[w1] - 48 (* A284387 *)
    Flatten[Position[st, 0]]  (* A214971 *)
    Flatten[Position[st, 1]]  (* A003231 *)
    Flatten[Position[st, 2]]  (* A276886 *)

Extensions

Comment edited by Clark Kimberling, Oct 14 2017

A332529 Rectangular array by antidiagonals: T(n,k) = floor(n + k*r), where r = golden ratio = (1+sqrt(5))/2.

Original entry on oeis.org

0, 2, 1, 5, 3, 2, 7, 6, 4, 3, 10, 8, 7, 5, 4, 13, 11, 9, 8, 6, 5, 15, 14, 12, 10, 9, 7, 6, 18, 16, 15, 13, 11, 10, 8, 7, 20, 19, 17, 16, 14, 12, 11, 9, 8, 23, 21, 20, 18, 17, 15, 13, 12, 10, 9, 26, 24, 22, 21, 19, 18, 16, 14, 13, 11, 10, 28, 27, 25, 23, 22
Offset: 0

Views

Author

Clark Kimberling, Jun 15 2020

Keywords

Comments

Column 0: Nonnegative integers.
Row 0: Upper Wythoff sequence, A001950, with 0 prepended.
Main Diagonal: A003231, with 0 prepended.
Diagonal (2,6,9,13,...) = A054770.
Diagonal (1,4,8,11,...) = A214971.
Diagonal (2,5,9,12,...) = A284624.

Examples

			Northwest corner:
  0   2    5    7   10   13   15
  1   3    6    8   11   14   16
  2   4    7    9   12   15   17
  3   5    8   10   13   16   18
  4   6    9   11   14   17   19
  5   7   10   12   15   18   20
  6   8   11   13   16   19   21
As a triangle (antidiagonals):
  0
  1   2
  2   3   5
  3   4   6   7
  4   5   7   8  10
		

Crossrefs

Programs

  • Mathematica
    t[n_, k_] := Floor[n + k*GoldenRatio];
    Grid[Table[t[n, k], {n, 0, 10}, {k, 0, 10}]] (* A332529 array *)
    Table[t[n - k, k], {n, 0, 12}, {k, n, 0, -1}] // Flatten  (* A332529 sequence *)

Formula

T(n,k) = floor(n + k*r), where r = (golden ratio)^2 = (3+sqrt(5))/2.

Extensions

Definition corrected by Harvey P. Dale, Jun 14 2022

A368649 a(n) = round(n*rho), where rho = (5+sqrt(5))/2.

Original entry on oeis.org

4, 7, 11, 14, 18, 22, 25, 29, 33, 36, 40, 43, 47, 51, 54, 58, 62, 65, 69, 72, 76, 80, 83, 87, 90, 94, 98, 101, 105, 109, 112, 116, 119, 123, 127, 130, 134, 137, 141, 145, 148, 152, 156, 159, 163, 166, 170, 174, 177, 181, 185, 188, 192, 195, 199, 203, 206, 210
Offset: 1

Views

Author

Jeffrey Shallit, Jan 02 2024

Keywords

Comments

Also, the positive integers that do not appear in A118287.

Crossrefs

Programs

  • Mathematica
    Round[Range[100](5+Sqrt[5])/2] (* Paolo Xausa, Jan 03 2024 *)

Formula

a(n) = floor(n*(5+sqrt(5))/2 + 1/2).
Previous Showing 11-20 of 22 results. Next