When arthur heinemann is the writer who is the director?
CREATE TABLE "table1_1854728_2" (
  "no_in_series" text,
  "title" text,
  "directed_by" text,
  "written_by" text,
  "air_date" text,
  "production_code" text
);
SELECT "directed_by" FROM "table1_1854728_2" WHERE "written_by"='Arthur Heinemann';