A225676 Numbers n such that A054404(n) does not equal round(n/e).

7, 10, 15, 18, 26, 29, 34, 37, 45, 48, 56, 64, 67, 75, 83, 86, 94, 97, 102, 105, 113, 116, 121, 124, 132, 135, 140, 143, 151, 154, 162, 170, 173, 181, 189, 192, 200, 203, 208, 211, 219, 222, 227, 230, 238, 241, 249

Offset: 1

Author

José María Grau Ribas, May 12 2013

Keywords

• nonn

Crossrefs

Cf. A054404, A225593.

Programs

Mathematica

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] &]