A118599 - OEIS

A118599

Palindromes in base 8 (written in base 8).

0, 1, 2, 3, 4, 5, 6, 7, 11, 22, 33, 44, 55, 66, 77, 101, 111, 121, 131, 141, 151, 161, 171, 202, 212, 222, 232, 242, 252, 262, 272, 303, 313, 323, 333, 343, 353, 363, 373, 404, 414, 424, 434, 444, 454, 464, 474, 505, 515, 525, 535, 545, 555, 565, 575, 606, 616

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,3

LINKS

Table of n, a(n) for n=1..57.

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