A072549 - OEIS

%I #10 Oct 09 2024 21:28:36

%S 1,2,2,1,2,3,4,5,6,7,9,9,12,10,16,9,24,2,34,23,14,34,6,48,43,18,47,19,

%T 53,28,46,8,77,97,190,941,24503,16226849,6929227064868,

%U 1231133018371774314868035

%N a(n) = abs(floor(n + a(n-1)^2/n - n*log(n))) with a(0)=1.

%C This sequence is based on the cylinder flow equation that is in most fluid dynamics texts. I used a n*log(n) circulation term to slow down the progression that gets very large very fast after n=36.

%C I take this sequence as an analog of the inverse of the rate of flow in fluid layers around a cylinder and the fluid comes to a near stop when n gets greater than 36. A similar complex plane Julia to this is also possible using the iterative k for the n in this equation and leaving out the absolute value and floor functions.

%t s[0] = 1; s[n_Integer] := s[n] = Abs[Floor[n + s[n - 1]^2/n - n*Log[n]]]; Table[s[n], {n, 0, 40}]

%K nonn

%O 0,2

%A _Roger L. Bagula_, Aug 05 2002

%E Edited By _Robert G. Wilson v_, Aug 08 2002

%E Offset and name corrected by _Sean A. Irvine_, Oct 09 2024