A064150 -id:A064150 - cp's OEIS frontend

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

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]

A352320 Pell-Niven numbers: numbers that are divisible by the sum of the digits in their minimal (or greedy) representation in terms of the Pell numbers (A317204).

Original entry on oeis.org

1, 2, 4, 5, 6, 9, 10, 12, 14, 15, 18, 20, 24, 28, 29, 30, 33, 34, 36, 39, 40, 42, 44, 48, 50, 58, 60, 63, 64, 68, 70, 72, 82, 84, 87, 88, 90, 92, 96, 110, 111, 112, 115, 116, 120, 125, 126, 135, 140, 141, 144, 155, 164, 165, 168, 169, 170, 174, 180, 183, 184, 186

Offset: 1

Amiram Eldar, Mar 12 2022

Numbers k such that A265744(k) | k.

All the positive Pell numbers (A000129) are terms.

			6 is a term since its minimal Pell representation, A317204(6) = 101, has A265744(6) = 2 1's and 6 is divisible by 2.

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

Cf. A000129, A265744, A317204.
Subsequences: A352321, A352322.
Similar sequences: A005349, A049445, A064150, A064438, A064481, A118363, A328208, A328212, A331085, A333426, A342726, A334308, A331728, A342426, A344341, A351714, A351719, A352089, A352107.

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

A352342 Lazy-Pell-Niven numbers: numbers that are divisible by the sum of the digits in their maximal (or lazy) representation in terms of the Pell numbers (A352339).

Original entry on oeis.org

1, 2, 4, 9, 12, 15, 20, 24, 25, 28, 30, 35, 40, 48, 50, 54, 56, 60, 63, 64, 70, 72, 78, 84, 88, 91, 96, 102, 115, 120, 136, 144, 160, 162, 168, 180, 182, 184, 189, 207, 209, 210, 216, 217, 234, 246, 256, 261, 270, 304, 306, 308, 315, 320, 328, 333, 350, 352, 357

Offset: 1

Amiram Eldar, Mar 12 2022

Numbers k such that A352340(k) | k.

			4 is a term since its maximal Pell representation, A352339(4) = 11, has the sum of digits A352340(4) = 1+1 = 2 and 4 is divisible by 2.

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

Cf. A352339, A352340.
Subsequences: A352343, A352344, A352345.
Similar sequences: A005349, A049445, A064150, A064438, A064481, A118363, A328208, A328212, A331085, A333426, A342726, A334308, A331728, A342426, A344341, A351714, A351719, A352089, A352107, A352320.

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

A352508 Catalan-Niven numbers: numbers that are divisible by the sum of the digits in their representation in terms of the Catalan numbers (A014418).

Original entry on oeis.org

1, 2, 4, 5, 6, 9, 10, 12, 14, 16, 18, 21, 24, 28, 30, 32, 33, 40, 42, 44, 45, 48, 55, 56, 57, 60, 65, 72, 78, 80, 84, 88, 95, 100, 105, 112, 126, 128, 130, 132, 134, 135, 138, 140, 144, 145, 146, 147, 152, 155, 156, 168, 170, 174, 180, 184, 185, 195, 210, 216

Offset: 1

Amiram Eldar, Mar 19 2022

Numbers k such that A014420(k) | k.
All the Catalan numbers (A000108) are terms.
If k is an odd Catalan number (A038003), then k+1 is a term.

			4 is a term since its Catalan representation, A014418(4) = 20, has the sum of digits A014420(4) = 2 + 0 = 2 and 4 is divisible by 2.
9 is a term since its Catalan representation, A014418(9) = 120, has the sum of digits A014420(9) = 1 + 2 + 0 = 3 and 9 is divisible by 3.

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

Cf. A014418, A014420.
Subsequences: A000108, A038003, A352509, A352510, A352511.
Similar sequences: A005349, A049445, A064150, A064438, A064481, A118363, A328208, A328212, A331085, A333426, A342726, A334308, A331728, A342426, A344341, A351714, A351719, A352089, A352107, A352320, A352342.

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

A364216 Jacobsthal-Niven numbers: numbers that are divisible by the sum of the digits in their Jacobsthal representation (A280049).

Original entry on oeis.org

1, 2, 3, 4, 6, 8, 9, 11, 12, 14, 15, 16, 20, 22, 24, 27, 28, 32, 33, 36, 40, 42, 43, 44, 45, 46, 48, 51, 52, 54, 56, 57, 60, 68, 72, 75, 76, 84, 86, 87, 88, 92, 93, 95, 96, 99, 100, 104, 105, 108, 112, 115, 117, 120, 125, 126, 128, 129, 132, 135, 136, 138, 140

Offset: 1

Amiram Eldar, Jul 14 2023

Numbers k such that A364215(k) | k.

A007583 is a subsequence since A364215(A007583(n)) = 1 for n >= 0.

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

Cf. A280049, A364215.
Subsequences: A007583, A364217, A364218, A364219, A364220, A364221.
Similar sequences: A005349, A049445, A064150, A064438, A064481, A118363, A328208, A328212, A331085, A333426, A342726, A334308, A331728, A342426, A344341, A351714, A351719, A352089, A352107, A352320, A352342, A352508.

seq[kmax_] := Module[{m = 1, s = {}}, Do[If[Divisible[k, DigitCount[m, 2, 1]], AppendTo[s, k]]; While[m++; OddQ[IntegerExponent[m, 2]]], {k, 1, kmax}]; s]; seq[140]

lista(kmax) = {my(m = 1); for(k = 1, kmax, if( !(k % sumdigits(m, 2)), print1(k,", ")); until(valuation(m, 2)%2 == 0, m++));}

A364379 Greedy Jacobsthal-Niven numbers: numbers that are divisible by the sum of the digits in their representation in Jacobsthal greedy base (A265747).

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 8, 9, 10, 11, 12, 14, 15, 16, 20, 21, 22, 24, 26, 27, 28, 32, 33, 36, 40, 42, 43, 44, 45, 46, 48, 51, 52, 54, 56, 57, 60, 64, 68, 69, 72, 75, 76, 80, 84, 85, 86, 87, 88, 90, 92, 93, 96, 99, 100, 104, 105, 106, 108, 111, 112, 115, 116, 117, 120

Offset: 1

Amiram Eldar, Jul 21 2023

Numbers k such that A265745(k) | k.

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

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

Cf. A265745, A265747.
Subsequences: A364380, A364381, A364382, A364383.
Similar sequences: A005349, A049445, A064150, A064438, A064481, A118363, A328208, A328212, A331085, A333426, A342726, A334308, A331728, A342426, A344341, A351714, A351719, A352089, A352107, A352320, A352342, A352508, A364216.

greedyJacobNivenQ[n_] := Divisible[n, A265745[n]]; Select[Range[120], greedyJacobNivenQ] (* using A265745[n] *)

isA364379(n) = !(n % A265745(n)); \\ using A265745(n)

A381581 Numbers divisible by the sum of the digits in their Chung-Graham representation (A381579).

Original entry on oeis.org

1, 2, 3, 4, 6, 8, 12, 16, 20, 21, 22, 24, 27, 28, 30, 40, 42, 44, 45, 48, 55, 56, 57, 58, 60, 66, 70, 72, 75, 76, 80, 84, 90, 92, 95, 96, 100, 102, 110, 111, 112, 115, 116, 120, 132, 135, 138, 140, 144, 150, 152, 153, 156, 168, 170, 175, 176, 180, 186, 190, 195, 198

Offset: 1

Amiram Eldar, Feb 28 2025

Numbers k such that A291711(k) divides k.
Analogous to Niven numbers (A005349) with the Chung-Graham representation (A381579) instead of the decimal representation.
A001906(k) = Fibonacci(2*k) is a term for all k >= 1.
If k is not divisible by 3 (A001651), then Fibonacci(2*k) + 1 is a term.

			4 is a term since A291711(4) = 1 divides 4.
6 is a term since A291711(6) = 2 divides 6.

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

Cf. A000045, A001651, A001906, A291711.
Subsequences: A381582, A381583, A381584, A381585.
Similar sequences: A005349, A049445, A064150, A328208, A328212.

f[n_] := f[n] = Fibonacci[2*n]; q[n_] := Module[{s = 0, m = n, k}, While[m > 0, k = 1; While[m > f[k], k++]; If[m < f[k], k--]; If[m >= 2*f[k], s += 2; m -= 2*f[k], s++; m -= f[k]]]; Divisible[n, s]]; Select[Range[200], q]

mx = 20; fvec = vector(mx, i, fibonacci(2*i)); f(n) = if(n <= mx, fvec[n], fibonacci(2*n));
isok(n) = {my(s = 0, m = n, k); while(m > 0, k = 1; while(m > f(k), k++); if(m < f(k), k--); if(m >= 2*f(k), s += 2; m -= 2*f(k), s++; m -= f(k))); !(n % s);}

A358975 Numbers that are coprime to their digital sum in base 3 (A053735).

Original entry on oeis.org

1, 3, 5, 7, 9, 11, 13, 17, 19, 23, 27, 29, 31, 37, 41, 43, 47, 49, 51, 53, 55, 59, 61, 67, 69, 71, 73, 79, 81, 83, 85, 89, 91, 97, 101, 103, 107, 109, 113, 119, 121, 123, 125, 127, 129, 131, 137, 139, 141, 143, 147, 149, 151, 153, 155, 157, 159, 161, 163, 167, 169

