|
|
A225676
|
|
Numbers n such that A054404(n) does not equal round(n/e).
|
|
0
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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] &]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|