A036762 The integer values of x/d(x) in order of magnitude of x in A033950.

1, 1, 2, 3, 2, 3, 3, 4, 5, 7, 5, 6, 8, 7, 11, 8, 13, 9, 16, 11, 17, 19, 13, 10, 23, 17, 25, 19, 29, 12, 31, 14, 23, 16, 37, 41, 43, 29, 15, 31, 47, 24, 22, 53, 49, 37, 32, 25, 26, 59, 20, 61, 41, 21, 43, 67, 28, 47, 71, 73, 25, 34, 125, 79, 53, 40, 83, 28, 38, 59

Offset

1,3

Links

Nathaniel Johnston, Table of n, a(n) for n = 1..10000

Example

If n=63, then x=625 and d(x) = 5 divides x. The quotient is 125 = a(63).

Maple

with(numtheory): A033950 := proc(n) option remember: local k: if(n=1)then return 1: else k:=procname(n-1)+1: do if(type(k/tau(k), integer))then return k: fi: k:=k+1: od: fi: end: A036762 := proc(n) return A033950(n)/tau(A033950(n)): end: seq(A036762(n), n=1..70); # Nathaniel Johnston, May 04 2011

Mathematica

Select[Table[n/DivisorSigma[0, n], {n, 708}], IntegerQ] (* Michael De Vlieger, Jul 04 2016 *)

Crossrefs

Cf. A000005, A033950, A036761, A036763, A039819.

Sequence in context: A031248 A030582 A217438 * A032154 A300651 A003051

Adjacent sequences: A036759 A036760 A036761 * A036763 A036764 A036765

Keyword

nonn,easy

Author

Labos Elemer

Status

approved