This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A091655 #2 Mar 30 2012 17:30:59
%S A091655 2,5,6,3,11,8,5,12,30,17,4,10,17,12,31,15,25,46,63,66,51,35,30,48,46,
%T A091655 44,31,39,21,42,53,14,44,45,53,15,70,28,78,87,131,74,11,108,52,75,71,
%U A091655 50,80,78,83,44,73,18,52,73,58,142,86,77,27,138,148,84,144,81,114,73,139,132
%N A091655 Least number k such that the continued fraction expansion of H(k) contains n, where H(k) is the k-th Harmonic number.
%e A091655 a(15) = 12 because CF( H(12)) = 3 + [9, 1, 2, 4, 1, 1, 1, 15, 4], so 15 is present.
%t A091655 f[n_] := Block[{k = 1}, While[ Position[ ContinuedFraction[ HarmonicNumber[k]], n] == {}, k++ ]; k]; Table[ f[n], {n, 1, 77}]
%Y A091655 Cf. A055573, A091656.
%K A091655 nonn
%O A091655 1,1
%A A091655 _Robert G. Wilson v_, Jan 26 2004