|
| |
|
|
A094404
|
|
Numerators of low-water marks of mu(n)/n, where mu(n) is A002034.
|
|
5
| |
|
|
1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,8
|
|
|
COMMENTS
| Denominators are A094372 and positions are A094371.
|
|
|
LINKS
| Eric Weisstein's World of Mathematics, Smarandache Function
|
|
|
EXAMPLE
| 1, 1/2, 1/3, 1/4, 1/6, 1/8, 1/12, 3/40, 1/15, 1/16, ...
|
|
|
MATHEMATICA
| Smarandache[1] := 1; Smarandache[n_] := Max[Smarandache @@@ FactorInteger[n]]; Smarandache[p_, 1] := p; Smarandache[p_, alpha_] := Smarandache[p, alpha] = Module[{a, k, r, i, nu, k0 = alpha(p - 1)}, i = nu = Floor[Log[p, 1 + k0]]; a[1] = 1; a[n_] := (p^n - 1)/(p - 1); k[nu] = Quotient[alpha, a[nu]]; r[nu] = alpha - k[nu]a[nu]; While[r[i] > 0, k[i - 1] = Quotient[r[i], a[i - 1]]; r[i - 1] = r[i] - k[i - 1]a[i - 1]; i-- ]; k0 + Plus @@ k /@ Range[i, nu]]; M = {}; a = 2; Do[ s = Smarandache[n]; If[s/n < a, a = s/n; AppendTo[M, a]]], {n, 40320}]; Numerator[M] (from Jonathan Sondow (jsondow(AT)alumni.princeton.edu), Apr 28 2004, revised by EWW May 17 2004)
|
|
|
CROSSREFS
| Cf. A002034, A094371, A094372, A094634.
Sequence in context: A205535 A172972 A175739 * A103756 A103755 A202150
Adjacent sequences: A094401 A094402 A094403 * A094405 A094406 A094407
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Eric Weisstein (eric(AT)weisstein.com), Apr 29, 2004
|
| |
|
|
