|
|
A171528
|
|
Denominator of (n-th composite/n).
|
|
3
|
|
|
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, 31, 2, 33, 17, 35, 9, 37, 38, 39, 40, 41, 7, 43, 44, 45, 46, 47, 12, 49, 5, 17, 26, 53, 27, 5, 28, 57, 58, 59, 5, 61, 31, 21, 8, 13, 66, 67, 68, 69, 14
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
|
|
LINKS
|
|
|
PROG
|
(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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,frac
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|