|
%I #3 Mar 30 2012 17:26:17
%S 2,1,3,2,3,1,4,1,1,6,2,1,1,1,3,5,4,1,8,1,1,3,2,1,1,2,2,1,1,1,1,1,1,10,
%T 2,5,1,3,2,2,3,2,2,2,1,5,3,3,1,4,1,1,2,5,3,1,1,3,3,1,4,3,1,4,4,1,1,4,
%U 1,2,1,1,3,1,1,1,2,1,4,6,1,2,2,1,2,1,1,1,2,6,1,1,3,2,4,3,1,3,2,4,3,2,1,1,2
%N In the decimal expansion of Pi, lengths of sublists with alternative parity.
%C Take the decimal expansion of Pi: s={3,1,4,1,5,9,2,6,5,3,5,8,9,7,9,3,2,3,8,4,6,2,6,4,3,3,8,3,2,7,9,5,0,2,8,8,4,1,9}. Split s into sublists each with digits of the same parity:{{3,1},{4},{1,5,9},{2,6},{5,3,5},{8},{9,7,9,3},{2},{3},{8,4,6,2,6,4},{3,3},{8},{3}}. The sequence gives the lengths of the sublists: 2,1,3,2,3,1,4,1,1,6,2,1,1,1,3,5,4,1,8.
%t A108663=Length/@Split[RealDigits[N[Pi, 300]][[1]], Mod[ #1-#2, 2]==0&]
%K base,nonn
%O 1,1
%A _Zak Seidov_, Jun 17 2005
|
