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
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Mar 07 2011
STATUS
approved