OFFSET
1,3
MATHEMATICA
(* get NextPalindrome from A029965 *) Select[NestList[NextPalindrome, 0, 70], Max@IntegerDigits@# < 8 &] (* Robert G. Wilson v, May 09 2006 *)
PROG
(Python)
def A118599(n):
if n == 1: return 0
y = (x:=1<<(m:=n.bit_length()-2)-m%3)<<3
return int((s:=oct(n-x)[2:])+s[-2::-1] if n<x+y else (s:=oct(n-y)[2:])+s[::-1]) # Chai Wah Wu, Jun 14 2024
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Martin Renner, May 08 2006
EXTENSIONS
More terms from Robert G. Wilson v, May 09 2006
STATUS
approved