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

A361832
For any number k >= 0, let T_k be the triangle whose base corresponds to the ternary expansion of k (without leading zeros) and other values, say t above u and v, satisfy t = (-u-v) mod 3; the ternary expansion of a(n) corresponds to the left border of T_n (the most significant digit being at the bottom left corner).
3
0, 1, 2, 5, 4, 3, 7, 6, 8, 16, 17, 15, 12, 13, 14, 11, 9, 10, 23, 21, 22, 19, 20, 18, 24, 25, 26, 50, 49, 48, 53, 52, 51, 47, 46, 45, 38, 37, 36, 41, 40, 39, 44, 43, 42, 35, 34, 33, 29, 28, 27, 32, 31, 30, 70, 69, 71, 64, 63, 65, 67, 66, 68, 58, 57, 59, 61, 60
OFFSET
0,3
COMMENTS
This sequence is a variant of A334727.
This sequence is a self-inverse permutation of the nonnegative integers that preserves the number of digits and the leading digit in base 3.
FORMULA
a(floor(n/3)) = floor(a(n)/3).
a(A004488(n)) = A004488(a(n)).
a(n) = n for any n in A048328.
a(n) = n iff b belongs to A361833.
EXAMPLE
For n = 42: the ternary expansion of 42 is "1120" and the corresponding triangle is as follows:
2
2 2
1 0 1
1 1 2 0
So the ternary expansion of a(42) is "1122", and a(42) = 44.
PROG
(PARI) a(n) = { my (d = digits(n, 3), t = vector(#d)); for (k = 1, #d, t[k] = d[1]; d = vector(#d-1, i, (-d[i]-d[i+1]) % 3); ); fromdigits(t, 3); }
CROSSREFS
Cf. A004488, A048328, A334727, A361818, A361833 (fixed points).
Sequence in context: A328626 A265357 A265358 * A361945 A171837 A216253
KEYWORD
nonn,base
AUTHOR
Rémy Sigrist, Mar 26 2023
STATUS
approved