STATUS
reviewed
approved
The OEIS is supported by the many generous donors to the OEIS Foundation.
Revision History for A075383
(Bold, blue-underlined text is an addition; faded, red-underlined text is aShowing entries 1-10 | older changes
Rearrangement of natural numbers so that next n numbers are each divisible by n.
(history; published version)
(history; published version)
STATUS
proposed
reviewed
STATUS
editing
proposed
MATHEMATICA
row[1] = {1}; row[n_] := row[n] = (For[rows = Join[row /@ Range[n-1]]; ro = {}; k = n, Length[ro] < n, k = k+n, If[FreeQ[rows, k], AppendTo[ro, k]]]; ro); Array[row, 12] // Flatten (* Jean-François Alcover, Apr 28 2017 *)
STATUS
approved
editing
STATUS
editing
approved
NAME
Rearrangement of natural numbers so that next n numbers are each divisible by n.
STATUS
approved
editing
STATUS
reviewed
approved
STATUS
proposed
reviewed
STATUS
editing
proposed
EXAMPLE
1;
2, 4;
3, 6, 9;
8, 12, 16, 20;
5, 10, 15, 25, 30;
18, 24, 36, 42, 48, 54;
7, 14, 21, 28, 35, 49, 56;
32, ...
STATUS
approved
editing