OFFSET
2,1
COMMENTS
a(n) = A048671(n) + n.
EXAMPLE
The proper divisors of 16 are 1,2,4,8. a(16)=24 is the smallest integer which is both > 16 and is a multiple of 1, of 2, of 4 and of 8.
MATHEMATICA
a = {}; For[n = 2, n < 60, n++, i = n + 1; While[Length[Union[Mod[i, Complement[Divisors[n], {n}]]]] > 1, i++ ]; AppendTo[a, i]]; a (* Stefan Steinerberger, Aug 30 2008 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Dec 31 2007
EXTENSIONS
More terms from Stefan Steinerberger, Aug 30 2008
STATUS
approved