OFFSET
1,4
EXAMPLE
Triangle starts:
1;
1;
1, 2;
1, 3;
1, 3;
1, 5;
1, 2, 4;
1, 7;
1, 2, 3, 6;
...
MAPLE
A130158 := proc(nmax) local a130157, a, n, anext, i ; a130157 := [1] ; a := [] ; while nops(a) < nmax do n := nops(a130157)+1 ; a := [op(a), op(numtheory[divisors](op(-1, a130157)))] ; anext :=0 ; for i from 1 to nops(a130157) do if gcd(op(i, a130157), op(n-1, a)) = 1 then anext := anext+1 ; fi ; od ; a130157 := [op(a130157), anext] ; od ; RETURN(a) ; end: A130158(80) ; # R. J. Mathar, Jun 12 2007
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Leroy Quet, May 13 2007
EXTENSIONS
More terms from R. J. Mathar, Jun 12 2007
Edited by Charles R Greathouse IV, Apr 30 2010
Edited by N. J. A. Sloane, May 09 2010
STATUS
approved