Search: id:A119714
Results 1-1 of 1 results found.

%I A119714
%S A119714 7,3,5,6,39,58,7342733,9,36196439,18,501,26,13607,249,119,20,33,25,
%T A119714 866401,22,533,35,185,50,196673,27,1843,36,69,34,551,55,3773365,110,159,
%U A119714 116,355,237,8401,52,471,81815,85,261,11783479,3258,93,92,1885511821439
%N A119714 a(n) = least k such that the remainder when 8^k is divided by k is n.
%H A119714 Robert G. Wilson v, <a href="a119714.txt">Table of n, a(n) for n = 1..10000 
               with -1 for those entries where a(n) has not yet been found</a>
%t A119714 Do[k = 1; While[PowerMod[8, k, k] != n, k++ ]; Print[k], {n, 48}]
%t A119714 t = Table[0, {10000}]; k = 1; lst = {}; While[k < 4300000000, a = PowerMod[8, 
               k, k]; If[ a<10001 && t[[a]]==0, t[[a]]=k; Print[{a,k}]]; k++ ]; 
               t
%Y A119714 Cf. A036236, A078457, A119678, A119679, A127816, A119715, A127817, A127818, 
               A127819, A127820, A127821.
%Y A119714 Sequence in context: A011476 A021140 A155987 this_sequence A154889 A135002 
               A084714
%Y A119714 Adjacent sequences: A119711 A119712 A119713 this_sequence A119715 A119716 
               A119717
%K A119714 hard,nonn
%O A119714 1,1
%A A119714 Ryan Propper (rpropper(AT)stanford.edu), Jun 12 2006
%E A119714 a(49) <= 122302226302391 from Max Alekseyev (maxale(AT)gmail.com), Feb 
               04 2007
%E A119714 a(49) <= 1885511821439 from Joe K. Crump (joecr(AT)carolina.rr.com), 
               Feb 10 2007
%E A119714 I extended the Mathematica coding to reflect the new search limits as 
               posted in the b text file Robert G. Wilson v (rgwv(AT)rgwv.com), 
               Jul 17 2009
%E A119714 Value of a(49) as conjectured by J. K. Crump verified by Hagen von Eitzen 
               (math(AT)von-eitzen.de), Jul 24 2009
%E A119714 a(61) = 1802190094793 = 11 * 59 * 17839 * 155663. [From Hagen von Eitzen 
               (math(AT)von-eitzen.de), Jul 28 2009]

Search completed in 0.002 seconds