OFFSET
1,3
EXAMPLE
3 in base 4 is 3, which interpreted in base 5 is 3 = 1*3.
MATHEMATICA
Join[{0}, Select[Range[5000000], Divisible[FromDigits[IntegerDigits[#, 4], 5], #]&]] (* Harvey P. Dale, Dec 10 2012 *)
PROG
(PARI) baseE(x, b)= { local(d, e, f); e=0; f=1; while (x>0, d=x-b*(x\b); x\=b; e+=d*f; f=f*10); return(e) } baseI(x, b)= { local(d, e, f); e=0; f=1; while (x>0, d=x-10*(x\10); x\=10; e+=d*f; f=f*b); return(e) } { n=-1; for (m=0, 10^9, x=baseI(baseE(m, 4), 5); if (x%m == 0, write("b062920.txt", n++, " ", m); if (n==15, break)) ) } \\ Harry J. Smith, Aug 13 2009
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Erich Friedman, Jul 21 2001
EXTENSIONS
More terms from Naohiro Nomoto, Aug 06 2001
Offset corrected by and a(17)-a(30) from Giovanni Resta, Jun 28 2018
STATUS
approved