A319809 Numbers k that are equal to 2*k when expressed in base 9 and then interpreted in base 10.
7794416, 7816758, 8131871, 8132006, 8152638, 8152650
Offset: 1
Examples
8132006 expressed in base 9 is equal to 16264012; 16264012 = 2*8132006.
Crossrefs
Cf. A139285.
Programs
-
Mathematica
Select[Range[10^6, 10^7], FromDigits@ IntegerDigits[#, 9] == 2 # &] (* Michael De Vlieger, Oct 11 2018 *)
-
PARI
isok(n) = fromdigits(digits(n,9), 10) == 2*n; \\ Michel Marcus, Sep 28 2018
Comments