|
| |
| |
|
|
|
1, 1, 1, 1, 1, 3, 1, 1, 1, 5, 1, 4, 1, 7, 5, 1, 1, 9, 1, 5, 7, 11, 1, 8, 1, 13, 1, 7, 1, 15, 1, 1, 11, 17, 7, 9, 1, 19, 13, 8, 1, 21, 1, 11, 9, 23, 1, 16, 1, 25, 17, 13, 1, 27, 11, 8, 19, 29, 1, 20, 1, 31, 9, 1, 13, 33, 1, 17, 23, 35, 1, 9, 1, 37, 25, 19, 11, 39, 1, 16, 1, 41, 1, 28, 17, 43
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,6
|
|
|
EXAMPLE
| Since A034684(6) = 2, the value of a(6) here is 6/2 = 3.
|
|
|
PROG
| (PARI) A052125(n) = {local(f, m); if(n==1, 1, f=factor(n); m=f[1, 1]^f[1, 2]; for(i=1, matsize(f)[1], m=min(m, f[i, 1]^f[i, 2])); n/m)} [From Michael B. Porter (michael_b_porter(AT)yahoo.com), Jan 28 2010]
|
|
|
CROSSREFS
| Cf. A034684.
Sequence in context: A086767 A119288 A028234 * A081060 A131268 A109221
Adjacent sequences: A052122 A052123 A052124 * A052126 A052127 A052128
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| James A. Sellers (sellersj(AT)math.psu.edu), Jan 21 2000
|
| |
|
|
