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

Author

Robert G. Wilson v, Mar 07 2011

Keywords

• base
• nonn

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

Crossrefs

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

Cf. A000030.

Programs

Haskell

a187285 n = until ((== 1) . a000030) (+ n) n
-- Reinhard Zumkeller, Mar 27 2012

Mathematica

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

PARI

a(n)=forstep(k=n, 5*n, n, if(Vec(Str(k))[1]=="1", return(k))) \\ Charles R Greathouse IV, Mar 07 2011