%I #16 Oct 01 2016 21:00:36
%S 1,2,3,0,1,3,1,3,1,0,3,2,1,1,1,1,1,2,3,0,1,0,3,2,1,2,3,0,1,0,3,2,1,2,
%T 3,0,1,1,1,1,1,0,3,2,1,3,1,3,1,2,3,0,1,2,3,0,1,2,3,0,1,2,3,0,1,2,3,0,
%U 1,3,1,3,1,0,3,2,1,1,1,1,1,2,3,0,1,1,1,1,1,0,3,2,1,3,1,3,1,2,3,0,1,3,1,3,1
%N Partial sums, modulo 4, of the sequence: a(1)=1, a(1), a(1), a(1), a(1), a(2), a(2), a(2), a(2), a(3), a(3), a(3), a(3), a(4), ... each term (not a(1)) repeated 4 times.
%H <a href="/index/Fi#FIXEDPOINTS">Index entries for sequences that are fixed points of mappings</a>
%F A fixed point of the mapping 1->1230, 2->1313, 3->1032, 0->1111.
%t Nest[ Function[ l, {Flatten[(l /. {0 -> {1, 1, 1, 1}, 1 -> {1, 2, 3, 0}, 2 -> {1, 3, 1, 3}, 3 -> {1, 0, 3, 2}})] }], {1}, 4] (* _Robert G. Wilson v_, Mar 04 2005 *)
%K easy,nonn
%O 1,2
%A _Philippe Deléham_, Jan 02 2004
%E More terms from _Robert G. Wilson v_, Mar 04 2005