OFFSET
1,3
LINKS
Georg Fischer, Table of n, a(n) for n = 1..53 [First 45 terms from Harry J. Smith]
EXAMPLE
5 in base 4 is 11, which interpreted in base 9 is 10 = 2*5.
MATHEMATICA
Join[{0}, Select[Range[1540000], Divisible[FromDigits[IntegerDigits[#, 4], 9], #]&]] (* Harvey P. Dale, Sep 03 2021 *)
PROG
(PARI) select(n->n==0 || fromdigits(digits(n, 4), 9) % n == 0, [0..100000]) \\ Andrew Howroyd, Jun 28 2018
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Erich Friedman, Jul 21 2001
EXTENSIONS
More terms from Naohiro Nomoto, Aug 06 2001
Offset changed to 1 by Georg Fischer, Mar 13 2023
STATUS
approved