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