|
%I #4 Mar 30 2012 17:30:25
%S 1,2,6,3,2,2,3,5,9,2,6,2,7,3,1,6,3,1,1,7,5,4,3,2,2,2,2,2,2,2,3,4,5,7,
%T 1,1,2,3,5,9,1,2,5,1,1,3,7,1,3,8,1,4,1,2,6,1,4,1,3,8,2,6,2,6,1,6,1,6,
%U 2,7,2,9,3,1,4,1,6,2,1,4,1,6,2,1,5,2,1,4,2,1,4,2,1,5,2,1,6,3,1,8,4,2,1,8,4
%N Most significant digit of n-th primorial A002110.
%t Do[p = Product[Prime[m], {m, 1, n}]; Print[IntegerPart[p/10^Floor[N[Log[10, p], 12]]]], {n, 0, 121}]
%Y Cf. A008905.
%K nonn,base,easy
%O 0,2
%A _Robert G. Wilson v_, Jul 28 2000
|
