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

1, 2, 3, 4, 5, 6, 7, 0, 21, 22, 23, 24, 25, 26, 27, 20, 31, 32, 33, 34, 35, 36, 37, 30, 41, 42, 43, 44, 45, 46, 47, 40, 51, 52, 53, 54, 55, 56, 57, 50, 61, 62, 63, 64, 65, 66, 67, 60, 71, 72, 73, 74, 75, 76, 77, 70, 1, 2, 3, 4

Offset

0,2

Comments

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

Links

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

Example

a(8) = 21 because 8 = "10" in base 8 becomes "21".
a(63) = 0 because 63 = "77" in base 8 becomes "00".

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A004183 A265522 A256298 * A031035 A054634 A346731

Adjacent sequences: A256305 A256306 A256307 * A256309 A256310 A256311

Keyword

nonn,base,easy

Author

M. F. Hasler, Mar 22 2015

Extensions

Examples corrected by Harvey P. Dale, Mar 29 2015

Status

approved