A352090 -id:A352090 - cp's OEIS frontend

A352089 Tribonacci-Niven numbers: numbers that are divisible by the number of terms in their minimal (or greedy) representation in terms of the tribonacci numbers (A278038).

1, 2, 4, 6, 7, 8, 12, 13, 14, 18, 20, 21, 24, 26, 27, 28, 30, 33, 36, 39, 40, 44, 46, 48, 56, 60, 68, 69, 72, 75, 76, 80, 81, 82, 84, 87, 88, 90, 94, 96, 100, 108, 115, 116, 120, 126, 128, 129, 132, 135, 136, 138, 140, 149, 150, 156, 162, 168, 174, 176, 177, 180

Offset: 1

Amiram Eldar, Mar 04 2022

Numbers k such that A278043(k) | k.
The positive tribonacci numbers (A000073) are all terms.
If k = A000073(A042964(m)) is an odd tribonacci number, then k+1 is a term.
Ray (2005) and Ray and Cooper (2006) called these numbers "3-Zeckendorf Niven numbers" and proved that their asymptotic density is 0. - Amiram Eldar, Sep 06 2024

			6 is a term since its minimal tribonacci representation, A278038(6) = 110, has A278043(6) = 2 1's and 6 is divisible by 2.

Andrew B. Ray, On the natural density of the k-Zeckendorf Niven numbers, Ph.D. dissertation, Central Missouri State University, 2005.

Amiram Eldar, Table of n, a(n) for n = 1..10000
Andrew Ray and Curtis Cooper, On the natural density of the k-Zeckendorf Niven numbers, J. Inst. Math. Comput. Sci. Math., Vol. 19 (2006), pp. 83-98.

Cf. A000073, A042964, A278038, A278043.
Subsequences: A352090, A352091, A352092.
Similar sequences: A005349, A049445, A064150, A064438, A064481, A118363, A328208, A328212, A331085, A333426, A342726, A334308, A331728, A342426, A344341, A351714, A351719.

t[1] = 1; t[2] = 2; t[3] = 4; t[n_] := t[n] = t[n - 1] + t[n - 2] + t[n - 3]; q[n_] := Module[{s = {}, m = n, k}, While[m > 0, k = 1; While[t[k] <= m, k++]; k--; AppendTo[s, k]; m -= t[k]; k = 1]; Divisible[n, DigitCount[Total[2^(s - 1)], 2, 1]]]; Select[Range[180], q]

A352091 Starts of runs of 3 consecutive tribonacci-Niven numbers (A352089).

Original entry on oeis.org

6, 12, 26, 80, 184, 506, 664, 1602, 1603, 1704, 3409, 6034, 9830, 15723, 16744, 19088, 21230, 21664, 22834, 33544, 39424, 40662, 40730, 51190, 55744, 56224, 60710, 61264, 63734, 66014, 66055, 67144, 67248, 73024, 78064, 81150, 84790, 94086, 95094, 109087, 111880

Offset: 1

Amiram Eldar, Mar 04 2022

			6 is a term since 6, 7 and 8 are all tribonacci-Niven numbers: the minimal tribonacci representation of 6, A278038(6) = 110, has 2 1's and 6 is divisible by 2, the minimal tribonacci representation of 7, A278038(7) = 1000, has one 1 and 7 is divisible by 1, and the minimal tribonacci representation of 8, A278038(8) = 1001, has 2 1's and 8 is divisible by 2.

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A278038.
Subsequence of A352089 and A352090.
A352092 is a subsequence.
Similar sequences: A154701, A328206, A328210, A328214, A330932, A331087, A333428, A334310, A331822, A342428, A344343, A351716, A351721.

