OFFSET
1,1
COMMENTS
EXAMPLE
A070194 begins with 1,2,1,4,... with offset 3, so a(4)=6.
MATHEMATICA
gw[x_] := Table[GCD[w, x], {w, 1, x}] rrs[x_] := Flatten[Position[gw[x], 1]] dr[x_] := Delete[RotateLeft[rrs[x]]-rrs[x], -1] t=Table[0, {25}]; Do[s=Max[dr[n]]; If[s<26&&t[[s]]==0, t[[s]]=n], {n, 3, 10000}]; t (* Labos Elemer, Oct 09 2002 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
John W. Layman, May 17 2002
STATUS
approved