Offset: 1

Amiram Eldar, Dec 07 2022

Numbers k such that gcd(k, A053735(k)) = 1.
All the terms are odd since if k is even then A053735(k) is even and so gcd(k, A053735(k)) >= 2.
Olivier (1975, 1976) proved that the asymptotic density of this sequence is 4/Pi^2 = 0.40528... (A185199).
The powers of 3 (A000244) are terms. These are also the only ternary Niven numbers (A064150) in this sequence.
Includes all the odd prime numbers (A065091).

			3 is a term since A053735(3) = 1, and gcd(3, 1) = 1.

Amiram Eldar, Table of n, a(n) for n = 1..10000
Christian Mauduit, Carl Pomerance, and András Sárközy, On the distribution in residue classes of integers with a fixed sum of digits, The Ramanujan Journal, Vol. 9, No. 1-2 (2005), pp. 45-62; alternative link.
Michel Olivier, Sur la probabilité que n soit premier à la somme de ses chiffres, C. R. Math. Acad. Sci. Paris, Série A, Vol. 280 (1975), pp. 543-545.
Michel Olivier, Fonctions g-additives et formule asymptotique pour la propriété (n, f(n)) = q, Acta Arithmetica, Vol. 31, No. 4 (1976), pp. 361-384; alternative link.

Cf. A064150, A053735, A185199, A332880.
Subsequences: A000244, A065091.
Similar sequences: A094387, A339076, A358976, A358977, A358978.

q[n_] := CoprimeQ[n, Plus @@ IntegerDigits[n, 3]]; Select[Range[200], q]

PARI
```
is(n) = gcd(n, sumdigits(n, 3)) == 1;
```

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

Amiram Eldar, Jul 01 2023

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.

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

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.

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

A364123 Stolarsky-Niven numbers: numbers that are divisible by the number of 1's in their Stolarsky representation (A364121).

Original entry on oeis.org

2, 4, 6, 8, 9, 12, 14, 16, 20, 22, 24, 27, 30, 36, 38, 40, 42, 44, 48, 54, 56, 57, 60, 65, 69, 72, 75, 80, 84, 85, 90, 92, 96, 98, 100, 102, 104, 108, 112, 116, 120, 124, 126, 132, 136, 138, 145, 147, 150, 153, 155, 159, 160, 175, 180, 185, 190, 195, 196, 205

Offset: 1

Amiram Eldar, Jul 07 2023

Numbers k such that A200649(k) | k.

Fibonacci(k) + 1 is a term if k !== 3 (mod 6) (i.e., k is in A047263).

			4 is a term since its Stolarsky representation, A364121(4) = 10, has one 1 and 4 is divisible by 1.
6 is a term since its Stolarsky representation, A364121(6) = 101, has 2 1's and 6 is divisible by 2.

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

Cf. A047263, A200649, A364121.
Subsequences: A364124, A364125, A364126.
Similar sequences: A005349, A049445, A064150, A064438, A064481, A118363, A328208, A328212, A331085, A333426, A342726, A334308, A331728, A342426, A344341, A351714, A351719, A352089, A352107, A352320, A352342, A352508.

stol[n_] := stol[n] = If[n == 1, {}, If[n != Round[Round[n/GoldenRatio]*GoldenRatio], Join[stol[Floor[n/GoldenRatio^2] + 1], {0}], Join[stol[Round[n/GoldenRatio]], {1}]]];
stolNivQ[n_] := n > 1 && Divisible[n, Total[stol[n]]];
Select[Range[200], stolNivQ]

stol(n) = {my(phi=quadgen(5)); if(n==1, [], if(n != round(round(n/phi)*phi), concat(stol(floor(n/phi^2) + 1), [0]), concat(stol(round(n/phi)), [1])));}
isA364123(n) = n > 1 && !(n % vecsum(stol(n)));

cp's OEIS Frontend

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

A352320 Pell-Niven numbers: numbers that are divisible by the sum of the digits in their minimal (or greedy) representation in terms of the Pell numbers (A317204).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A352342 Lazy-Pell-Niven numbers: numbers that are divisible by the sum of the digits in their maximal (or lazy) representation in terms of the Pell numbers (A352339).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A352508 Catalan-Niven numbers: numbers that are divisible by the sum of the digits in their representation in terms of the Catalan numbers (A014418).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A364216 Jacobsthal-Niven numbers: numbers that are divisible by the sum of the digits in their Jacobsthal representation (A280049).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

A364379 Greedy Jacobsthal-Niven numbers: numbers that are divisible by the sum of the digits in their representation in Jacobsthal greedy base (A265747).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

A381581 Numbers divisible by the sum of the digits in their Chung-Graham representation (A381579).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A358975 Numbers that are coprime to their digital sum in base 3 (A053735).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs