A062889 When expressed in base 3 and then interpreted in base 8, is a multiple of the original number.
0, 1, 2, 5, 11, 12, 23, 24, 33, 36, 50, 69, 72, 120, 132, 144, 240, 288, 360, 396, 432, 576, 720, 931, 1188, 1296, 1394, 1440, 2210, 2753, 2793, 2880, 3120, 3600, 3720, 4320, 6168, 7200, 8259, 9360, 11160, 11352, 12960, 14400, 18504, 18720, 21600, 26174, 28800, 32544, 34056, 37440
Offset: 1
Examples
11 in base 3 is 102, which interpreted in base 8 is 66 = 6*11.
Programs
-
Mathematica
m38Q[n_]:=Divisible[FromDigits[IntegerDigits[n,3],8],n]; Join[ {0},Select[ Range[22000],m38Q]] (* Harvey P. Dale, May 05 2021 *)
Extensions
Offset changed to 1 and 5 more terms from Georg Fischer, Mar 03 2023