A062884 When expressed in base 3 and then interpreted in base 7, is a multiple of the original number.
0, 1, 2, 4, 8, 10, 16, 20, 21, 32, 40, 50, 80, 100, 150, 160, 210, 320, 338, 400, 450, 800, 882, 1014, 1040, 1554, 1600, 4662, 5350, 8636, 10000, 13986, 16050, 25908, 28392, 38766, 48150, 55672, 84250, 97062, 126802, 167016, 187824, 339188, 380406, 449400, 501048
Offset: 1
Examples
8 in base 3 is 22, which interpreted in base 7 is 16 = 2*8.
Programs
-
Mathematica
Join[{0},Select[Range[100000],Divisible[FromDigits[IntegerDigits[#,3],7],#]&]] (* Harvey P. Dale, Jul 06 2019 *)
Extensions
Offset changed to 1 by Georg Fischer, Mar 03 2023
More terms from Amiram Eldar, Mar 03 2023