OFFSET
1,2
COMMENTS
LINKS
Colin Barker, Table of n, a(n) for n = 1..500
EXAMPLE
PROG
(PARI)
harmonicmean(v) = #v / sum(k=1, #v, 1/v[k])
composite(n) = for(k=0, primepi(n), isprime(n++)&&k--); n \\ from A002808
s=vector(100); for(k=1, #s, s[k]=denominator(harmonicmean(vector(k, i, composite(i))))); s
CROSSREFS
KEYWORD
nonn
AUTHOR
Colin Barker, Nov 14 2014
STATUS
approved