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

A194813 Number of integers k in [1,n] such that {n*r + k*r} < {n*r - k*r}, where { } = fractional part and r = (1+sqrt(5))/2 (the golden ratio).

Original entry on oeis.org

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

Views

Author

Clark Kimberling, Sep 03 2011

Keywords

Comments

A194813 + A194814 = A000027 for n > 0.

Examples

			{4r+1r} = 0.09...; {4r-1r} = 0.85...;
{4r+2r} = 0.70...; {4r-2r} = 0.23...;
{4r+3r} = 0.32...; {4r-3r} = 0.61...;
{4r+4r} = 0.94...; {4r-4r} = 0.00...;
so that a(4)=2.

Crossrefs

Cf. A001622, A194814, A194738.
Partial sums of A327174.

Programs

  • Mathematica
    r = GoldenRatio; p[x_] := FractionalPart[x];
u[n_, k_] := If[p[n*r + k*r] <= p[n*r - k*r], 1, 0]
v[n_, k_] := If[p[n*r + k*r] > p[n*r - k*r], 1, 0]
s[n_] := Sum[u[n, k], {k, 1, n}]
t[n_] := Sum[v[n, k], {k, 1, n}]
Table[s[n], {n, 1, 100}]   (* A194813 *)
Table[t[n], {n, 1, 100}]   (* A194814 *)

A019588 The right budding sequence: # of i such that 0 < i <= n and {tau*n} <= {tau*i} < 1, where {} is fractional part.

Original entry on oeis.org

1, 2, 1, 3, 5, 2, 5, 1, 5, 9, 3, 8, 13, 5, 11, 2, 9, 16, 5, 13, 1, 10, 19, 5, 15, 25, 9, 20, 3, 15, 27, 8, 21, 34, 13, 27, 5, 20, 35, 11, 27, 2, 19, 36, 9, 27, 45, 16, 35, 5, 25, 45, 13, 34, 1, 23, 45, 10, 33, 56, 19, 43, 5, 30, 55, 15, 41, 67, 25, 52, 9, 37, 65, 20, 49, 3, 33, 63, 15
Offset: 1

Views

Author

N. J. A. Sloane and J. H. Conway

Keywords

Comments

Also, the number of distinct blocks of the Fibonacci word (A003849) containing the maximum possible number of 1's for such a block. - Jeffrey Shallit, Jul 09 2025

References

  • J. H. Conway, personal communication.

Links

Crossrefs

Cf. A003849, A019587, A194734, A194738.

Programs

  • Haskell
    a019588 n = length $ filter (nTau <=) $
            map (snd . properFraction . (* tau) . fromInteger) [1..n]
   where (_, nTau) = properFraction (tau * fromInteger n)
         tau = (1 + sqrt 5) / 2
-- Reinhard Zumkeller, Jan 28 2012
  • Mathematica
    r = -GoldenRatio; p[x_] := FractionalPart[x];
