%I #10 Mar 03 2023 13:34:49
%S 0,1,2,5,11,12,23,24,33,36,50,69,72,120,132,144,240,288,360,396,432,
%T 576,720,931,1188,1296,1394,1440,2210,2753,2793,2880,3120,3600,3720,
%U 4320,6168,7200,8259,9360,11160,11352,12960,14400,18504,18720,21600,26174,28800,32544,34056,37440
%N When expressed in base 3 and then interpreted in base 8, is a multiple of the original number.
%e 11 in base 3 is 102, which interpreted in base 8 is 66 = 6*11.
%t m38Q[n_]:=Divisible[FromDigits[IntegerDigits[n,3],8],n]; Join[ {0},Select[ Range[22000],m38Q]] (* _Harvey P. Dale_, May 05 2021 *)
%K base,nonn
%O 1,3
%A _Erich Friedman_, Jul 21 2001
%E Offset changed to 1 and 5 more terms from _Georg Fischer_, Mar 03 2023
|