OFFSET
1,3
LINKS
John Tyler Rascoe, Rows n = 1..141, flattened
EXAMPLE
The 6th triangular number is 21. So row 6 gives the six smallest positive integers which are coprime to 21: (1,2,4,5,8,10).
From John Tyler Rascoe, Mar 20 2024: (Start)
Triangle begins:
1;
1, 2;
1, 5, 7;
1, 3, 7, 9;
1, 2, 4, 7, 8;
1, 2, 4, 5, 8, 10;
(End)
MAPLE
MATHEMATICA
A129321row[n_] := Block[{t = n*(n+1)/2, c = 0}, Table[While[!CoprimeQ[++c, t]]; c, n]]; Array[A129321row, 10] (* Paolo Xausa, Mar 20 2024 *)
PROG
(PARI)
A129321row_n(n) ={my(r = vector(n), x=1, i=1 ); while(i<n+1, if(gcd(x, n*(n+1)/2)==1, r[i] = x; i+=1, ); x+=1); r} \\ John Tyler Rascoe, Mar 20 2024
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Leroy Quet, May 26 2007
STATUS
approved