cp's OEIS Frontend

A332205 a(n) is the imaginary part of f(n) defined by f(0) = 0, and f(n+1) = f(n) + g((1+i)^(A065359(n) mod 8)) (where g(z) = z/gcd(Re(z), Im(z)) and i denotes the imaginary unit).

%I A332205 #35 Aug 30 2024 10:18:47
%S A332205 0,0,1,0,0,1,2,2,3,2,2,1,0,0,1,0,0,1,2,2,3,4,5,6,7,7,8,7,7,8,9,9,10,9,
%T A332205 9,8,7,7,8,7,7,6,5,4,3,2,2,1,0,0,1,0,0,1,2,2,3,2,2,1,0,0,1,0,0,1,2,2,
%U A332205 3,4,5,6,7,7,8,7,7,8,9,9,10,11,12,13,14
%N A332205 a(n) is the imaginary part of f(n) defined by f(0) = 0, and f(n+1) = f(n) + g((1+i)^(A065359(n) mod 8)) (where g(z) = z/gcd(Re(z), Im(z)) and i denotes the imaginary unit).
%C A332205 Looks much like A005536, in particular in respect of its symmetries of scale (compare the scatterplots). - _Peter Munn_, Jun 21 2021
%H A332205 Rémy Sigrist, <a href="/A332205/b332205.txt">Table of n, a(n) for n = 0..16384</a>
%H A332205 Larry Riddle, <a href="http://ecademy.agnesscott.edu/~lriddle/ifs/kcurve/kcurve.htm">Koch Curve</a>
%H A332205 Rémy Sigrist, <a href="/A332205/a332205.gp.txt">PARI program for A332205</a>
%H A332205 <a href="/index/Con#coordinates_2D_curves">Index entries for sequences related to coordinates of 2D curves</a>
%F A332205 a(2^(2*k-1)) = A007052(k) for any k >= 0.
%F A332205 a(4^k-m) = a(m) for any k >= 0 and m = 0..4^k.
%t A332205 A065359[0] = 0;
%t A332205 A065359[n_] := -Total[(-1)^PositionIndex[Reverse[IntegerDigits[n, 2]]][1]];
%t A332205 g[z_] := z/GCD[Re[z], Im[z]];
%t A332205 Module[{n = 0}, Im[NestList[# + g[(1+I)^A065359[n++]] &, 0, 100]]] (* _Paolo Xausa_, Aug 28 2024 *)
%o A332205 (PARI) \\ See Links section.
%Y A332205 Cf. A005536, A007052, A065359, A332204 (real part and additional comments), A332206 (positions of 0's, cf. A001196).
%K A332205 nonn,look,base
%O A332205 0,7
%A A332205 _Rémy Sigrist_, Feb 07 2020