OFFSET
1,2
LINKS
Aviezri S. Fraenkel, The vile, dopey, evil and odious game players, Discrete Math. 312 (1) (2012) 42-46.
MAPLE
A17194X_list := proc(lim, X)
local n, d, S, A;
S := {1}; A := NULL;
for n from 1 to lim do
d := numtheory[divisors](n);
if d minus S <> {n} then
A := A, `if`(X=5, n, iquo(n, 2));
S := S union d;
fi
od; A end:
# A17194X_list(lim, 4) gives A171944_list(lim);
# A17194X_list(lim, 5) gives A171945_list(lim).
- Peter Luschny, Dec 28 2010
MATHEMATICA
lim = 210; S = {1}; A = {};
Do[d = Divisors[n]; If[Complement[d, S] != {n}, A = Append[A, Quotient[n, 2]]; S = Union[S, d]], {n, 1, lim}];
A (* Jean-François Alcover, Jul 11 2019, after Peter Luschny *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Oct 29 2010
STATUS
approved