OFFSET
1,1
MATHEMATICA
fQ[n_] := fQ[n_] := IntegerQ[ Binomial[2n, n]/(n(n + 1)/2)] && !IntegerQ[ Binomial[2n, n]/n]; Select[ Range@8719, fQ@# &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 19 2006
EXTENSIONS
Better description from Joel B. Lewis, Nov 15 2006
STATUS
approved