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 A225676 #6 May 13 2013 18:49:39
%S A225676 7,10,15,18,26,29,34,37,45,48,56,64,67,75,83,86,94,97,102,105,113,116,
%T A225676 121,124,132,135,140,143,151,154,162,170,173,181,189,192,200,203,208,
%U A225676 211,219,222,227,230,238,241,249
%N A225676 Numbers n such that A054404(n) does not equal round(n/e).
%t A225676 PR[n_, r_] := (r/n)*Sum[1/k, {k, r, n - 1}]; maxi[li_] := {Do[If[li[[n + 1]] < li[[n]], aux = n; Break[]], {n, 1, Length[li] - 1}], aux}[[2]]; SEQ[1] = 0; SEQ[2] = 1; SEQ[n_] := maxi[Table[PR[n, i], {i, 1, n - 1}]]; Select[Range@400, ! SEQ[#] == Round[#/E] &]
%Y A225676 Cf. A054404, A225593.
%K A225676 nonn
%O A225676 1,1
%A A225676 _José María Grau Ribas_, May 12 2013