A223474 Least positive multiple of n that when written in base 10 has digits in nonincreasing order.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 60, 52, 42, 30, 32, 51, 54, 76, 20, 21, 22, 92, 72, 50, 52, 54, 84, 87, 30, 31, 32, 33, 442, 70, 72, 74, 76, 663, 40, 41, 42, 43, 44, 90, 92, 94, 96, 98, 50, 51, 52, 53, 54, 55, 840, 741, 522, 531, 60, 61, 62, 63, 64, 65, 66, 871, 544, 552, 70, 71, 72, 73, 74, 75, 76, 77, 6552, 553, 80, 81, 82, 83, 84, 85

Offset

1,2

Comments

This sequence is well defined (same reasoning as for A079339).

Links

Giovanni Resta, Table of n, a(n) for n = 1..2000

Example

a(39) = 663 because it is the least multiple of 39 appearing in A009996.

Mathematica

a[n_] := Block[{x=n}, While[0 < Max@Differences@IntegerDigits@x, x += n]; x]; Array[a, 85] (* Giovanni Resta, Mar 26 2013 *)

Prog

(Perl)
sub A223474 {
    my $n = shift;
    my $a = $n;
    while ($a !~ /^9*8*7*6*5*4*3*2*1*0*$/) {
        $a += $n;
    }
    return $a;
}
foreach (1..100) {
    print A223474($_), ", ";
}

Crossrefs

a(n)/n yields sequence A223475.

Cf. A004290, A181060.

Cf. A009996.

Sequence in context: A066638 A285769 A219209 * A062279 A088599 A004862

Adjacent sequences: A223471 A223472 A223473 * A223475 A223476 A223477

Keyword

nonn,base

Author

Paul Tek, Mar 20 2013

Status

approved