A157639 Least number of lattice points from which every point of a square n X n lattice is visible.
1, 1, 1, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4
Offset: 1
Examples
a(3) = 1 because all 9 points are visible from the central (2,2) point. a(4) = 2 because all 16 points are visible from (1,2) or (2,1). a(6) = 3 because all 36 points are visible from (1,1), (1,2), or (2,1). a(24)= 4 because all 576 points are visible from (1,1), (1,2), (1,3), or (2,24).
Links
- Sukumar Das Adhikari and Andrew Granville, Visibility in the Plane
- Eric Weisstein's World of Mathematics, Visible Point
Crossrefs
Cf. A141224.
Programs
-
Mathematica
Table[sees=Table[{},{n^2}]; Do[pt1=(c-1)*n+d; lst={}; Do[pt2=(a-1)*n+b; If[GCD[c-a,d-b]<2, AppendTo[lst,pt2]], {a,n}, {b,n}]; sees[[pt1]]=lst, {c,n}, {d,n}]; done=False; k=0; While[ !done, k++; len=Binomial[n^2,k]; i=0; While[i
Extensions
Terms after a(24) from Jon E. Schoenfield, Aug 03 2009
Comments