A124332 a(n) = ((n mod d(n)) +1)th divisor of n, where d(n) is number of positive divisors of n.

1, 1, 3, 2, 5, 3, 7, 1, 1, 5, 11, 1, 13, 7, 15, 2, 17, 1, 19, 4, 3, 11, 23, 1, 5, 13, 27, 14, 29, 15, 31, 4, 3, 17, 35, 1, 37, 19, 39, 1, 41, 3, 43, 4, 9, 23, 47, 24, 7, 5, 51, 26, 53, 27, 55, 1, 3, 29, 59, 1, 61, 31, 9, 2, 5, 3, 67, 4, 3, 35, 71, 1, 73, 37, 15, 38, 7, 39, 79, 1, 3, 41, 83, 1

Offset: 1

Author

Leroy Quet and Ray Chandler, Oct 26 2006

Keywords

• nonn

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000005, A122377, A124333.

Programs

Mathematica

f[n_] := Block[{d = Divisors[n]}, d[[Mod[n, Length[d]] + 1]]];Table[f[n], {n, 90}] (* Ray Chandler, Oct 26 2006 *)