A124332 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,3

LINKS

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

MATHEMATICA

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

CROSSREFS

Cf. A000005, A122377, A124333.

Sequence in context: A372679 A129231 A166477 * A364900 A295311 A246416

Adjacent sequences: A124329 A124330 A124331 * A124333 A124334 A124335

KEYWORD

nonn

AUTHOR

Leroy Quet and Ray Chandler, Oct 26 2006

STATUS

approved