(Translated by https://www.hiragana.jp/)
# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a118599 Showing 1-1 of 1 %I A118599 #12 Jun 15 2024 09:26:09 %S A118599 0,1,2,3,4,5,6,7,11,22,33,44,55,66,77,101,111,121,131,141,151,161,171, %T A118599 202,212,222,232,242,252,262,272,303,313,323,333,343,353,363,373,404, %U A118599 414,424,434,444,454,464,474,505,515,525,535,545,555,565,575,606,616 %N A118599 Palindromes in base 8 (written in base 8). %t A118599 (* get NextPalindrome from A029965 *) Select[NestList[NextPalindrome, 0, 70], Max@IntegerDigits@# < 8 &] (* _Robert G. Wilson v_, May 09 2006 *) %o A118599 (Python) %o A118599 def A118599(n): %o A118599 if n == 1: return 0 %o A118599 y = (x:=1<<(m:=n.bit_length()-2)-m%3)<<3 %o A118599 return int((s:=oct(n-x)[2:])+s[-2::-1] if n