The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A075383 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A075383

Rearrangement of natural numbers so that next n numbers are each divisible by n.
(history; published version)

#28 by Alois P. Heinz at Fri Apr 28 12:02:25 EDT 2017

STATUS

reviewed

approved

#27 by Wesley Ivan Hurt at Fri Apr 28 09:36:20 EDT 2017

STATUS

proposed

reviewed

#26 by Jean-François Alcover at Fri Apr 28 09:33:55 EDT 2017

STATUS

editing

proposed

#25 by Jean-François Alcover at Fri Apr 28 09:33:50 EDT 2017

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

#24 by N. J. A. Sloane at Wed Jun 08 14:21:44 EDT 2016

STATUS

editing

approved

#23 by N. J. A. Sloane at Wed Jun 08 14:21:42 EDT 2016

NAME

Rearrangement of natural numbers so that next n numbers are each divisible by n.

STATUS

approved

editing

#22 by Michel Marcus at Tue Dec 15 00:58:44 EST 2015

STATUS

reviewed

approved

#21 by G. C. Greubel at Tue Dec 15 00:47:03 EST 2015

STATUS

proposed

reviewed

#20 by Jon E. Schoenfield at Mon Dec 14 23:43:45 EST 2015

STATUS

editing

proposed

#19 by Jon E. Schoenfield at Mon Dec 14 23:43:42 EST 2015

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