Приведём решение на языке Python.

def cislo3or7(i):
return (str(i).count('3')+str(i).count('7'))>0

count = 0
n = 5000001
while count 1:
while t%k == 0:
delitel.append(k)
t //=k
k+=1
if len(delitel) == 3:
if cislo3or7(delitel[0]) and cislo3or7(delitel[1]) and cislo3or7(delitel[2]):
print(n)
count += 1
n += 1

Ответ: 5000001 5000003 5000007 5000013 5000019.

Приведём решение Сергея Донец на языке PascalABC.NET.

uses School;
begin
var n := 5_000_001;
var k := 0;
while k f.Digits.Any(d-> d in [3, 7]))
then begin k+=1;Println(n); end;
n += 1; end;
end.