t[1] = 1; t[2] = 2; t[3] = 4; t[n_] := t[n] = t[n - 1] + t[n - 2] + t[n - 3]; triboNivenQ[n_] := Module[{s = {}, m = n, k}, While[m > 0, k = 1; While[t[k] <= m, k++]; k--; AppendTo[s, k]; m -= t[k]; k = 1]; Divisible[n, DigitCount[Total[2^(s - 1)], 2, 1]]]; seq[count_, nConsec_] := Module[{tri = triboNivenQ /@ Range[nConsec], s = {}, c = 0, k = nConsec + 1}, While[c < count, If[And @@ tri, c++; AppendTo[s, k - nConsec]]; tri = Join[Rest[tri], {triboNivenQ[k]}]; k++]; s]; seq[30, 3]

A352092 Starts of runs of 4 consecutive tribonacci-Niven numbers (A352089).

Original entry on oeis.org

1602, 218349, 296469, 1213749, 1291869, 1896630, 1952070, 2153709, 2399550, 3149109, 3753870, 3809310, 3983229, 4226208, 4256790, 4449288, 4711482, 5707897, 5727708, 6141750, 6589230, 6969429, 7205757, 7229208, 7276143, 7292943, 7454710, 7752588, 7937109, 8877069

Offset: 1

Amiram Eldar, Mar 04 2022

Conjecture: There are no runs of 5 consecutive tribonacci-Niven numbers (checked up to 10^10).

			1602 is a term since 1602, 1603, 1604 and 1605 are all divisible by the number of terms in their minimal tribonacci representation:
     k    A278038(k)  A278043(k)  k/A278043(k)
  --------------------------------------------
  1602  110100011010           6           267
  1603  110100011011           7           229
  1604  110100100000           4           401
  1605  110100100001           5           321

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A278038, A278043.
Subsequence of A352089, A352090 and A352091.
Similar sequences: A141769, A328211, A328207, A328215, A330933, A331824, A334311, A342429, A344344.

t[1] = 1; t[2] = 2; t[3] = 4; t[n_] := t[n] = t[n - 1] + t[n - 2] + t[n - 3]; triboNivenQ[n_] := Module[{s = {}, m = n, k}, While[m > 0, k = 1; While[t[k] <= m, k++]; k--; AppendTo[s, k]; m -= t[k]; k = 1]; Divisible[n, DigitCount[Total[2^(s - 1)], 2, 1]]]; seq[count_, nConsec_] := Module[{tri = triboNivenQ /@ Range[nConsec], s = {}, c = 0, k = nConsec + 1}, While[c < count, If[And @@ tri, c++; AppendTo[s, k - nConsec]]; tri = Join[Rest[tri], {triboNivenQ[k]}]; k++]; s]; seq[6, 4]

A352108 Numbers k such that k and k+1 are both lazy-tribonacci-Niven numbers (A352107).

Original entry on oeis.org

1, 20, 39, 75, 115, 135, 155, 175, 176, 184, 204, 215, 264, 567, 684, 704, 725, 791, 846, 872, 1089, 1104, 1115, 1134, 1183, 1184, 1211, 1224, 1407, 1575, 1840, 1880, 2064, 2075, 2151, 2191, 2232, 2259, 2260, 2415, 2529, 2583, 2624, 2780, 2820, 2848, 2888, 2988

Offset: 1

Amiram Eldar, Mar 05 2022

			20 is a term since 20 and 21 are both lazy-tribonacci-Niven numbers: the maximal tribonacci representation of 20, A352103(20) = 10111, has 4 1's and 20 is divisible by 4, and the maximal tribonacci representation of 21, A352103(20) = 11001, has 3 1's and 21 is divisible by 3.

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A352103, A352104.
Subsequence of A352107.
Subsequences: A352109, A352110.
Similar sequences: A330927, A328205, A328209, A328213, A330931, A331086, A333427, A334309, A331820, A342427, A344342, A351715, A351720, A352090.

