OFFSET
1,1
COMMENTS
Positions where 19 occurs in A110566.
LINKS
Tanya Khovanova, Non Recursions
MATHEMATICA
a = h = 1; t = {}; Do[a = LCM[a, n]; h = h + 1/n; If[a/Denominator[h] == 19, AppendTo[t, n]], {n, 10^6}]; t
Select[Range[500], Denominator[HarmonicNumber[#]]==LCM@@Range[#]/19&] (* Harvey P. Dale, Jan 29 2012 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, Sep 17 2005
EXTENSIONS
Definition corrected by Max Alekseyev, Mar 03 2007
STATUS
approved