A256298 Apply the transformation 0 -> 1 -> 2 -> 3 -> 4 -> 5 -> 6 -> 7 -> 0 to the digits of n written in base 8, then convert back to base 10.

1, 2, 3, 4, 5, 6, 7, 0, 17, 18, 19, 20, 21, 22, 23, 16, 25, 26, 27, 28, 29, 30, 31, 24, 33, 34, 35, 36, 37, 38, 39, 32, 41, 42, 43, 44, 45, 46, 47, 40, 49, 50, 51, 52, 53, 54, 55, 48, 57, 58, 59, 60, 61, 62, 63, 56, 1, 2, 3, 4

Offset

0,2

Comments

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

Links

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Example

a(8) = 17 because 8 = 10[8] becomes 21[8] = 17.
a(63) = 0 because 63 = 77[8] becomes 00[8] = 0.

Mathematica

Table[FromDigits[IntegerDigits[n, 8]+1/.(8->0), 8], {n, 0, 60}] (* Harvey P. Dale, Jan 28 2023 *)

Prog

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

Crossrefs

Sequence in context: A265521 A004183 A265522 * A256308 A031035 A054634

Adjacent sequences: A256295 A256296 A256297 * A256299 A256300 A256301

Keyword

nonn,base,easy

Author

M. F. Hasler, Mar 22 2015

Status

approved