OFFSET
1,1
PROG
(PARI)
list(lim)=my(v=List(), t); forprime(p=2, sqrt(lim), t=p; forprime(q=p, lim\t, listput(v, t*q))); vecsort(Vec(v)) \\ From A001358
b=list(1030000); s=[]; for(n=1, #b, if(#vecsort(eval(Vec(Str(b[n]))), , 8)==7, s=concat(s, b[n]))); s
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Colin Barker, Jan 14 2014
STATUS
approved