login
Triangle read by rows in which the n-th row contains n numbers noncoprime to n and not occurring in earlier rows.
7

%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