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

A364006 Wythoff-Niven numbers: numbers that are divisible by the number of 1's in their Wythoff representation.

Original entry on oeis.org

1, 3, 4, 6, 7, 8, 10, 12, 15, 18, 20, 21, 24, 26, 28, 32, 35, 39, 40, 42, 45, 47, 51, 52, 54, 55, 56, 60, 68, 72, 76, 80, 84, 86, 88, 90, 91, 98, 100, 102, 105, 117, 120, 123, 125, 135, 136, 138, 141, 143, 144, 156, 164, 168, 172, 174, 176, 178, 180, 188, 192
Offset: 1

Views

Author

Amiram Eldar, Jul 01 2023

Keywords

Comments

Numbers k such that A135818(k) | k.
Includes all the positive even-indexed Fibonacci numbers (A001906), since the Wythoff representation of Fibonacci(2*n), for n >= 1, is 1 followed by n-1 0's.

Links

Crossrefs

Cf. A135818, A189921.
Subsequences: A364007, A364008, A364009.
Similar sequences: A005349, A049445, A064150, A064438, A064481, A118363, A328208, A328212, A331085, A333426, A342726, A334308, A331728, A342426, A344341, A351714, A351719, A352089, A352107, A352320, A352508.

Programs

  • Mathematica
    wnQ[n_] := (s = Total[w[n]]) > 0 && Divisible[n, s] (* using the function w[n] from A364005 *)

A364007 Numbers k such that k and k+1 are both Wythoff-Niven numbers (A364006).

Original entry on oeis.org

3, 6, 7, 20, 39, 51, 54, 55, 90, 135, 143, 294, 305, 321, 356, 365, 369, 374, 375, 376, 784, 800, 924, 978, 979, 980, 986, 1904, 1945, 1970, 2043, 2199, 2232, 2289, 2394, 2424, 2439, 2499, 2525, 2562, 2580, 2583, 4185, 4598, 4707, 4774, 4790, 4796, 4879, 5004
Offset: 1

Views

Author

Amiram Eldar, Jul 01 2023

Keywords

Comments

A035508(n) = Fibonacci(2*n+2) - 1 is a term for n >= 2 since A135818(Fibonacci(2*n+2) - 1) = A135818(Fibonacci(2*n+2)) = 1.

Links

Crossrefs

Cf. A035508, A135818.
Subsequence of A364006.
Subsequences: A364008, A364009.
Similar sequences: A330927, A328205, A328209, A328213, A330931, A331086, A333427, A334309, A331820, A342427, A344342, A351715, A351720, A352090, A352108, A352321, A352509.

Programs

  • Mathematica
    seq[count_, nConsec_] := Module[{cn = wnQ /@ Range[nConsec], s = {}, c = 0, k = nConsec + 1}, While[c < count, If[And @@ cn, c++; AppendTo[s, k - nConsec]]; cn = Join[Rest[cn], {wnQ[k]}]; k++]; s]; seq[50, 2] (* using the function wnQ[n] from A364006 *)

A364009 Starts of runs of 4 consecutive integers that are Wythoff-Niven numbers (A364006).

Original entry on oeis.org

374, 978, 17708, 832037, 1631097, 4821894, 5572377, 13376142, 14808759, 14930343, 35406720, 36534357, 38208519, 38748444, 38890509, 39088166, 65375232, 70046899, 79988116, 81224637, 82071105, 82898100, 94109430, 94875417, 95070492, 98014500, 100350522, 101651787, 102190437
Offset: 1

Views

Author

Amiram Eldar, Jul 01 2023

Keywords

Comments

Are there runs of 5 or more consecutive integers that are Wythoff-Niven numbers?

Crossrefs

Subsequence of A364006, A364007 and A364008.
Similar sequences: A141769, A328211, A328207, A328215, A330933, A331824, A334311, A342429, A344344, A352092, A352110, A352345, A352511.

Programs

  • Mathematica
    seq[3, 4] (* generates the first 3 terms using the function seq[count, nConsec] from A364007 *)
Showing 1-3 of 3 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.