A350748 Smallest number not already in the sequence that is a divisor of A002182(n).

1, 2, 4, 3, 6, 8, 9, 12, 5, 10, 15, 16, 18, 20, 7, 14, 21, 24, 28, 27, 30, 35, 32, 25, 11, 36, 40, 22, 33, 42, 44, 45, 48, 54, 55, 50, 56, 13, 26, 39, 52, 60, 63, 65, 66, 70, 64, 72, 75, 77, 78, 80, 17, 84, 34, 51, 68, 85, 88, 90, 91, 96, 99, 81, 19, 100, 102

Offset

1,2

Links

Table of n, a(n) for n=1..67.

Example

a(3) cannot be 3 because 3 is not a divisor of A002182(3)=4. a(4), however, can be 3 because 3 is a divisor of A002182(4)=6.

Mathematica

a[n_]:=a[n]=Min@Select[Divisors[max=t=k=0; While[t<n, k++; While[(d=DivisorSigma[0, k])<=max, k++]; max=d; t++]; k], FreeQ[Array[a, n-1], #]&]; Array[a, 30] (* Giorgos Kalogeropoulos, Jan 13 2022 *)

Crossrefs

Cf. A002182.

Sequence in context: A349370 A137621 A242705 * A357910 A367082 A039864

Adjacent sequences: A350745 A350746 A350747 * A350749 A350750 A350751

Keyword

nonn

Author

J. Lowell, Jan 13 2022

Extensions

More terms from Amiram Eldar, Jan 13 2022

Status

approved