|
Search: id:A073759
|
|
|
| A073759 |
|
Largest number neither a divisor of nor relatively prime to n, or 0 if no such number exists. |
|
+0
4
|
|
| 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; listen)
|
|
|
OFFSET
|
1,6
|
|
|
COMMENT
|
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 this_sequence A066760 A102393 A019833
Adjacent sequences: A073756 A073757 A073758 this_sequence A073760 A073761 A073762
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Aug 15 2002
|
|
|
Search completed in 0.002 seconds
|
