Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10},
{Null, SparseArray[Automatic, {10, 10}, 0,
{1, {{0, 3, 7, 9, 12, 13, 17, 18, 23, 27, 30}, {{2}, {8}, {9}, {1}, {4}, {6}, {10},
{4}, {10}, {2}, {3}, {8}, {9}, {2}, {8}, {9}, {10}, {8}, {1}, {4}, {6}, {7}, {9},
{1}, {5}, {6}, {8}, {2}, {3}, {6}}}, Pattern}]}]