%I A008336
%S A008336 1,1,2,6,24,120,20,140,1120,10080,1008,11088,924,12012,
%T A008336 858,12870,205920,3500640,194480,3695120,184756,3879876,
%U A008336 176358,4056234,97349616,2433740400,93605400,2527345800
%N A008336 a(n+1) = a(n)/n if n|a(n) else a(n)*n.
%D A008336 R. K. Guy and R. Nowakowski, Unsolved Problems, Amer. Math. Monthly, 
               vol. 102 (1995), circa page 924.
%H A008336 T. D. Noe, <a href="b008336.txt">Table of n, a(n) for n=1..1000</a>
%H A008336 N. J. A. Sloane, <a href="http://www.research.att.com/~njas/doc/sg.txt">
               My favorite integer sequences</a>, in Sequences and their Applications 
               (Proceedings of SETA '98).
%H A008336 <a href="Sindx_Rea.html#Recaman">Index entries for sequences related 
               to Recaman's sequence</a>
%H A008336 Nick Hobson, <a href="a008336.py.txt">Python program for this sequence</
               a>
%p A008336 A008336 := proc(n) option remember; if n = 1 then 1 elif A008336(n-1) 
               mod (n-1) = 0 then A008336(n-1)/(n-1) else A008336(n-1)*(n-1); fi; 
               end;
%Y A008336 Cf. A005132, A065422.
%Y A008336 Sequence in context: A092495 A110808 A065422 this_sequence A033643 A050211 
               A066616
%Y A008336 Adjacent sequences: A008333 A008334 A008335 this_sequence A008337 A008338 
               A008339
%K A008336 nonn,easy,nice
%O A008336 1,3
%A A008336 B. Recaman [Recam\'{a}n].