A006749 = Cases[Import["https://oeis.org/A006749/b006749.txt", "Table"], {_, _}][[All, 2]]; A006746 = Cases[Import["https://oeis.org/A006746/b006746.txt", "Table"], {_, _}][[All, 2]]; A006748 = Cases[Import["https://oeis.org/A006748/b006748.txt", "Table"], {_, _}][[All, 2]]; A006747 = Cases[Import["https://oeis.org/A006747/b006747.txt", "Table"], {_, _}][[All, 2]]; A056877 = Cases[Import["https://oeis.org/A056877/b056877.txt", "Table"], {_, _}][[All, 2]]; A056878 = Cases[Import["https://oeis.org/A056878/b056878.txt", "Table"], {_, _}][[All, 2]]; A144553 = Cases[Import["https://oeis.org/A144553/b144553.txt", "Table"], {_, _}][[All, 2]]; A142886 = Cases[Import["https://oeis.org/A142886/b142886.txt", "Table"], {_, _}][[All, 2]]; a[n_] := 4*A006749[[n]] + 3*A006746[[n]] + 2*A006748[[n]] + 2*A006747[[n]] + 2*A056877[[n]] + A056878[[n]] + A144553[[n]] + A142886[[n + 1]]; a /@ Range[1, 28]