OFFSET
1,2
PROG
(PARI) {map(n) = local(d); d=divisors(n); if(#d<3, 0, d[1]=""; eval(concat(vecextract(d, concat("..", #d-1)))))} {m=200; r=-1; for(n=1, m, if(r<(a=map(n)), r=a; print1(r, ", ")))}
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Klaus Brockhaus, Aug 05 2007
STATUS
approved