OFFSET
1,3
LINKS
Michel Marcus, Rows n=1..200 of triangle, flattened
Eric Weisstein's World of Mathematics, Divisor
FORMULA
EXAMPLE
Triangle begins
1;
1,2;
1,2,4;
1,2,3,6;
1,2,4,8,16;
1,2,3,4,6,12;
...
MATHEMATICA
Function[s, Map[Lookup[s, #] &, Range[First@ Complement[Range@ Max@ #, #] - 1]] &@ Keys@ s]@ Map[Divisors@ First@ # &, KeySort@ PositionIndex@ Array[DivisorSigma[0, #] &, 5000]] // Flatten (* Michael De Vlieger, Nov 15 2020 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Amarnath Murthy, Mar 28 2003
EXTENSIONS
More terms from Sam Alexander, Oct 21 2003
More terms from Michel Marcus, Nov 15 2020
STATUS
approved