login
Denominator of (n-th composite/n).
3

%I #5 Sep 11 2013 17:52:03

%S 1,1,3,4,1,1,1,8,9,5,11,4,13,7,3,8,17,9,19,5,7,11,23,2,25,2,27,2,29,2,

%T 31,2,33,17,35,9,37,38,39,40,41,7,43,44,45,46,47,12,49,5,17,26,53,27,

%U 5,28,57,58,59,5,61,31,21,8,13,66,67,68,69,14

%N Denominator of (n-th composite/n).

%C Denominator of (A002808(n)/n).

%o (PARI) lista(nn) = {compo = select(n->(! isprime(n) && (n != 1)), vector(nn, i, i)); for (i = 1, #compo, print1(denominator(compo[i]/i), ", "););} \\ _Michel Marcus_, Sep 11 2013

%Y Cf. A171527.

%K nonn,frac

%O 1,3

%A _Jaroslav Krizek_, Dec 11 2009

%E More terms from _Michel Marcus_, Sep 11 2013