login
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.
0

%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