|
%I #2 Mar 30 2012 17:26:21
%S 33,5,16,11,6,20,8,1,2,21,41,11,46,61,14,19,82,32,18,49,105,50,11,37,
%T 105,19,19,136,113,34,234,77,66,166,1,51,109,98,42,19,20,154,49,26,25,
%U 44,111,93,46,40,265,77,69,182,421,286,154,9,3,24,64,22,61,69,85,21,28
%N Distance between n-1 and n in decimal expansion of Pi A000796.
%C a(0)=33 because position of first zero is 33; after this zero, "1" is at position 5, hence a(1)=5; after this 1, "2" is at position 16, hence a(2)=16; after this 2, "3" is at position 11, hence a(3)=11 etc.
%t ts=ToString[FromDigits[RealDigits[N[Pi,20000]][[1]]]]; Reap[Do[sp=StringPosition[ts,ToString[n]][[1,1]];Sow[sp];ts=StringDrop[ts,sp],{n,0,100}]][[2,1]]
%Y Cf. A000796.
%K base,nonn
%O 0,1
%A _Zak Seidov_, Aug 17 2006
|
