%I #9 Jun 05 2015 05:18:17
%S 1,2,4,3,6,9,8,10,12,14,5,15,20,25,30,16,18,21,22,24,26,7,28,35,42,49,
%T 56,63,32,34,36,38,40,44,46,48,27,33,39,45,51,54,57,60,66,50,52,55,58,
%U 62,64,65,68,70,72,11,77,88,99,110,121,132,143,154,165,176,69,74,75,76
%N Triangle read by rows in which the n-th row contains n numbers noncoprime to n and not occurring in earlier rows.
%C Rearrangement of natural numbers so that next n numbers are not coprime to n.
%H Ivan Neretin, <a href="/A095167/b095167.txt">Rows n = 1..141, flattened</a>
%e 1
%e 2 4
%e 3 6 9
%e 8 10 12 14
%e 5 15 20 25 30
%e 16 18 21 22 24 26
%e 7 28 35 42 49 56 63
%e ...
%t Fold[Function[{a, n}, Join[a, Select[Complement[Range[Max[a] + n^2], a], GCD[n, #] > 1 &, n]]], {1}, Range[2, 12]] (* _Ivan Neretin_, Jun 05 2015 *)
%o (PARI) S=Set();for(n=2,20,k=0;m=1;while(k<n,m++;if(!setsearch(S,m)&&gcd(m,n)>1,S=setunion(S,[m]);print1(" ",m);k++))) (Alekseyev)
%Y Cf. A095168, A095169, A095170, A095171.
%Y Cf. A081964 (coprime instead of non-coprime).
%K nonn,tabl
%O 1,2
%A _Amarnath Murthy_, Jun 01 2004
%E More terms from _Max Alekseyev_, Jun 30 2005