A032537 Numbers that, when expressed in base 3 and then interpreted in base 10, yield a multiple of the original number.
0, 1, 2, 7, 14, 15, 21, 38, 91, 132, 182, 203, 210, 273, 392, 420, 546, 637, 924, 1365, 1526, 1658, 1911, 1974, 2730, 3030, 3367, 4095, 5733, 6734, 7035, 10101, 20202, 21105, 22748, 30303, 44702, 49308, 68432, 107744, 112854, 129990, 205296
Offset: 1
Examples
7 in base 3 is 21, which interpreted in base 10 is 21=3*7.
Links
- Giovanni Resta, Table of n, a(n) for n = 1..136 (terms < 10^12, first 101 terms from Paolo P. Lava)
Programs
-
Mathematica
lst = {0}; Do[If[Mod[FromDigits[IntegerDigits[n, 3]], n] == 0, AppendTo[lst, n]], {n, 10000}]; lst (* Carl Najafi, Aug 21 2011 *)
Extensions
Example and better description from Erich Friedman, Jul 21 2001
Edited by Erich Friedman Feb 09 2002
Offset set to 1 by Giovanni Resta, Jul 13 2016
Name edited by Jon E. Schoenfield, Oct 25 2019