OFFSET
0,2
COMMENTS
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
KEYWORD
nonn,base,easy
AUTHOR
M. F. Hasler, Mar 22 2015
STATUS
approved