OFFSET
1,3
EXAMPLE
11 in base 3 is 102, which interpreted in base 8 is 66 = 6*11.
MATHEMATICA
m38Q[n_]:=Divisible[FromDigits[IntegerDigits[n, 3], 8], n]; Join[ {0}, Select[ Range[22000], m38Q]] (* Harvey P. Dale, May 05 2021 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Erich Friedman, Jul 21 2001
EXTENSIONS
Offset changed to 1 and 5 more terms from Georg Fischer, Mar 03 2023
STATUS
approved