OFFSET
1,1
MATHEMATICA
s={4}; With[{a=2, b=1}, Do[If[FreeQ[s, (n-b)/a], AppendTo[s, n]], {n, 5, 100}]]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Aug 08 2006
STATUS
approved