OFFSET
1,1
EXAMPLE
8132006 expressed in base 9 is equal to 16264012; 16264012 = 2*8132006.
MATHEMATICA
Select[Range[10^6, 10^7], FromDigits@ IntegerDigits[#, 9] == 2 # &] (* Michael De Vlieger, Oct 11 2018 *)
PROG
(PARI) isok(n) = fromdigits(digits(n, 9), 10) == 2*n; \\ Michel Marcus, Sep 28 2018
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Anton Deynega, Sep 28 2018
STATUS
approved