A352104 -id:A352104 - cp's OEIS frontend

A357121 Irregular triangle T(n, k), n > 0, k = 1..A352104(n); the n-th row contains, in ascending order, the terms in the lazy tribonacci representation of n.

1, 2, 1, 2, 4, 1, 4, 2, 4, 1, 2, 4, 1, 7, 2, 7, 1, 2, 7, 4, 7, 1, 4, 7, 2, 4, 7, 1, 2, 4, 7, 2, 13, 1, 2, 13, 4, 13, 1, 4, 13, 2, 4, 13, 1, 2, 4, 13, 1, 7, 13, 2, 7, 13, 1, 2, 7, 13, 4, 7, 13, 1, 4, 7, 13, 2, 4, 7, 13, 1, 2, 4, 7, 13, 4, 24, 1, 4, 24, 2, 4, 24

Offset: 1

Rémy Sigrist, Sep 12 2022

See A357120 for the sequence corresponding to greedy tribonacci representations.

			Triangle T(n, k) begins:
     1: [1]
     2: [2]
     3: [1, 2]
     4: [4]
     5: [1, 4]
     6: [2, 4]
     7: [1, 2, 4]
     8: [1, 7]
     9: [2, 7]
    10: [1, 2, 7]
    11: [4, 7]
    12: [1, 4, 7]
    13: [2, 4, 7]
    14: [1, 2, 4, 7]
    15: [2, 13]

Rémy Sigrist, PARI program
Index entries for sequences related to Zeckendorf expansion of n

Cf. A000073, A080843, A112309, A352103, A352104, A357120.

PARI
```
See Links section.
```

T(n, 1) = 2^A080843(n-1).

A352107 Lazy-tribonacci-Niven numbers: numbers that are divisible by the number of terms in their maximal (or lazy) representation in terms of the tribonacci numbers (A352103).

Original entry on oeis.org

1, 2, 4, 6, 8, 12, 18, 20, 21, 24, 28, 30, 33, 36, 39, 40, 48, 50, 56, 60, 68, 70, 72, 75, 76, 80, 90, 96, 100, 108, 115, 116, 120, 135, 136, 140, 150, 155, 156, 160, 162, 168, 175, 176, 177, 180, 184, 185, 188, 195, 198, 204, 205, 208, 215, 216, 225, 231, 260

Offset: 1

Amiram Eldar, Mar 05 2022

Numbers k such that A352104(k) | k.

			6 is a term since its maximal tribonacci representation, A352103(6) = 110, has A352104(6) = 2 1's and 6 is divisible by 2.

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

Cf. A352103, A352104.
Subsequences: A352108, A352109, A352110.
Similar sequences: A005349, A049445, A064150, A064438, A064481, A118363, A328208, A328212, A331085, A333426, A342726, A334308, A331728, A342426, A344341, A351714, A351719, A352089.

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[300], q]

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] &]

A352109 Starts of runs of 3 consecutive lazy-tribonacci-Niven numbers (A352107).

Original entry on oeis.org

175, 1183, 2259, 5290, 12969, 21130, 51820, 70629, 78090, 79540, 81818, 129648, 160224, 169234, 180908, 228240, 238574, 249494, 278628, 332891, 376335, 383866, 398650, 399644, 454090, 550380, 565200, 683448, 683604, 694274, 728895, 754390, 782110, 809830, 837550

Offset: 1

Amiram Eldar, Mar 05 2022

			175 is a term since 175, 176 and 177 are all divisible by the number of terms in their maximal tribonacci representation:
    k  A352103(k)  A352104(k)  k/A352104(k)
  ---  ----------  ----------  ------------
  175    11111110           7            25
  176    11111111           8            22
  177   100100100           3            59

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

Cf. A352103, A352104.
Subsequence of A352107 and A352108.
A352110 is a subsequence.
Similar sequences: A154701, A328206, A328210, A328214, A330932, A331087, A333428, A334310, A331822, A342428, A344343, A351716, A351721, A352091.

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]]; lazyTriboNivenQ[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]]]]]]; seq[count, nConsec_] := Module[{tri = lazyTriboNivenQ /@ Range[nConsec], s = {}, c = 0, k = nConsec + 1}, While[c < count, If[And @@ tri, c++; AppendTo[s, k - nConsec]]; tri = Join[Rest[tri], {lazyTriboNivenQ[k]}]; k++]; s]; seq[30, 3]

A352110 Starts of runs of 4 consecutive lazy-tribonacci-Niven numbers (A352107).

Original entry on oeis.org

1081455, 1976895, 2894175, 5886255, 6906912, 15604110, 16588752, 19291479, 20387232, 25919439, 32394942, 34801557, 35654175, 36813582, 36907899, 39117219, 41407392, 43520832, 46181055, 47954499, 52145952, 54524319, 54815397, 56733639, 57775102, 58942959, 59292177

Offset: 1

