cp's OEIS Frontend

A076039 Start with 1. Multiply or divide by n accordingly as a(n-1) is smaller or greater than n and then take the integer value (this is to ensure that a(n) > 0 for all n).

%I A076039 #21 Oct 05 2019 11:31:09
%S A076039 1,2,6,1,5,30,4,32,3,30,2,24,1,14,210,13,221,12,228,11,231,10,230,9,
%T A076039 225,8,216,7,203,6,186,5,165,4,140,3,111,2,78,1,41,1722,40,1760,39,
%U A076039 1794,38,1824,37,1850,36,1872,35,1890,34,1904,33,1914,32,1920,31,1922,30,1920
%N A076039 Start with 1. Multiply or divide by n accordingly as a(n-1) is smaller or greater than n and then take the integer value (this is to ensure that a(n) > 0 for all n).
%H A076039 William A. Tedeschi, <a href="/A076039/b076039.txt">Table of n, a(n) for n = 1..10000</a>
%F A076039 a(n) = n*a(n-1) if a(n-1) < n, floor(a(n-1)/n) otherwise.
%F A076039 a(A003462(k)) = 1. For A003462(k) < n <= A003462(k+1), if n-A003462(k) is odd, then a(n) = (3*A003462(k)+3-n)/2 and if n-A003462(k) is even, then a(n) = n*a(n-1). - _David Wasserman_, Mar 13 2005
%e A076039 a(13) = 1 so a(14) = 14*1 = 14;
%e A076039 14 < 15 so a(15) = 14*15 = 210;
%e A076039 210 > 16 so a(16) = floor(210/16) = 13.
%t A076039 next[{a_,b_}]:=Module[{c=a+1},{c,If[b<c,b*c,Floor[b/c]]}]; Transpose[ NestList[next,{1,1},65]][[2]] (* _Harvey P. Dale_, Oct 06 2011 *)
%o A076039 (Haskell)
%o A076039 a076039 n = a076039_list !! (n-1)
%o A076039 a076039_list = f 1 1 where
%o A076039    f n x = x' : f (n+1) x' where
%o A076039            x' = (if x < n then (*) else div) x n
%o A076039 -- _Reinhard Zumkeller_, Aug 24 2011
%Y A076039 Cf. A003462, A076041, A076042, A046901.
%K A076039 easy,nice,nonn,look
%O A076039 1,2
%A A076039 _Amarnath Murthy_, Oct 29 2002
%E A076039 More terms from _David Wasserman_, Mar 13 2005