A100079 - OEIS

%I #12 Nov 21 2013 12:48:34

%S 16,2,13,24,9,3,5,11,32,1,35,34,89,52,26,2,48,10,395,14,162,13,107,30,

%T 100,76,55,182,46,90,69,140,29,129,53,24,393,43,31,247,154,9,45,139,

%U 105,715,21,78,101,27,18,25,209,159,20,6,86,103,123,3,22,93,64,68,57,5,56

%N Starting from n = 0, a(n) = position of first occurrence of n in decimal places of Catalan's constant.

%H Eric W. Weisstein, <a href="/A100079/b100079.txt">Table of n, a(n) for n = 0..999</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/CatalansConstant.html">Catalan's Constant</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/ConstantDigitScanning.html">Constant Digit Scanning</a>

%e Catalan's constant begins: 0.915965594177219015054603514932, so first occurrence of 0 after the decimal point is at position 16; first occurrence of 1 is at position 2; first occurrence of 2 is at position 13; etc.

%t posC[n_] := Module[{c = RealDigits[Catalan, 10, 2000][[1]], idn = IntegerDigits[n]}, Position[Partition[c, Length[idn], 1], idn][[1, 1]]]; Table[posC[n], {n, 0, 90}] (* _Harvey P. Dale_, Mar 19 2011 *)

%Y Cf. A006752 (decimal expansion of Catalan's constant).

%K nonn,base,easy

%O 0,1

%A Mark Hudson (mrmarkhudson(AT)hotmail.com), Nov 03 2004