OFFSET
0,7
COMMENTS
Looks much like A005536, in particular in respect of its symmetries of scale (compare the scatterplots). - Peter Munn, Jun 21 2021
LINKS
Rémy Sigrist, Table of n, a(n) for n = 0..16384
Larry Riddle, Koch Curve
Rémy Sigrist, PARI program for A332205
FORMULA
a(2^(2*k-1)) = A007052(k) for any k >= 0.
a(4^k-m) = a(m) for any k >= 0 and m = 0..4^k.
MATHEMATICA
A065359[0] = 0;
A065359[n_] := -Total[(-1)^PositionIndex[Reverse[IntegerDigits[n, 2]]][1]];
g[z_] := z/GCD[Re[z], Im[z]];
Module[{n = 0}, Im[NestList[# + g[(1+I)^A065359[n++]] &, 0, 100]]] (* Paolo Xausa, Aug 28 2024 *)
PROG
(PARI) \\ See Links section.
CROSSREFS
KEYWORD
AUTHOR
Rémy Sigrist, Feb 07 2020
STATUS
approved