A133689 a(n) = smallest integer that is > n and is a multiple of every proper divisor of n.

3, 4, 6, 6, 12, 8, 12, 12, 20, 12, 24, 14, 28, 30, 24, 18, 36, 20, 40, 42, 44, 24, 48, 30, 52, 36, 56, 30, 60, 32, 48, 66, 68, 70, 72, 38, 76, 78, 80, 42, 84, 44, 88, 90, 92, 48, 96, 56, 100, 102, 104, 54, 108, 110, 112, 114, 116, 60

Offset

2,1

Comments

a(n) = A048671(n) + n.

Links

Table of n, a(n) for n=2..59.

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

Cf. A048671.

Sequence in context: A322319 A158523 A001615 * A285895 A220345 A349217

Adjacent sequences: A133686 A133687 A133688 * A133690 A133691 A133692

Keyword

nonn

Author

Leroy Quet, Dec 31 2007

Extensions

More terms from Stefan Steinerberger, Aug 30 2008

Status

approved