|
| |
|
|
A036762
|
|
The integer values of x/d[ x ] in order of magnitude of x in A033950.
|
|
7
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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
|
|
|
CROSSREFS
| Cf. A000005, A033950, A036761, A036763, A039819.
Sequence in context: A205146 A031248 A030582 * A032154 A003051 A097352
Adjacent sequences: A036759 A036760 A036761 * A036763 A036764 A036765
|
|
|
KEYWORD
| nonn,easy
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu)
|
| |
|
|
