A348916 a(n) is the "real" part of f(n) = Sum_{k >= 0} g(d_k) * (4 + w)^k where g(0) = 0 and g(1 + u + 2*v) = (2 + w)^u * (1 + w)^v for any u = 0..1 and v = 0..5, Sum_{k >= 0} d_k * 13^k is the base-13 representation of n and w = -1/2 + sqrt(-3)/2 is a primitive cube root of unity; sequence A348917 gives "w" parts.
0, 1, 2, 1, 1, 0, -1, -1, -2, -1, -1, 0, 1, 4, 5, 6, 5, 5, 4, 3, 3, 2, 3, 3, 4, 5, 7, 8, 9, 8, 8, 7, 6, 6, 5, 6, 6, 7, 8, 3, 4, 5, 4, 4, 3, 2, 2, 1, 2, 2, 3, 4, 2, 3, 4, 3, 3, 2, 1, 1, 0, 1, 1, 2, 3, -1, 0, 1, 0, 0, -1, -2, -2, -3, -2, -2, -1, 0, -5, -4, -3
Offset: 0
Links
- Rémy Sigrist, Table of n, a(n) for n = 0..2196
- Joerg Arndt, Representation of a similar construction
- Rémy Sigrist, Colored representation of f for n = 0..13^5-1 in the complex plane (the hue is function of n)
- Rémy Sigrist, PARI program for A348916
- Wikipedia, Eisenstein integer
Programs
-
PARI
See Links section.
Comments