|
|
A352087
|
|
Numbers whose minimal (or greedy) tribonacci representation (A278038) is palindromic.
|
|
11
|
|
|
0, 1, 3, 5, 8, 14, 18, 23, 25, 36, 40, 45, 52, 62, 71, 78, 82, 102, 110, 128, 148, 150, 163, 181, 198, 211, 229, 233, 246, 264, 275, 312, 326, 360, 397, 411, 426, 463, 477, 505, 529, 562, 593, 617, 650, 658, 682, 715, 746, 770, 781, 805, 838, 869, 893, 926, 928
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
A000073(n) + 1 is a term for n>=4, since its minimal tribonacci representation is 10...01 with n-4 0's between the two 1's.
|
|
LINKS
|
|
|
EXAMPLE
|
The first 10 terms are:
-----------------------
1 0 0
2 1 1
3 3 11
4 5 101
5 8 1001
6 14 10001
7 18 10101
8 23 11011
9 25 100001
10 36 101101
|
|
MATHEMATICA
|
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]; PalindromeQ[FromDigits @ IntegerDigits[Total[2^(s - 1)], 2]]]; Select[Range[0, 1000], q]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|