login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A368229
Irregular table of nonnegative integers T(n, k), n >= 0, k = 1..A001316(n), read by rows: the 1's in the binary expansion of n exactly match the nonzero digits in the ternary expansions of the terms in the n-th row.
4
0, 1, 2, 3, 6, 4, 5, 7, 8, 9, 18, 10, 11, 19, 20, 12, 15, 21, 24, 13, 14, 16, 17, 22, 23, 25, 26, 27, 54, 28, 29, 55, 56, 30, 33, 57, 60, 31, 32, 34, 35, 58, 59, 61, 62, 36, 45, 63, 72, 37, 38, 46, 47, 64, 65, 73, 74, 39, 42, 48, 51, 66, 69, 75, 78
OFFSET
0,3
COMMENTS
As a flat sequence, this is a permutation of the nonnegative integers (with inverse A368230).
FORMULA
T(n, 1) = A005836(n + 1).
T(n, A001316(n)) = A005823(n + 1).
A289831(T(n, k)) = n.
EXAMPLE
Table T(n, k) begins:
0;
1, 2;
3, 6;
4, 5, 7, 8;
9, 18;
10, 11, 19, 20;
12, 15, 21, 24;
13, 14, 16, 17, 22, 23, 25, 26;
27, 54;
28, 29, 55, 56;
30, 33, 57, 60;
31, 32, 34, 35, 58, 59, 61, 62;
36, 45, 63, 72;
37, 38, 46, 47, 64, 65, 73, 74;
39, 42, 48, 51, 66, 69, 75, 78;
40, 41, 43, 44, 49, 50, 52, 53, 67, 68, 70, 71, 76, 77, 79, 80;
81, 162;
...
PROG
(PARI) row(n) = { my (r = [0], b = binary(n)); for (k = 1, #b, r = [3*v+b[k]|v<-r]; if (b[k], r = concat(r, [v+1|v<-r]); ); ); Set(r); }
CROSSREFS
See A368225 for a similar sequence.
Sequence in context: A213625 A132368 A157248 * A085515 A082354 A130344
KEYWORD
nonn,tabf,base
AUTHOR
Rémy Sigrist, Dec 18 2023
STATUS
approved