A062848 When expressed in base 2 and then interpreted in base 7, is a multiple of the original number.
0, 1, 5, 10, 65, 125, 130, 250, 325, 350, 462, 650, 798, 910, 923, 924, 966, 1171, 1300, 1596, 1625, 1848, 1932, 2353, 2730, 3192, 3250, 3864, 4523, 4550, 5855, 8807, 11710, 11765, 17290, 20930, 22905, 23530, 33250, 35490, 41762, 83524
Offset: 1
Examples
10 in base 2 is 1010, which interpreted in base 7 is 350 = 35*10.
Programs
-
Mathematica
Join[{0},Select[Range[84000],Mod[FromDigits[IntegerDigits[#,2],7],#]==0&]] (* Harvey P. Dale, Mar 25 2025 *)
Extensions
Offset changed to 1 by Georg Fischer, Mar 03 2023