cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-2 of 2 results.

A268020 The number of spheres on which the points defined by A222268 lie.

Original entry on oeis.org

3, 29, 299, 2177, 10482, 41348
Offset: 2

Views

Author

Clive Tooth, Feb 28 2016

Keywords

Comments

Given a cubic n X n X n grid of points, a collection of lines is produced by constructing a line through every pair of points. A222267 gives the count of such lines. A collection of points is produced by taking the points of intersection of those lines. A222268 gives the count of such points. Each point in such a collection will lie on a particular sphere centered at the center of the cubic grid. a(n) is the total number of such spheres, including the radius-zero sphere.

Examples

			A 2 X 2 X 2 grid of points defines 28 distinct lines which intersect in a total of 15 points (including the original 8 points). One of these points is the center of the grid, 8 of them are the vertices of the cube and 6 are the face-centers of the cube. So, a(2) = 3.
		

Crossrefs

A222267 The number of distinct lines defined by an n X n X n grid of points.

Original entry on oeis.org

28, 253, 1492, 5485, 17092, 41905, 95140, 191773, 364420, 638785, 1085500, 1745389, 2743084, 4136257, 6101740, 8747821, 12377764, 17066737, 23287564, 31174813, 41276548, 53767873, 69544324, 88722973, 112450132, 140859361, 175324636
Offset: 2

Views

Author

Clive Tooth, Feb 13 2013

Keywords

Comments

Given a cubic n X n X n grid of points, a(n) is the number of distinct lines produced by constructing a line through every pair of points.
Define the grid as consisting of the set of n^3 distinct points whose x, y and z coordinates are all integers in [0..n-1]. Assign to each grid point a distinct index j = x + n*y + n^2*z. For each pair of grid points P_A and P_B (where P_A is the one with the lower index j), let L be the line that passes through both grid points, and let S be the segment of that line from P_A to P_B. Examine each of the C(n^3,2) pairs of distinct grid points P_A and P_B; a(n) is the number of those pairs for which S does not pass through any other grid points between P_A and P_B, nor does L pass through any other grid points beyond the P_A end of S. - Jon E. Schoenfield, Sep 21 2013
Conjecture: a(n) is approximately 0.3639537*n^6, with a relative error of about 10^-5 when n is near 200. - Clive Tooth, Mar 03 2016

Examples

			Each of the 28 pairs of points on a 2 X 2 X 2 grid of points defines a distinct line, so a(2) = 28.
Of the 351 pairs of points on a 3 X 3 X 3 grid, there are only 253 distinct lines, so a(3) = 253.
		

Crossrefs

Cf. A018808, A222268 (number of intersection points of these lines).

Programs

  • Mathematica
    mq[{x1_, y1_}, {x2_, y2_}] := If[x1 == x2, {x1}, {y2 - y1, x2*y1 - x1*y2}/(x2 - x1)]; two[n_] := Block[{p = Tuples[Range@n, 2]},
    Length@Union@Flatten[Table[mq[p[[i]], p[[j]]], {i, 2, n^2}, {j, i - 1}], 1]]; coef[a_, b_] := Block[{d = b - a}, If[d[[1]] == 0, {0}, d *= Sign@d[[1]]/GCD @@ d; {a - d*a[[1]]/d[[1]], d}]]; a[n_] := Block[{p = Tuples[Range@n, 3]}, n*two[n] - 1 + Length@Union@ Flatten[Table[coef[p[[i]], p[[j]]], {i, 2, n^3}, {j, i - 1}], 1]]; Table[v = a[n]; Print@v; v, {n, 2, 12}] (* Giovanni Resta, Feb 14 2013 *)

Extensions

a(6)-a(12) from Giovanni Resta, Feb 14 2013
a(13)-a(28) from Jon E. Schoenfield, Sep 16 2013
Showing 1-2 of 2 results.