%I A100996
%S A100996 1,2,2,1,1,4,1,2,2,1,1,4,1,2,3,2,1,4,1,2,2,1,1,4,2,1,1,2,1,6,1,2,2,1,1,
%T A100996 4,1,2,2,1,1,4,1,2,3,2,1,4,1,2,2,1,1,4,2,1,1,2,1,6,1,2,2,1,1,4,1,2,2,1,
%U A100996 1,4,1,2,3,2,1,4,1,2,2,1,1,4,2,1,1,2,1,6,3,2,2,1,1,4,1,2,2,1,1,4,1,2,5
%N A100996 a(1) = 1; a(n) is smallest positive integer such that a(n)*a(n-1)+1 is 
               coprime to n.
%H A100996 Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a> 
               (listed in lieu of email address)
%t A100996 a[1] = 1; a[n_] := a[n] = Block[{k = 1}, While[ GCD[k*a[n - 1] + 1, n] 
               != 1, k++ ]; k]; Table[ a[n], {n, 105}]
%Y A100996 Sequence in context: A033151 A046079 A165509 this_sequence A090048 A064285 
               A006694
%Y A100996 Adjacent sequences: A100993 A100994 A100995 this_sequence A100997 A100998 
               A100999
%K A100996 nonn
%O A100996 1,2
%A A100996 Leroy Quet Jan 13 2005
%E A100996 More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 11 2005