A256303 Apply the transformation 0 -> 1 -> 2 -> 0 to the digits of n written in base 3; do not convert back to base 10.

1, 2, 0, 21, 22, 20, 1, 2, 0, 211, 212, 210, 221, 222, 220, 201, 202, 200, 11, 12, 10, 21, 22, 20, 1, 2, 0, 2111, 2112, 2110, 2121, 2122, 2120, 2101, 2102, 2100, 2211, 2212, 2210, 2221, 2222, 2220, 2201, 2202, 2200, 2011, 2012, 2010, 2021, 2022, 2020, 2001

Offset

0,2

Comments

Base 3 variant of A256078 (base 2) and A048379 (base 10). See A256304 - A256308 for bases 4 through 8, A256289 for base 9, and A256293 for the variant where the result is converted back to base 10.

Links

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

Example

a(3) = 21 because 3 = "10" (in base 3) becomes "21".
a(8) = 0 because 8 = "22" (in base 3) becomes "00".

Mathematica

Table[FromDigits[IntegerDigits[n, 3]/.{0->1, 1->2, 2->0}], {n, 0, 60}] (* Harvey P. Dale, Jun 17 2022 *)

Prog

(PARI) A256303(n, b=3)=!n+eval(Strchr(apply(d->(d+1)%b+48, digits(n, b))))

Crossrefs

Sequence in context: A217311 A266167 A290465 * A156438 A282134 A293938

Adjacent sequences: A256300 A256301 A256302 * A256304 A256305 A256306

Keyword

nonn,base,easy

Author

M. F. Hasler, Mar 22 2015

Status

approved