OFFSET
1,1
COMMENTS
All terms are even. All positive integers of the form n(n+1) are included.
LINKS
Alexis Olson, Table of n, a(n) for n = 1..526
EXAMPLE
36 is included because 3 is a divisor of 36 and |3 - 36/3| = 9 divides 36.
MATHEMATICA
Contribution from Alexis Olson (AlexisOlson(AT)gmail.com), Nov 14 2008: (Start)
For[n = 1; s = {}, n <= 10000, n++,
..For[i = 1, i <= Length[Divisors[n]], i++, k = Divisors[n][[i]];
....If[Abs[k-n/k]>0&&Mod[n, Abs[k-n/k]==0, s=Union[s, {n}]; Break[]]]]; s (End)
odkQ[n_]:=Module[{d=Divisors[n], nz}, nz=#-n/#&/@d; MemberQ[Divisible[ n, Abs[Select[nz, #!=0&]]], True]]; Select[Range[400], odkQ] (* Harvey P. Dale, May 06 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, May 01 2008
EXTENSIONS
More terms from Alexis Olson (AlexisOlson(AT)gmail.com), Nov 14 2008
STATUS
approved