OFFSET
0,4
FORMULA
EXAMPLE
[ 0] 1;
[ 1] 1, 1;
[ 2] 2, 2, 1;
[ 3] 3, 3, 6, 1;
[ 4] 2, 2, 1, 6, 1;
[ 5] 5, 5, 10, 15, 10, 1;
[ 6] 6, 6, 3, 2, 3, 30, 1;
[ 7] 7, 7, 14, 21, 14, 35, 42, 1;
[ 8] 2, 2, 1, 6, 1, 10, 3, 14, 1;
[ 9] 3, 3, 6, 1, 6, 15, 2, 21, 6, 1;
[10] 10, 10, 5, 30, 5, 2, 15, 70, 5, 30, 1;
[11] 11, 11, 22, 33, 22, 55, 66, 77, 22, 33, 110, 1;
MAPLE
MATHEMATICA
nn = 12; Do[Set[s[i], FactorInteger[i][[All, 1]]], {i, 0, nn}]; s[0] = {1}; Table[Times @@ SymmetricDifference[s[k], s[n]], {n, 0, nn}, {k, 0, n}] // Flatten (* Michael De Vlieger, Jul 11 2024 *)
PROG
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Peter Luschny, Jul 10 2024
STATUS
approved