%I #9 Jun 29 2014 22:28:04
%S 2,3,5,7,0,1,3,4,6,9,0,3,5,6,8,1,4,5,8,0,1,4,6,9,3,5,6,8,9,1,8,0,3,4,
%T 9,0,3,6,8,1,4,5,0,1,0,1,1,1,1,1,1,1,1,2,2,2,2,1,1,3,1,3,1,4,1,4,1,1,
%U 5,1,5,5,1,1,1,6,6,1,7,1,7,1,8,1,1,8,8,1,9,1,9,9,1,0,2,0,0,1,2,2,2,2,2,2,2
%N Prime(n)-th digit in the concatenation of natural numbers. 1234567891011121314151617181920212223242526... 23 5 7 0 1 3 4 6 9 0 3 5...
%t almostNatural[n_, b_] := Block[{m = 0, d = n, i = 1, l, p}, While[m <= d, l = m; m = (b - 1) i*b^(i - 1) + l; i++]; i--; p = Mod[d - l, i]; q = Floor[(d - l)/i] + b^(i - 1); If[p != 0, IntegerDigits[q, b][[p]], Mod[q - 1, b]]]; Table[ almostNatural[ n, 10], {n, Prime@ Range@ 105}] (* _Robert G. Wilson v_, Jun 29 2014 *)
%Y Cf. A007376, A033307, A094934, A113565.
%K base,easy,nonn
%O 1,1
%A _Amarnath Murthy_, Nov 06 2005
%E More terms from _Joshua Zucker_, May 03 2006
|