OFFSET
1,2
LINKS
Herbert Kociemba, The Spiral of Theodorus
MATHEMATICA
k=minDist=1; lst={}; K=-2.1577829966594462209291427868295777235; num[n_] := Module[{a=-(K/2)+n Pi, b}, b=a^2-1/6; If[Floor[b]==Floor[b+1/(144 a^2)], Floor[b], Undefined]] While[k<40000000, n=num[k]; If[!NumberQ[n], Print[k, " Stop"]; Break[]]; a=2Pi-Mod[K+2 Sqrt[n]+1/(6 Sqrt[n]), 2Pi]; b=Mod[K+2 Sqrt[n+1]+1/(6 Sqrt[n+1]), 2Pi]; If[a<minDist && a<b, AppendTo[lst, k]; minDist=a; ]; If[b<minDist && b<a, AppendTo[lst, k]; minDist=b; ]; k++]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Herbert Kociemba, Jul 18 2013
STATUS
approved