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

Author

M. F. Hasler, Mar 22 2015

Keywords

• nonn
• base
• easy

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.

Examples

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

Programs

Mathematica

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

PARI

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