login
A247115
Denominator of the harmonic mean of the first n heptagonal numbers.
2
1, 4, 151, 1315, 73396, 667109, 10749479, 399851303, 401511863, 18933826729, 246810236317, 4700047812703, 145981746528913, 9796912235587651, 9810925971351679, 9823210739716249, 403196782523223569, 11704197956499986461, 269433333504358946963
OFFSET
1,2
LINKS
EXAMPLE
a(3) = 151 because the first 3 heptagonal numbers are [1,7,18], and 3/(1/1+1/7+1/18) = 378/151.
PROG
(PARI)
harmonicmean(v) = #v / sum(k=1, #v, 1/v[k])
s=vector(30); for(n=1, #s, s[n]=denominator(harmonicmean(vector(n, k, k*(5*k-3)/2)))); s
CROSSREFS
Cf. A000566 (heptagonal numbers), A250345 (numerators).
Sequence in context: A366218 A361774 A294826 * A006439 A264711 A279325
KEYWORD
nonn
AUTHOR
Colin Barker, Nov 19 2014
STATUS
approved