# The fly straight dammit sequence graph

## Amazing Graphs

So I tried to plot it in GeoGebra using the definition provided here: https://oeis.org/A133058 However, it seems that it is very hard for GeoGebra (classic 5) to handle more than 700 points from the sequence. Anyway, try the following GeoGebra script in your desktop.

## GeoGebra Script 1

```#A:= 1: A:= 1: #for n from 2 to 1200 do #g:= igcd(A[n-1], n); #A[n]:= A[n-1]/g + If(g=1, n+1, 0); n = 700 Execute(Join({"A0 = 1", "A1 = 1"}, Sequence("A"+i+" = A"+(i-1)+"/GCD(A"+(i-1)+", "+(i)+")+If(GCD(A"+(i-1)+", "+(i)+")==1, "+i+"+1, 0)", i, 2, n))) L_1 = CellRange(A1, A700) L_2 = Sequence((k, Element(L_1, k)), k, 1, Length(L_1)) ```

## Contribution

Thanks to Roman Chijner's suggestion there is a more efficient way to calculate the terms of the sequence for n>700.

## GeoGebra Script 2

```n=1200 A0 = 1 A1 = 1 Execute(Sequence("A"+i+" = CopyFreeObject(A"+(i-1)+"/GCD(A"+(i-1)+", "+(i)+")+If(GCD(A"+(i-1)+", "+(i)+")==1, "+i+"+1, 0))", i, 2, n)) L_1 = CellRange(A1, A1200) L_2 = Sequence((k, Element(L_1, k)), k, 1, Length(L_1)) ```