OFFSET
1,13
LINKS
Jean-François Alcover, Table of n, a(n) for n = 1..200
MATHEMATICA
r[n_] := Module[{a, b}, Reduce[a>1 && a<b && a + 2b < n && 2(a + b) > n && 2n(a + b) < 2a*b + n^2, {a, b}, Integers]];
a[n_] := Module[{rn = r[n]}, Which[rn === False, 0, rn[[0]] === And, 1, rn[[0]] === Or, Length[rn], True, Print["error: ", n, " ", rn]]];
Array[a, 84] (* Jean-François Alcover, Mar 01 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved