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,3

Links

Giovanni Resta, Table of n, a(n) for n = 1..136 (terms < 10^12, first 101 terms from Paolo P. Lava)

Example

7 in base 3 is 21, which interpreted in base 10 is 21=3*7.

Mathematica

lst = {0}; Do[If[Mod[FromDigits[IntegerDigits[n, 3]], n] == 0, AppendTo[lst, n]], {n, 10000}]; lst (* Carl Najafi, Aug 21 2011 *)

Crossrefs

Cf. A032536, A032538.

Sequence in context: A332542 A368895 A331703 * A072120 A247866 A057126

Adjacent sequences: A032534 A032535 A032536 * A032538 A032539 A032540

Keyword

nonn,base

Author

Patrick De Geest, Apr 15 1998

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

Status

approved