|
%I #12 Mar 12 2022 12:11:29
%S 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,
%T 60,68,69,72,75,76,80,81,82,84,87,88,90,94,96,100,108,115,116,120,126,
%U 128,129,132,135,136,138,140,149,150,156,162,168,174,176,177,180
%N 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).
%C Numbers k such that A278043(k) | k.
%C The positive tribonacci numbers (A000073) are all terms.
%C If k = A000073(A042964(m)) is an odd tribonacci number, then k+1 is a term.
%H Amiram Eldar, <a href="/A352089/b352089.txt">Table of n, a(n) for n = 1..10000</a>
%e 6 is a term since its minimal tribonacci representation, A278038(6) = 110, has A278043(6) = 2 1's and 6 is divisible by 2.
%t 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]
%Y Cf. A000073, A042964, A278038, A278043.
%Y Subsequences: A352090, A352091, A352092.
%Y Similar sequences: A005349, A049445, A064150, A064438, A064481, A118363, A328208, A328212, A331085, A333426, A342726, A334308, A331728, A342426, A344341, A351714, A351719.
%K nonn,base
%O 1,2
%A _Amiram Eldar_, Mar 04 2022
|
