|
Search: id:A073762
|
|
|
| A073762 |
|
Smallest unrelated number belonging to a term of this sequence equals 8. |
|
+0
4
|
|
| 12, 36, 60, 84, 108, 132, 156, 180, 204, 228, 252, 276, 300, 324, 348, 372, 396, 420, 444, 468, 492, 516, 540, 564, 588, 612, 636, 660, 684, 708, 732, 756, 780, 804, 828, 852, 876, 900, 924, 948, 972, 996
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Tanya Khovanova, Recursive Sequences
|
|
FORMULA
|
Min{URS[m]}=8, where UNR[m]=Complement[RRS[m], Divisors[m]].
a(n) = 24n-12. - Max Alekseyev, Mar 03 2007
|
|
EXAMPLE
|
URSet[12]={8,9,10} so 12 is here.
|
|
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]]; Do[s=Min[unr[n]]; If[Equal[s, 8], Print[n]], {n, 1, 1000}]
|
|
CROSSREFS
|
Cf. A045763, A073758-A073761, A016825.
Sequence in context: A039317 A063298 A055926 this_sequence A043140 A043920 A049598
Adjacent sequences: A073759 A073760 A073761 this_sequence A073763 A073764 A073765
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Aug 08 2002
|
|
|
Search completed in 0.002 seconds
|
