A256293 Apply the transformation 0 -> 1 -> 2 -> 0 to the digits of n written in base 3, then convert back to base 10.

1, 2, 0, 7, 8, 6, 1, 2, 0, 22, 23, 21, 25, 26, 24, 19, 20, 18, 4, 5, 3, 7, 8, 6, 1, 2, 0, 67, 68, 66, 70, 71, 69, 64, 65, 63, 76, 77, 75, 79, 80, 78, 73, 74, 72, 58, 59, 57, 61, 62, 60, 55, 56, 54, 13, 14, 12, 16, 17, 15

Offset

0,2

Comments

Base 3 variant of A035327 (base 2) and A048379 (base 10).

See A256294 - A256299 for bases 4 through 9, and A256303 for the variant where the result is not converted back to base 10.

Links

Table of n, a(n) for n=0..59.

Example

a(3) = 7 because 3 = 10[3] becomes 21[3] = 7.
a(8) = 0 because 8 = 22[3] becomes 00[3] = 0.

Mathematica

Table[FromDigits[IntegerDigits[n, 3]/.{0->1, 1->2, 2->0}, 3], {n, 0, 100}] (* Harvey P. Dale, Jan 21 2019 *)

Prog

(PARI) A256293(n, b=3)=!n+apply(t->(t+1)%b, n=digits(n, b))*vector(#n, i, b^(#n-i))~

Crossrefs

Sequence in context: A352615 A160509 A243444 * A272002 A049006 A211113

Adjacent sequences: A256290 A256291 A256292 * A256294 A256295 A256296

Keyword

nonn,base,easy

Author

M. F. Hasler, Mar 22 2015

Status

approved