t[1] = 1; t[2] = 2; t[3] = 4; t[n_] := t[n] = t[n - 1] + t[n - 2] + t[n - 3]; trib[n_] := Module[{s = {}, m = n, k}, While[m > 0, k = 1; While[t[k] <= m, k++]; k--; AppendTo[s, k]; m -= t[k]; k = 1]; IntegerDigits[Total[2^(s - 1)], 2]]; q[n_] := Module[{v = trib[n]}, nv = Length[v]; i = 1; While[i <= nv - 3, If[v[[i ;; i + 3]] == {1, 0, 0, 0}, v[[i ;; i + 3]] = {0, 1, 1, 1}; If[i > 3, i -= 4]]; i++]; i = Position[v, _?(# > 0 &)]; If[i == {}, False, Divisible[n, Total[v[[i[[1, 1]] ;; -1]]]]]]; Select[Range[3000], q[#] && q[# + 1] &]

A352321 Numbers k such that k and k+1 are both Pell-Niven numbers (A352320).

Original entry on oeis.org

1, 4, 5, 9, 14, 28, 29, 33, 39, 63, 87, 110, 111, 115, 125, 140, 164, 168, 169, 183, 255, 275, 308, 338, 410, 444, 483, 507, 564, 579, 584, 704, 791, 984, 985, 999, 1004, 1024, 1025, 1115, 1134, 1154, 1164, 1211, 1265, 1308, 1323, 1351, 1395, 1415, 1424, 1491

Offset: 1

Amiram Eldar, Mar 12 2022

All the odd-indexed Pell numbers (A001653) are terms.

			4 is a term since 4 and 5 are both Pell-Niven numbers: the minimal Pell representation of 4, A317204(20) = 20, has the sum of digits 2+0 = 2 and 4 is divisible by 2, and the minimal Pell representation of 5, A317204(5) = 100, has the sum of digits 1+0+0 = 1 and 5 is divisible by 1.

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A000129, A265744, A317204.
Subsequence of A352320.
Subsequences: A001653, A352322.
Similar sequences: A330927, A328205, A328209, A328213, A330931, A331086, A333427, A334309, A331820, A342427, A344342, A351715, A351720, A352090, A352108.

pell[1] = 1; pell[2] = 2; pell[n_] := pell[n] = 2*pell[n - 1] + pell[n - 2]; q[n_] := Module[{s = {}, m = n, k}, While[m > 0, k = 1; While[pell[k] <= m, k++]; k--; AppendTo[s, k]; m -= pell[k]; k = 1]; Divisible[n, Plus @@ IntegerDigits[ Total[3^(s - 1)], 3]]]; Select[Range[1500], q[#] && q[#+1] &]

A352343 Numbers k such that k and k+1 are both lazy-Pell-Niven numbers (A352342).

Original entry on oeis.org

1, 24, 63, 209, 216, 459, 560, 584, 656, 729, 999, 1110, 1269, 1728, 1859, 1989, 2100, 2196, 2197, 2255, 2650, 2651, 2820, 3443, 3497, 4080, 4563, 5291, 5784, 5785, 5837, 5928, 6252, 6383, 7344, 7657, 7812, 8150, 8203, 8459, 8670, 8749, 9251, 9295, 9372, 9464, 9840, 9884

Offset: 1

Amiram Eldar, Mar 12 2022

Numbers k such that A352340(k) | k and A352340(k+1) | k+1.

			24 is a term since 24 and 25 are both lazy-Pell-Niven numbers: the maximal Pell representation of 24, A352339(24) = 1210, has the sum of digits A352340(24) = 1+2+1+0 = 4 and 24 is divisible by 4, and the maximal Pell representation of 25, A352339(25) = 1211, has the sum of digits A352340(25) = 1+2+1+1 = 5 and 25 is divisible by 5.

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A352339, A352340.
Subsequence of A352342.
Subsequences: A352344, A352345.
Similar sequences: A330927, A328205, A328209, A328213, A330931, A331086, A333427, A334309, A331820, A342427, A344342, A351715, A351720, A352090, A352108, A352321.

pell[1] = 1; pell[2] = 2; pell[n_] := pell[n] = 2*pell[n - 1] + pell[n - 2]; pellp[n_] := Module[{s = {}, m = n, k}, While[m > 0, k = 1; While[pell[k] <= m, k++]; k--; AppendTo[s, k]; m -= pell[k]; k = 1]; IntegerDigits[Total[3^(s - 1)], 3]]; lazyPellNivenQ[n_] := Module[{v = pellp[n]}, nv = Length[v]; i = 1; While[i <= nv - 2, If[v[[i]] > 0 && v[[i + 1]] == 0 && v[[i + 2]] < 2, v[[i ;; i + 2]] += {-1, 2, 1}; If[i > 2, i -= 3]]; i++]; i = Position[v, _?(# > 0 &)]; Divisible[n, Plus @@ v[[i[[1, 1]] ;; -1]]]]; Select[Range[10^4], lazyPellNivenQ[#] && lazyPellNivenQ[#+1] &]

A352509 Numbers k such that k and k+1 are both Catalan-Niven numbers (A352508).

Original entry on oeis.org

1, 4, 5, 9, 32, 44, 55, 56, 134, 144, 145, 146, 155, 184, 234, 324, 329, 414, 426, 429, 434, 455, 511, 512, 603, 636, 930, 1004, 1014, 1160, 1183, 1215, 1287, 1308, 1448, 1472, 1505, 1562, 1595, 1808, 1854, 1967, 1985, 1995, 2051, 2075, 2096, 2135, 2165, 2255

Offset: 1

Amiram Eldar, Mar 19 2022

			4 is a term since 4 and 5 are both Catalan-Niven numbers: the Catalan representation of 4, A014418(20) = 20, has the sum of digits 2+0 = 2 and 4 is divisible by 2, and the Catalan representation of 5, A014418(5) = 100, has the sum of digits 1+0+0 = 1 and 5 is divisible by 1.

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A000108, A014418, A014420.
Subsequence of A352508.
Subsequences: A038003, A352510, A352511.
Similar sequences: A330927, A328205, A328209, A328213, A330931, A331086, A333427, A334309, A331820, A342427, A344342, A351715, A351720, A352090, A352108, A352321, A352343.

c[n_] := c[n] = CatalanNumber[n]; q[n_] := Module[{s = {}, m = n, i}, While[m > 0, i = 1; While[c[i] <= m, i++]; i--; m -= c[i]; AppendTo[s, i]]; Divisible[n, Plus @@ IntegerDigits[Total[4^(s - 1)], 4]]]; Select[Range[2300], q[#] && q[#+1] &]

A364217 Numbers k such that k and k+1 are both Jacobsthal-Niven numbers (A364216).

Original entry on oeis.org

1, 2, 3, 8, 11, 14, 15, 27, 32, 42, 43, 44, 45, 51, 56, 75, 86, 87, 92, 95, 99, 104, 125, 128, 135, 144, 155, 171, 176, 182, 183, 195, 204, 264, 267, 275, 287, 305, 344, 363, 375, 387, 428, 444, 455, 474, 497, 512, 524, 535, 544, 545, 552, 555, 581, 605, 623, 639

Offset: 1

Amiram Eldar, Jul 14 2023

A001045(2*n+1) = A007583(n) = (2^(2*n+1) + 1)/3 is a term for n >= 0, since its representation is 2*n 1's, so A364215(A001045(2*n+1)) = 1 divides A001045(2*n+1), and the representation of A001045(2*n+1) + 1 = (2^(2*n+1) + 4)/3 is max(2*n-1, 0) 0's between 2 1's, so A364215(A001045(2*n+1) + 1) = 2 which divides (2^(2*n+1) + 4)/3.

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A364215.
Subsequence of A364216.
Subsequences: A364218, A364219, A364220, A364221.
Similar sequences: A330927, A328205, A328209, A328213, A330931, A331086, A333427, A334309, A331820, A342427, A344342, A351715, A351720, A352090, A352108, A352321, A352343, A352509.

consecJacobsthalNiven[kmax_, len_] := Module[{m = 1, c = Table[False, {len}], s = {}}, Do[c = Join[Rest[c], {Divisible[k, DigitCount[m, 2, 1]]}]; While[m++; OddQ[IntegerExponent[m, 2]]]; If[And @@ c, AppendTo[s, k - len + 1]], {k, 1, kmax}]; s]; consecJacobsthalNiven[640, 2]

lista(kmax, len) = {my(m = 1, c = vector(len)); for(k = 1, kmax, c = concat(vecextract(c, "^1"), !(k % sumdigits(m, 2))); until(valuation(m, 2)%2 == 0, m++); if(vecsum(c) == len, print1(k-len+1, ", ")));}
lista(640, 2)

A364380 Numbers k such that k and k+1 are both greedy Jacobsthal-Niven numbers (A364379).

Original entry on oeis.org

1, 2, 3, 4, 5, 8, 9, 10, 11, 14, 15, 20, 21, 26, 27, 32, 42, 43, 44, 45, 51, 56, 68, 75, 84, 85, 86, 87, 92, 99, 104, 105, 111, 115, 116, 125, 128, 135, 144, 155, 170, 171, 176, 182, 183, 195, 204, 213, 219, 224, 260, 264, 267, 275, 304, 305, 324, 329, 341, 344

Offset: 1

Amiram Eldar, Jul 21 2023

The positive Jacobsthal numbers, A001045(n) for n >= 1, are terms since their representation in Jacobsthal greedy base is one 1 followed by n-1 0's, so A265745(A001045(n)) = 1 divides A001045(n), and the representation of A001045(n) + 1 is 2 if n <= 2 and otherwise n-3 0's between two 1's, so A265745(A001045(n) + 1) = 2 which divides A001045(n) + 1.

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A265745, A265747.
Subsequence of A364379.
Subsequences: A364381, A364382, A364383.
Similar sequences: A330927, A328205, A328209, A328213, A330931, A331086, A333427, A334309, A331820, A342427, A344342, A351715, A351720, A352090, A352108, A352321, A352343, A352509, A364217.

consecGreedyJN[kmax_, len_] := Module[{m = 1, c = Table[False, {len}], s = {}}, Do[c = Join[Rest[c], {greedyJacobNivenQ[k]}]; If[And @@ c, AppendTo[s, k - len + 1]], {k, 1, kmax}]; s]; consecGreedyJN[350, 2] (* using the function greedyJacobNivenQ[n] from A364379 *)

lista(kmax, len) = {my(c = vector(len)); for(k = 1, kmax, c = concat(vecextract(c, "^1"), isA364379(k)); if(vecsum(c) == len, print1(k-len+1, ", ")));} \\ using the function isA364379(n) from A364379
lista(350, 2)

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

Amiram Eldar, Jul 01 2023

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.

Amiram Eldar, Table of n, a(n) for n = 1..10000

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.

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 *)

cp's OEIS Frontend

A352089 Tribonacci-Niven numbers: numbers that are divisible by the number of terms in their minimal (or greedy) representation in terms of the tribonacci numbers (A278038).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica

A352091 Starts of runs of 3 consecutive tribonacci-Niven numbers (A352089).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A352092 Starts of runs of 4 consecutive tribonacci-Niven numbers (A352089).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A352108 Numbers k such that k and k+1 are both lazy-tribonacci-Niven numbers (A352107).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A352321 Numbers k such that k and k+1 are both Pell-Niven numbers (A352320).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A352343 Numbers k such that k and k+1 are both lazy-Pell-Niven numbers (A352342).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A352509 Numbers k such that k and k+1 are both Catalan-Niven numbers (A352508).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A364217 Numbers k such that k and k+1 are both Jacobsthal-Niven numbers (A364216).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

A364380 Numbers k such that k and k+1 are both greedy Jacobsthal-Niven numbers (A364379).