login
Most significant digit of n-th primorial A002110.
0

%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