This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A187285 #11 Jul 13 2013 12:03:48 %S A187285 1,10,12,12,10,12,14,16,18,10,11,12,13,14,15,16,17,18,19,100,105,110, %T A187285 115,120,100,104,108,112,116,120,124,128,132,102,105,108,111,114,117, %U A187285 120,123,126,129,132,135,138,141,144,147,100,102,104,106,108,110 %N A187285 Smallest multiple of n beginning with 1. %C A187285 a(n) is in {n, 2n, 3n, 4n, 5n}. [_Charles R Greathouse IV_, Mar 07 2011] %H A187285 Reinhard Zumkeller, <a href="/A187285/b187285.txt">Table of n, a(n) for n = 1..10000</a> %t A187285 f[n_] := Block[{m = n}, While[ First@ IntegerDigits@ m != 1, m += n]; m]; Array[f, 55] %o A187285 (PARI) a(n)=forstep(k=n, 5*n, n, if(Vec(Str(k))[1]=="1", return(k))) \\ _Charles R Greathouse IV_, Mar 07 2011 %o A187285 (Haskell) %o A187285 a187285 n = until ((== 1) . a000030) (+ n) n %o A187285 -- _Reinhard Zumkeller_, Mar 27 2012 %Y A187285 Cf. A082811, A082792, A082794, A082795, A082796, A082797, A082798, A187090. %Y A187285 Cf. A000030. %K A187285 base,nonn %O A187285 1,2 %A A187285 _Robert G. Wilson v_, Mar 07 2011