login
A319809
Numbers k that are equal to 2*k when expressed in base 9 and then interpreted in base 10.
0
7794416, 7816758, 8131871, 8132006, 8152638, 8152650
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
Cf. A139285.
Sequence in context: A273101 A124416 A320516 * A347424 A214194 A205657
KEYWORD
nonn,base,fini,full
AUTHOR
Anton Deynega, Sep 28 2018
STATUS
approved