See it work

-- Writestop: how close each ID sequence and transaction ID counter is to its limit.
-- Read-only. Run it in each database you want checked; it never reads table rows.
WITH fed AS (  -- sequences and the columns they feed: serial, identity, nextval() defaults
  SELECT objid AS seq, refobjid AS tbl, refobjsubid AS col FROM pg_depend
  WHERE classid = 'pg_class'::regclass AND refclassid = 'pg_class'::regclass
    AND deptype IN ('a', 'i') AND refobjsubid > 0
  UNION
  SELECT d.refobjid, ad.adrelid, ad.adnum
  FROM pg_depend d JOIN pg_attrdef ad ON ad.oid = d.objid
  WHERE d.classid = 'pg_attrdef'::regclass AND d.refclassid = 'pg_class'::regclass
), ids AS (
  SELECT f.seq, f.tbl, sn.nspname AS seq_schema, q.relname AS seq_name,
         format('%I.%I.%I', tn.nspname, t.relname, a.attname) AS name, a.atttypid
  FROM fed f
  JOIN pg_class q ON q.oid = f.seq AND q.relkind = 'S'
  JOIN pg_namespace sn ON sn.oid = q.relnamespace
  JOIN pg_class t ON t.oid = f.tbl AND NOT t.relispartition
  JOIN pg_namespace tn ON tn.oid = t.relnamespace
  JOIN pg_attribute a ON a.attrelid = f.tbl AND a.attnum = f.col
  WHERE a.atttypid IN ('int2'::regtype, 'int4'::regtype, 'int8'::regtype)
), win AS (
  SELECT coalesce(stats_reset, pg_postmaster_start_time()) AS since
  FROM pg_stat_database WHERE datname = current_database()
), slru AS (  -- commit-log pages started: block_size * 4 XIDs, or block_size / 4 MXIDs, each
  SELECT CASE WHEN name IN ('Xact', 'transaction') THEN 'xid' ELSE 'mxid' END AS kind,
         blks_zeroed * CASE WHEN name IN ('Xact', 'transaction') THEN 4.0 ELSE 0.25 END
           * current_setting('block_size')::int AS ids,
         coalesce(stats_reset, pg_postmaster_start_time()) AS since
  FROM pg_stat_slru
  WHERE name IN ('Xact', 'transaction', 'MultiXactOffset', 'multixact_offset')
)
SELECT 'id' AS kind, i.name, format_type(i.atttypid, NULL) AS type,
       format('%I.%I', i.seq_schema, i.seq_name) AS sequence,
       s.last_value AS used,
       least(s.max_value, CASE i.atttypid WHEN 'int2'::regtype THEN 32767
         WHEN 'int4'::regtype THEN 2147483647 ELSE 9223372036854775807 END) AS max,
       round((SELECT coalesce(sum(st.n_tup_ins), 0) FROM pg_stat_all_tables st
              WHERE st.relid IN (SELECT coalesce(p.relid, i2.tbl) FROM ids i2
                LEFT JOIN LATERAL pg_partition_tree(i2.tbl) p ON true WHERE i2.seq = i.seq))
             * 86400 / greatest(extract(epoch FROM now() - w.since), 1))::bigint AS per_day,
       NULL::bigint AS vacuum_at,
       to_char(w.since AT TIME ZONE 'UTC', 'YYYY-MM-DD HH24:MI "UTC"') AS since
FROM ids i
JOIN pg_sequences s ON s.schemaname = i.seq_schema AND s.sequencename = i.seq_name
CROSS JOIN win w
WHERE s.increment_by > 0
UNION ALL
-- Postgres stops assigning XIDs and MXIDs at an age of 2^31 - 1 - 3,000,000.
SELECT z.kind, d.datname, NULL, NULL,
       CASE z.kind WHEN 'xid' THEN age(d.datfrozenxid) ELSE mxid_age(d.datminmxid) END,
       2144483647,
       round(z.ids * 86400 / greatest(extract(epoch FROM now() - z.since), 1))::bigint,
       current_setting(CASE z.kind WHEN 'xid' THEN 'autovacuum_freeze_max_age'
         ELSE 'autovacuum_multixact_freeze_max_age' END)::bigint,
       to_char(z.since AT TIME ZONE 'UTC', 'YYYY-MM-DD HH24:MI "UTC"')
FROM pg_database d CROSS JOIN slru z
WHERE d.datname = current_database()
ORDER BY 1, 2;