Good point.
set serverout on
declare
l_year int := 2020;
l_date date;
begin
l_date := trunc(to_date(to_char(l_year+1),'YYYY'),'YYYY')-1;
while to_char(l_date,'IW') = '01'
loop
l_date := l_date - 7;
end loop;
dbms_output.put_line(l_date||': Week'||to_char(l_date,'IW'));
end;
/