select max(a.sequence#) s
from v$archived_log a where a.DEST_ID = 1 and a.applied = 'YES' and a.STATUS != 'D'
 and a.RESETLOGS_ID in
  (select i.RESETLOGS_ID from V$DATABASE_INCARNATION i where i.STATUS = 'CURRENT')
 and a.SEQUENCE# < (select max(m.sequence#) s
  from v$archived_log m where m.DEST_ID = 1 and m.applied = 'YES' and m.STATUS != 'D'
   and m.RESETLOGS_ID in
  (select i.RESETLOGS_ID from V$DATABASE_INCARNATION i where i.STATUS = 'CURRENT') );

delete noprompt archivelog until sequence $seq;