u[n_, k_] := If[p[k*r] <= p[n*r], 1, 0]
v[n_, k_] := If[p[k*r] > p[n*r], 1, 0]
s[n_] := Sum[u[n, k], {k, 1, n}]
t[n_] := Sum[v[n, k], {k, 1, n}]
Table[s[n], {n, 1, 100}]   (* A019588 *)
Table[t[n], {n, 1, 100}]   (* A194734 *)
(* Clark Kimberling, Sep 02 2011 *)
Fold[Join[#1, Range[#1[[#2]], Length[#1] + 1 + Floor[GoldenRatio (#2 + 1)] - Floor[GoldenRatio #2], #2 + 1]] &, {1, 2}, Range[30]] (* Birkas Gyorgy, May 24 2012 *)

Formula

a(n) = A194733(n) + 1.

Extensions

Extended by Ray Chandler, Apr 18 2009

A054072 Position of n in the permutation of 1,2,...,n obtained by ordering the fractional parts {h*sqrt(2)} for h=1,2,...,n.

Original entry on oeis.org

1, 2, 1, 3, 1, 4, 7, 3, 7, 2, 7, 12, 5, 11, 3, 10, 1, 9, 17, 6, 15, 3, 13, 23, 9, 20, 5, 17, 1, 14, 27, 9, 23, 4, 19, 34, 13, 29, 7, 24, 41, 17, 35, 10, 29, 3, 23, 43, 15, 36, 7, 29, 51, 20, 43, 11, 35, 2, 27, 52, 17, 43, 7, 34, 61, 23, 51, 12, 41
Offset: 1

Views

Author

Clark Kimberling

Keywords

Links

Crossrefs

Cf. A194735, A194738, A019587.

Programs

  • Mathematica
    r = Sqrt[2]; p[x_] := FractionalPart[x];
u[n_, k_] := If[p[k*r] <= p[n*r], 1, 0]
v[n_, k_] := If[p[k*r] > p[n*r], 1, 0]
s[n_] := Sum[u[n, k], {k, 1, n}]
t[n_] := Sum[v[n, k], {k, 1, n}]
Table[s[n], {n, 1, 100}]   (* this sequence *)
Table[t[n], {n, 1, 100}]   (* A194735 *)

A194733 Number of k < n such that {k*r} > {n*r}, where { } = fractional part, r = (1+sqrt(5))/2 (the golden ratio).

Original entry on oeis.org

0, 1, 0, 2, 4, 1, 4, 0, 4, 8, 2, 7, 12, 4, 10, 1, 8, 15, 4, 12, 0, 9, 18, 4, 14, 24, 8, 19, 2, 14, 26, 7, 20, 33, 12, 26, 4, 19, 34, 10, 26, 1, 18, 35, 8, 26, 44, 15, 34, 4, 24, 44, 12, 33, 0, 22, 44, 9, 32, 55, 18, 42, 4, 29, 54, 14, 40, 66, 24, 51, 8, 36, 64, 19, 48, 2, 32
Offset: 1

Views

Author

Clark Kimberling, Sep 02 2011

Keywords

Comments

The maximum possible value of a(n) is n-1. - Michael B. Porter, Jan 29 2012

Examples

			r = 1.618, 2r = 3.236, 3r = 4.854, and 4r = 6.472, where r=(1+sqrt(5))/2.  The fractional part of 4r is 0.472, which is less than the fractional parts of two of {r, 2r, 3r}, so a(4) = 2. - _Michael B. Porter_, Jan 29 2012

Links

Crossrefs

Cf. A019587, A194738.

Programs

  • Haskell
    a194733 n = length $ filter (nTau <) $
            map (snd . properFraction . (* tau) . fromInteger) [1..n]
   where (_, nTau) = properFraction (tau * fromInteger n)
         tau = (1 + sqrt 5) / 2
-- Reinhard Zumkeller, Jan 28 2012
  • Maple
    Digits := 100;
A194733 := proc(n::posint)
    local a,k,phi,kfrac,nfrac ;
    phi := (1+sqrt(5))/2 ;
    a :=0 ;
    nfrac := n*phi-floor(n*phi) ;
    for k from 1 to n-1 do
        kfrac := k*phi-floor(k*phi) ;
        if evalf(kfrac-nfrac)  > 0 then
            a := a+1 ;
        end if;
    end do:
    a ;
end proc:
seq(A194733(n),n=1..100) ;  # R. J. Mathar, Aug 13 2021
  • Mathematica
    r = GoldenRatio; p[x_] := FractionalPart[x];
u[n_, k_] := If[p[k*r] <= p[n*r], 1, 0]
v[n_, k_] := If[p[k*r] > p[n*r], 1, 0]
s[n_] := Sum[u[n, k], {k, 1, n}]
t[n_] := Sum[v[n, k], {k, 1, n}]
Table[s[n], {n, 1, 100}]  (* A019587 *)
Table[t[n], {n, 1, 100}]  (* A194733 *)

Formula

a(n)+A019587(n)=n.

A194757 Number of k such that {-k*Pi} > {-n*Pi}, where { } = fractional part.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 0, 2, 4, 6, 8, 10, 12, 0, 3, 6, 9, 12, 15, 18, 0, 4, 8, 12, 16, 20, 24, 0, 5, 10, 15, 20, 25, 30, 0, 6, 12, 18, 24, 30, 36, 0, 7, 14, 21, 28, 35, 42, 0, 8, 16, 24, 32, 40, 48, 0, 9, 18, 27, 36, 45, 54, 0, 10, 20, 30, 40, 50, 60, 0, 11, 22, 33, 44, 55, 66
Offset: 1

Views

Author

Clark Kimberling, Sep 02 2011

Keywords

Crossrefs

Cf. A194756, A194738.

Programs

  • Mathematica
    r = -Pi; p[x_] := FractionalPart[x];
u[n_, k_] := If[p[k*r] <= p[n*r], 1, 0]
v[n_, k_] := If[p[k*r] > p[n*r], 1, 0]
s[n_] := Sum[u[n, k], {k, 1, n}]
t[n_] := Sum[v[n, k], {k, 1, n}]
Table[s[n], {n, 1, 100}]   (* A194756 *)
Table[t[n], {n, 1, 100}]   (* A194757 *)

A194735 Number of positive integers k <= n such that {k*sqrt(2)} > {n*sqrt(2)}, where { } = fractional part.

Original entry on oeis.org

0, 0, 2, 1, 4, 2, 0, 5, 2, 8, 4, 0, 8, 3, 12, 6, 16, 9, 2, 14, 6, 19, 10, 1, 16, 6, 22, 11, 28, 16, 4, 23, 10, 30, 16, 2, 24, 9, 32, 16, 0, 25, 8, 34, 16, 43, 24, 5, 34, 14, 44, 23, 2, 34, 12, 45, 22, 56, 32, 8, 44, 19, 56, 30, 4, 43, 16, 56, 28, 0, 42, 13, 56, 26, 70, 39
Offset: 1

Views

Author

Clark Kimberling, Sep 02 2011

Keywords

Links

Crossrefs

Cf. A054072, A194738.

Programs

  • Mathematica
    r = Sqrt[2]; p[x_] := FractionalPart[x];
u[n_, k_] := If[p[k*r] <= p[n*r], 1, 0]
v[n_, k_] := If[p[k*r] > p[n*r], 1, 0]
s[n_] := Sum[u[n, k], {k, 1, n}]
t[n_] := Sum[v[n, k], {k, 1, n}]
Table[s[n], {n, 1, 100}]   (* A054072 *)
Table[t[n], {n, 1, 100}]   (* A194735 *)

A194736 Number of k such that {-k*sqrt(2)} < {-n*sqrt(2)}, where { } = fractional part.

Original entry on oeis.org

1, 1, 3, 2, 5, 3, 1, 6, 3, 9, 5, 1, 9, 4, 13, 7, 17, 10, 3, 15, 7, 20, 11, 2, 17, 7, 23, 12, 29, 17, 5, 24, 11, 31, 17, 3, 25, 10, 33, 17, 1, 26, 9, 35, 17, 44, 25, 6, 35, 15, 45, 24, 3, 35, 13, 46, 23, 57, 33, 9, 45, 20, 57, 31, 5, 44, 17, 57, 29, 1, 43, 14, 57, 27, 71, 40
Offset: 1

Views

Author

Clark Kimberling, Sep 02 2011

Keywords

Links

Crossrefs

Cf. A194737, A194738.

Programs

  • Mathematica
    r = -Sqrt[2]; p[x_] := FractionalPart[x];
u[n_, k_] := If[p[k*r] <= p[n*r], 1, 0]
v[n_, k_] := If[p[k*r] > p[n*r], 1, 0]
s[n_] := Sum[u[n, k], {k, 1, n}]
t[n_] := Sum[v[n, k], {k, 1, n}]
Table[s[n], {n, 1, 100}]   (* A194736 *)
Table[t[n], {n, 1, 100}]   (* A194737 *)

A194737 Number of k such that {-k*sqrt(2)} > {-n*sqrt(2)}, where { } = fractional part.

Original entry on oeis.org

0, 1, 0, 2, 0, 3, 6, 2, 6, 1, 6, 11, 4, 10, 2, 9, 0, 8, 16, 5, 14, 2, 12, 22, 8, 19, 4, 16, 0, 13, 26, 8, 22, 3, 18, 33, 12, 28, 6, 23, 40, 16, 34, 9, 28, 2, 22, 42, 14, 35, 6, 28, 50, 19, 42, 10, 34, 1, 26, 51, 16, 42, 6, 33, 60, 22, 50, 11, 40, 69, 28, 58, 16, 47, 4, 36
Offset: 1

Views

Author

Clark Kimberling, Sep 02 2011

Keywords

Links

Crossrefs

Cf. A194736, A194738.

Programs

  • Mathematica
    r = -Sqrt[2]; p[x_] := FractionalPart[x];
u[n_, k_] := If[p[k*r] <= p[n*r], 1, 0]
v[n_, k_] := If[p[k*r] > p[n*r], 1, 0]
s[n_] := Sum[u[n, k], {k, 1, n}]
t[n_] := Sum[v[n, k], {k, 1, n}]
Table[s[n], {n, 1, 100}]   (* A194736 *)
Table[t[n], {n, 1, 100}]   (* A194737 *)

A194740 Number of k such that {-k*sqrt(3)} < {-n*sqrt(3)}, where { } = fractional part.

Original entry on oeis.org

1, 2, 3, 1, 3, 5, 7, 2, 5, 8, 11, 3, 7, 11, 1, 6, 11, 16, 3, 9, 15, 21, 5, 12, 19, 26, 7, 15, 23, 2, 11, 20, 29, 5, 15, 25, 35, 8, 19, 30, 41, 11, 23, 35, 3, 16, 29, 42, 7, 21, 35, 49, 11, 26, 41, 1, 17, 33, 49, 6, 23, 40, 57, 11, 29, 47, 65, 16, 35, 54, 3, 23, 43, 63, 9
Offset: 1

Views

Author

Clark Kimberling, Sep 02 2011

Keywords

Crossrefs

Cf. A194741, A194738.

Programs

  • Mathematica
    Remove["Global`*"];
r = -Sqrt[3]; p[x_] := FractionalPart[x];
u[n_, k_] := If[p[k*r] <= p[n*r], 1, 0]
v[n_, k_] := If[p[k*r] > p[n*r], 1, 0]
s[n_] := Sum[u[n, k], {k, 1, n}]
t[n_] := Sum[v[n, k], {k, 1, n}]
Table[s[n], {n, 1, 100}]   (* A194740 *)
Table[t[n], {n, 1, 100}]   (* A194741 *)

A194741 Number of k such that {-k*sqrt(3)} > {-n*sqrt(3)}, where { } = fractional part.

Original entry on oeis.org

0, 0, 0, 3, 2, 1, 0, 6, 4, 2, 0, 9, 6, 3, 14, 10, 6, 2, 16, 11, 6, 1, 18, 12, 6, 0, 20, 13, 6, 28, 20, 12, 4, 29, 20, 11, 2, 30, 20, 10, 0, 31, 20, 9, 42, 30, 18, 6, 42, 29, 16, 3, 42, 28, 14, 55, 40, 25, 10, 54, 38, 22, 6, 53, 36, 19, 2, 52, 34, 16, 68, 49, 30, 11, 66, 46
Offset: 1

Views

Author

Clark Kimberling, Sep 02 2011

Keywords

Crossrefs

Cf. A194740, A194738.

Programs

  • Mathematica
    Remove["Global`*"];
r = -Sqrt[3]; p[x_] := FractionalPart[x];
u[n_, k_] := If[p[k*r] <= p[n*r], 1, 0]
v[n_, k_] := If[p[k*r] > p[n*r], 1, 0]
s[n_] := Sum[u[n, k], {k, 1, n}]
t[n_] := Sum[v[n, k], {k, 1, n}]
Table[s[n], {n, 1, 100}]   (* A194740 *)
Table[t[n], {n, 1, 100}]   (* A194741 *)
Showing 1-10 of 33 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.