|
| |
|
|
A073759
|
|
Largest number neither a divisor of nor relatively prime to n, or 0 if no such number exists.
|
|
3
| |
|
|
0, 0, 0, 0, 0, 4, 0, 6, 6, 8, 0, 10, 0, 12, 12, 14, 0, 16, 0, 18, 18, 20, 0, 22, 20, 24, 24, 26, 0, 28, 0, 30, 30, 32, 30, 34, 0, 36, 36, 38, 0, 40, 0, 42, 42, 44, 0, 46, 42, 48, 48, 50, 0, 52, 50, 54, 54, 56, 0, 58, 0, 60, 60, 62, 60, 64, 0, 66, 66, 68, 0, 70, 0, 72, 72, 74, 70, 76
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,6
|
|
|
COMMENTS
| Largest "unrelated" number to n.
|
|
|
EXAMPLE
| n = 20: unrelated set to 20 = {6,8,12,14,15,16,18},largest is a(20) = 18.
|
|
|
MATHEMATICA
| tn[x_] := Table[w, {w, 1, x}]; di[x_] := Divisors[x]; dr[x_] := Union[di[x], rrs[x]]; rrs[x_] := Flatten[Position[GCD[tn[x], x], 1]]; unr[x_]: =Complement[tn[x], dr[x]]; Table[Max[unr[w]], {w, 1, 128}]; (for empty sets 0 was used).
|
|
|
CROSSREFS
| Cf. A045763, A073758.
Sequence in context: A073758 A133995 A019629 * A066760 A102393 A019833
Adjacent sequences: A073756 A073757 A073758 * A073760 A073761 A073762
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Aug 15 2002
|
| |
|
|
