|
%I #13 Aug 27 2019 11:43:55
%S 3,1,2,10,16,6,7,23,18,8,209,30,1,78,31,11,26,55,67,104,2,137,58,46,
%T 188,98,113,59,17,44,79,10,133,95,47,96,91,139,24,20,48,66,16,195,32,
%U 86,102,310,375,33,403,29,97,19
%N Beginning position of n in the decimal expansion of zeta(3).
%H Eric W. Weisstein, <a href="/A229187/b229187.txt">Table of n, a(n) for n = 0..999</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/AperysConstantDigits.html">Apery's Constant Digits</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/ConstantDigitScanning.html">Constant Digit Scanning</a>
%t With[{z=RealDigits[Zeta[3],10,500][[1]]},Table[First[SequencePosition[ z, IntegerDigits[n],1]],{n,0,60}]][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 27 2019 *)
%Y Cf. A002117 (decimal expansion of zeta(3)).
%K nonn,base,less
%O 0,1
%A _Eric W. Weisstein_, Sep 15 2013
|
