cp's OEIS Frontend

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.

A127818 a(n) is the least k such that the remainder when 10^k is divided by k is n.

This page as a plain text file.
%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