# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a100336 Showing 1-1 of 1 %I A100336 #3 Mar 30 2012 17:31:07 %S A100336 2,3,1,2,1,3,1,2,3,1,3,2,1,2,3,2,1,3,1,2,3,1,3,2,3,1,2,3,2,1,3,1,2,1, %T A100336 3,2,1,2,3,1,3,2,3,1,2,1,3,2,1,2,3,2,1,3,1,2,3,1,3,2,3,1,2,3,2,1,3,1, %U A100336 2,1,3,2,3,1,2,3,2,1,2,3,1,2,1,3,2,3,1,3,2,1,3,1,2,3,2,1,2,3,1,3,2,1,3,1,2 %N A100336 Arshon's sequence with a different start: start from 2 and replace the letters in odd positions using 1 -> 123, 2 -> 231, 3 -> 312 and the letters in even positions using 1 -> 321, 2-> 132, 3 -> 213. %t A100336 f[n_List] := Block[{a = {}, l = Length[n], k = 1}, While[k < l + 1, If[ EvenQ[k], Switch[ n[[k]], 1, AppendTo[a, 321], 2, AppendTo[a, 132], 3, AppendTo[a, 213]], Switch[ n[[k]], 1, AppendTo[a, 123], 2, AppendTo[a, 231], 3, AppendTo[a, 312]]]; k++ ]; Flatten[ IntegerDigits /@ a]]; Take[ Nest[f, {2}, 5], 105] %Y A100336 Inspired by A099054. Cf. A100337. %K A100336 nonn %O A100336 1,1 %A A100336 _Robert G. Wilson v_, Nov 17 2004 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE