OFFSET
1,3
COMMENTS
Replace 0 with 1 in A127093. - Omar E. Pol, Apr 21 2019
LINKS
I. V. Serov, Rows n = 1..131 of triangle, flattened
FORMULA
EXAMPLE
Triangle begins:
1,
1, 2,
1, 1, 3,
1, 2, 1, 4,
1, 1, 1, 1, 5,
1, 2, 3, 1, 1, 6,
1, 1, 1, 1, 1, 1, 7,
1, 2, 1, 4, 1, 1, 1, 8,
1, 1, 3, 1, 1, 1, 1, 1, 9,
1, 2, 1, 1, 5, 1, 1, 1, 1,10,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,
1, 2, 3, 4, 1, 6, 1, 1, 1, 1, 1,12,
...
MATHEMATICA
Table[Map[If[Mod[n, #] == 0, #, 1] &, Range@ n], {n, 13}] // Flatten (* Michael De Vlieger, Apr 23 2019 *)
PROG
(PARI) row(n) = vector(n, k, if ((n % k) == 0, k, 1)); \\ Michel Marcus, Apr 21 2019
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
I. V. Serov, Apr 20 2019
STATUS
approved