A256307 Apply the transformation 0 -> 1 -> 2 -> 3 -> 4 -> 5 -> 6 -> 0 to the digits of n written in base 7; do not convert back to base 10.

1, 2, 3, 4, 5, 6, 0, 21, 22, 23, 24, 25, 26, 20, 31, 32, 33, 34, 35, 36, 30, 41, 42, 43, 44, 45, 46, 40, 51, 52, 53, 54, 55, 56, 50, 61, 62, 63, 64, 65, 66, 60, 1, 2, 3, 4, 5, 6, 0, 211, 212, 213, 214, 215, 216, 210, 221, 222, 223, 224

Offset

0,2

Comments

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

Links

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

Example

a(7) = 21 because 7 = "10" (in base 7) becomes "21".
a(48) = 0 because 48 = "66" (in base 7) becomes "00".

Mathematica

Table[FromDigits[IntegerDigits[n, 7]/.{0->1, 1->2, 2->3, 3->4, 4->5, 5->6, 6->0}], {n, 0, 60}] (* Harvey P. Dale, Oct 09 2023 *)

Prog

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

Crossrefs

Sequence in context: A004182 A265520 A256297 * A030998 A346691 A255827

Adjacent sequences: A256304 A256305 A256306 * A256308 A256309 A256310

Keyword

nonn,base,easy

Author

M. F. Hasler, Mar 22 2015

Status

approved