A032571 Numbers k whose decimal representation, read as a base-20 value and divided by k, yields an integer.
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 195, 200, 300, 400, 500, 600, 700, 800, 900, 1000, 1280, 1320, 1898, 1948, 1950, 2000, 2640, 3000, 3960, 4000, 5000, 6000, 7000, 8000, 9000, 10000, 12800, 13200, 15545, 16000
Offset: 1
Examples
195 is a term: 195_20 = 585 = 195*3. - _Jon E. Schoenfield_, Oct 25 2019
Programs
-
Mathematica
Select[Range[20000],IntegerQ[FromDigits[IntegerDigits[#],20]/#]&] (* Harvey P. Dale, Jan 18 2025 *)
Extensions
Offset changed and Name edited by Jon E. Schoenfield, Oct 25 2019
Comments