OFFSET
0,9
COMMENTS
This sequence is the imaginary part of {f(n)} defined as:
- f(0) = 0,
- f(n+1) = f(n) + i^t(n)
where t(n) is the number of 1's minus the number of 3's
in the base 5 representation of n
and i denotes the imaginary unit.
LINKS
FORMULA
a(5^k-m) = a(m) for any k >= 0 and m = 0..5^k.
PROG
(PARI) { k = [0, 1, 0, -1, 0]; z=0; for (n=0, 80, print1 (imag(z) ", "); z += I^vecsum(apply(d -> k[1+d], digits(n, #k)))) }
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Rémy Sigrist, Feb 08 2020
STATUS
approved