This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A268239 Given an n X n X n grid of points, a(n) is the maximum number of points that can be painted red so that, if any 8 of the red points are chosen, they do not form a cube with sides parallel to the grid. 3
 0, 1, 7, 25, 56, 109, 187, 295, 440 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,3 COMMENTS Using a greedy coloring gives a(4) >= 49. LINKS Giovanni Resta, Illustration of a(3)-a(6) EXAMPLE For n=3, we may color 25 of the 27 points red (X) without any of 25 red points forming a cube. Color the three slices as follows: XXX XXX XXX XXX X.X XXX XXX XXX xx. MATHEMATICA a[n_] := Block[{m, qq, nv = n^3, ne}, qq = Flatten[1 + Table[n^2*z + n*x + y + s*Plus @@@ Tuples[{{0, 1}, {0, n}, {0, n^2}}], {x, 0, n-2}, {y, 0, n-2}, {z, 0, n-2}, {s, Min[n-x, n-y, n-z] - 1}], 3]; ne = Length@ qq; m = Table[0, {ne}, {nv}]; Do[m[[i, qq[[i]]]] = 1, {i, ne}]; Total@ Quiet@ LinearProgramming[ Table[-1, {nv}], m, Table[{7, -1}, {ne}], Table[{0, 1}, {nv}], Integers]]; Table[ a[n], {n, 0, 6}] (* Giovanni Resta, Feb 06 2016 *) CROSSREFS This is a three-dimensional analog of A227133. Sequence in context: A155230 A155231 A155261 * A110672 A213481 A266709 Adjacent sequences:  A268236 A268237 A268238 * A268240 A268241 A268242 KEYWORD nonn,more AUTHOR Benoit Cloitre and N. J. A. Sloane, Feb 05 2016 EXTENSIONS a(4)-a(6) from Giovanni Resta, Feb 06 2016 a(7)-a(8) from Paul Tabatabai using integer programming, Sep 27 2018 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 20 12:47 EDT 2019. Contains 328257 sequences. (Running on oeis4.)