OFFSET
1,3
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..751 [offset shifted by Georg Fischer, Jun 15 2021]
EXAMPLE
13 in base 3 is 111, which interpreted in base 9 is 91 = 7*13.
MAPLE
q:= n-> (l-> n=0 or 0=irem(add(l[i]*9^(i-1),
i=1..nops(l)), n))(convert(n, base, 3)):
select(q, [$0..3000])[]; # Alois P. Heinz, Apr 20 2021
MATHEMATICA
Join[{0}, Select[Range[2200], Divisible[FromDigits[IntegerDigits[#, 3], 9], #]&]] (* Harvey P. Dale, Apr 11 2017 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Erich Friedman, Jul 21 2001
EXTENSIONS
Offset changed to 1 by Kevin Ryde, Apr 24 2021
STATUS
approved