Amiram Eldar, Mar 05 2022

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

			1081455 is a term since 1081455, 1081456, 1081457 and 1081458 are all divisible by the number of terms in their maximal tribonacci representation:
        k               A352103(k)   A352104(k)    k/A352104(k)
  -------  -----------------------   ----------    ------------
  1081455  10101011011110110011110           15           72097
  1081456  10101011011110110011111           16           67591
  1081457  10101011011110110100100           13           83189
  1081458  10101011011110110100101           14           77247

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

Cf. A352103, A352104.
Subsequence of A352107, A352108 and A352109.
Similar sequences: A141769, A328211, A328207, A328215, A330933, A331824, A334311, A342429, A344344, A352092.

A352340 a(n) is the sum of digits of n in the maximal Pell representation of n (A352339).

Original entry on oeis.org

0, 1, 1, 2, 2, 3, 4, 2, 3, 3, 4, 5, 3, 4, 4, 5, 3, 4, 5, 3, 4, 4, 5, 6, 4, 5, 5, 6, 4, 5, 6, 4, 5, 5, 6, 7, 5, 6, 6, 7, 8, 4, 5, 5, 6, 4, 5, 6, 4, 5, 5, 6, 7, 5, 6, 6, 7, 5, 6, 7, 5, 6, 6, 7, 8, 6, 7, 7, 8, 9, 5, 6, 6, 7, 5, 6, 7, 5, 6, 6, 7, 8, 6, 7, 7, 8, 6

Offset: 0

Amiram Eldar, Mar 12 2022

Amiram Eldar, Table of n, a(n) for n = 0..10000
A. F. Horadam, Maximal representations of positive integers by Pell numbers, The Fibonacci Quarterly, Vol. 32, No. 3 (1994), pp. 240-244.

Cf. A000129, A007953, A352339.

Similar sequences: A053735, A007895, A112310, A265744, A278043, A352104.

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]]; a[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 &)]; If[i == {}, 0, Total[v[[i[[1, 1]] ;; -1]]]]]; Array[a, 100, 0]

a(n) = A007953(A352339(n)).

a(n) >= A265744(n).

A356895 a(n) is the length of the maximal tribonacci representation of n (A352103).

Original entry on oeis.org

1, 1, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7

Offset: 0

Amiram Eldar, Sep 03 2022

			  n  a(n)  A352103(n)
  -  ----  ----------
  0     1           0
  1     1           1
  2     2          10
  3     2          11
  4     3         100
  5     3         101
  6     3         110
  7     3         111
  8     4        1001
  9     4        1010

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

Cf. A352103, A352104, A356894.

Similar sequences: A070939, A072649, A095791, A278044.

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]]; a[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 == {}, 1, Length[v[[i[[1, 1]] ;; -1]]]]]; Array[a, 100, 0]

a(n) = A352104(n) + A356894(n).

a(n) ~ log(n)/log(c), where c is the tribonacci constant (A058265).

A356894 a(n) is the number of 0's in the maximal tribonacci representation of n (A352103).

Original entry on oeis.org

1, 0, 1, 0, 2, 1, 1, 0, 2, 2, 1, 2, 1, 1, 0, 3, 2, 3, 2, 2, 1, 2, 2, 1, 2, 1, 1, 0, 4, 3, 3, 2, 3, 3, 2, 3, 2, 2, 1, 3, 2, 3, 2, 2, 1, 2, 2, 1, 2, 1, 1, 0, 4, 4, 3, 4, 3, 3, 2, 4, 3, 4, 3, 3, 2, 3, 3, 2, 3, 2, 2, 1, 4, 3, 3, 2, 3, 3, 2, 3, 2, 2, 1, 3, 2, 3, 2

Offset: 0

Amiram Eldar, Sep 03 2022

			  n  a(n)  A352103(n)
  -  ----  ----------
  0     1           0
  1     0           1
  2     1          10
  3     0          11
  4     2         100
  5     1         101
  6     1         110
  7     0         111
  8     2        1001
  9     2        1010

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

Cf. A000073, A352103, A352104, A356895.

Similar sequences: A023416, A102364, A117479, A278042.

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]]; a[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 == {}, 1, Count[v[[i[[1, 1]] ;; -1]], 0]]]; Array[a, 100, 0]

a(n) = A356895(n) - A352104(n).

cp's OEIS Frontend

A357121 Irregular triangle T(n, k), n > 0, k = 1..A352104(n); the n-th row contains, in ascending order, the terms in the lazy tribonacci representation of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

PARI

Formula

A352107 Lazy-tribonacci-Niven numbers: numbers that are divisible by the number of terms in their maximal (or lazy) representation in terms of the tribonacci numbers (A352103).

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

A352109 Starts of runs of 3 consecutive lazy-tribonacci-Niven numbers (A352107).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A352110 Starts of runs of 4 consecutive lazy-tribonacci-Niven numbers (A352107).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

A352340 a(n) is the sum of digits of n in the maximal Pell representation of n (A352339).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A356895 a(n) is the length of the maximal tribonacci representation of n (A352103).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A356894 a(n) is the number of 0's in the maximal tribonacci representation of n (A352103).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula