login
A036762
The integer values of x/d(x) in order of magnitude of x in A033950.
13
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
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
KEYWORD
nonn,easy
AUTHOR
STATUS
approved