OFFSET
1,2
LINKS
Paul Tek, Table of n, a(n) for n = 1..10000
Paul Tek, PERL program for this sequence
EXAMPLE
The triangle begins:
1;
2, 3;
4, 5, 7;
6, 11, 13, 17;
8, 9, 19, 23, 25;
10, 21, 29, 31, 37, 41;
...
MAPLE
S:=[$1..1000]: Res:= NULL:
for n from 1 to 20 do
A:= [S[1]]; R:= 1; count:= 1;
for k from 2 while count < n do
if andmap(t -> igcd(t, S[k])=1, A) then count:= count+1; A:= [op(A), S[k]]; R:= R, k; fi
od;
S:= subsop(op(map(t -> t=NULL, [R])), S);
Res:= Res, op(A);
od:
Res; # Robert Israel, Dec 04 2022
PROG
(Perl) # See Links section.
CROSSREFS
AUTHOR
Amarnath Murthy, Oct 01 2002
EXTENSIONS
More terms from David Wasserman, Jan 29 2005
Crossrefs added by Paul Tek, Oct 24 2015
STATUS
approved