OFFSET

1,3

LINKS

Ivan Neretin, Table of n, a(n) for n = 1..5050

EXAMPLE

1;

1, 2;

1, 3, 6;

1, 2, 4, 6;

1, 5,10,15,20;

1, 2, 3, 4, 6, 8;

1, 7,14,21,28,35,42;

...

MAPLE

arow:= proc(n) local L;

L:= select(t -> igcd(t, n) > 1, [$1..n^2]);

1, op(L[1..n-1]);

end proc:

seq(arow(n), n=1..20); # Robert Israel, May 21 2015

MATHEMATICA

Table[Join[{1}, Select[Range[n^2], GCD[n, #] > 1 &, n - 1]], {n, 1, 13}] // Flatten (* Ivan Neretin, May 21 2015 *)

PROG

(PARI) for(n=1, 5, print1("\n1"); for(i=1, n-1, print1(", "i*n))) \\ Charles R Greathouse IV, May 21 2015

CROSSREFS

KEYWORD

AUTHOR

Amarnath Murthy, Mar 27 2003

EXTENSIONS

More terms from Ryan Propper, Nov 05 2005

Name edited by Robert Israel, May 21 2015

STATUS

approved