A078200 a(n) = A078199(n)/n; i.e., smallest k such that frequency of each occurring digit in k*n is the same.

11, 10, 1, 1, 1, 1, 1, 1, 1, 1, 10, 1, 5, 4, 3, 2, 3, 2, 2, 2, 1, 5, 5, 1, 1, 1, 1, 1, 1, 1, 1, 4, 1, 4, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 3, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 3, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 11, 1

Offset

100,1

Comments

a(211) = 13 is the first term that is not a palindrome (treating 10 as "010", a palindrome with leading zeros).

Links

Table of n, a(n) for n=100..201.

Example

a(112) = 560/112 = 5.

Mathematica

balanced[n_] := Module[{u, d, r}, u=Union[d=Sort[IntegerDigits[n]]]; IntegerQ[r=Length[d]/Length[u]]&&d==Sort[Flatten[Table[u, {r}]]]]; a[n_] := For[k=1, True, k++, If[balanced[k*n], Return[k]]]

Crossrefs

Cf. A078199.

Sequence in context: A121154 A326587 A256078 * A105034 A324153 A065001

Adjacent sequences: A078197 A078198 A078199 * A078201 A078202 A078203

Keyword

base,nonn

Author

Amarnath Murthy, Nov 21 2002

Extensions

Corrected and extended by Sascha Kurz, Jan 09 2003

Edited by Dean Hickerson, Jan 17 2003

Status

approved