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 A127818 #13 Mar 14 2021 12:48:28 %S A127818 3,14,7,6,35,94,993,46,22963573117,11,15084115509707,22,21,86,99985, %T A127818 24,221819,82,327,1996,28039,26,169,38,39,74,24257,36,10191082613,65, %U A127818 49,34,4739,66,99965,188,171,62,3753219157,60,3961,58,87,76,28315,159,10441 %N A127818 a(n) is the least k such that the remainder when 10^k is divided by k is n. %C A127818 a(9) <= 22963573117 from Joe K. Crump (joecr(AT)carolina.rr.com), Feb 09 2007 %C A127818 a(11) <= 15084115509707 from Joe K. Crump (joecr(AT)carolina.rr.com), Feb 06 2007 %C A127818 a(29) <= 112237795073 from Joe K. Crump (joecr(AT)carolina.rr.com), Feb 09 2007 %C A127818 a(39) <= 3753219157 from Joe K. Crump (joecr(AT)carolina.rr.com), Feb 10 2007 %H A127818 Robert G. Wilson v, <a href="/A127818/a127818.txt">Table of n, a(n) for n = 1..10000 with -1 for large entries where a(n) has not yet been found</a> %t A127818 t = Table[0, {10000} ]; k = 1; While[ k < 4000000000, a = PowerMod[10, k, k]; If[a < 10001 && t[[a]] == 0, t[[a]] = k; Print[{a, k}]]; k++ ]; t %o A127818 (Python) %o A127818 def a(n): %o A127818 k = 1 %o A127818 while 10**k % k != n: k += 1 %o A127818 return k %o A127818 print([a(n) for n in range(1, 9)]) # _Michael S. Branicky_, Mar 14 2021 %Y A127818 Cf. A036236, A078457, A119678, A119679, A127816, A119715, A119714, A127817, A127819, A127820, A127821. %K A127818 hard,nonn %O A127818 1,1 %A A127818 _Alexander Adamchuk_, Jan 30 2007 %E A127818 Crump's values for a(9), a(11), a(39) confirmed, a(29) = 10191082613 = 16763 * 607951 by _Hagen von Eitzen_, Jul 29 2009