%I A119715
%S A119715 2,5,46,339,22,387497,11,535,10,111,38,8399,15,497,34,327,365,515,30,
%T A119715 7219931,28,321,26,223793,44,10718597,242,35,2330,209,39,305,136,309,
%U A119715 4382,10596486211,45,24751,7327,121,236,78821,55,4117,76,1751,30514339,
               83795,50,1333
%N A119715 a(n) = least k such that the remainder when 7^k is divided by k is n.
%H A119715 Robert G. Wilson v, <a href="a119715.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 A119715 t = Table[0, {10000}]; k = 1; lst = {}; While[k < 4100000000, a = PowerMod[7, 
               k, k]; If[ a<10001 && t[[a]]==0, t[[a]]=k; Print[{a,k}]]; k++ ]; 
               t
%Y A119715 Cf. A036236, A078457, A119678, A119679, A127816, A119714, A127817, A127818, 
               A127819, A127820, A127821.
%Y A119715 Sequence in context: A056680 A005166 A121621 this_sequence A023273 A041729 
               A078665
%Y A119715 Adjacent sequences: A119712 A119713 A119714 this_sequence A119716 A119717 
               A119718
%K A119715 nonn
%O A119715 1,1
%A A119715 Ryan Propper (rpropper(AT)stanford.edu), Jun 12 2006
%E A119715 a(36) = 10596486211 and later terms from Ryan Propper, Feb 02 2007
%E A119715 I changed the Mathematica coding to reflect the new limits Robert G. 
               Wilson v (rgwv(AT)rgwv.com), Jul 17 2009