A187285 Smallest multiple of n beginning with 1.

1, 10, 12, 12, 10, 12, 14, 16, 18, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 100, 105, 110, 115, 120, 100, 104, 108, 112, 116, 120, 124, 128, 132, 102, 105, 108, 111, 114, 117, 120, 123, 126, 129, 132, 135, 138, 141, 144, 147, 100, 102, 104, 106, 108, 110

Offset

1,2

Comments

a(n) is in {n, 2n, 3n, 4n, 5n}. [Charles R Greathouse IV, Mar 07 2011]

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Mathematica

f[n_] := Block[{m = n}, While[ First@ IntegerDigits@ m != 1, m += n]; m]; Array[f, 55]

Prog

(PARI) a(n)=forstep(k=n, 5*n, n, if(Vec(Str(k))[1]=="1", return(k))) \\ Charles R Greathouse IV, Mar 07 2011
(Haskell)
a187285 n = until ((== 1) . a000030) (+ n) n
-- Reinhard Zumkeller, Mar 27 2012

Crossrefs

Cf. A082811, A082792, A082794, A082795, A082796, A082797, A082798, A187090.

Cf. A000030.

Sequence in context: A103618 A308781 A317180 * A098732 A301860 A109394

Adjacent sequences: A187282 A187283 A187284 * A187286 A187287 A187288

Keyword

base,nonn

Author

Robert G. Wilson v, Mar 07 2011

Status

approved