|
%I #6 Jul 11 2015 00:38:11
%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)/n - n*log(n))).
%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 1,2
%A _Roger L. Bagula_, Aug 05 2002
%E Edited By _Robert G. Wilson v_, Aug 08 2002
|
