query: SELECT ?item  
    ?ct (ROUND( 100 * ?ct / ?all ) as ?pc_all)  ?all 
    ?ct1 (ROUND( 100 * ?ct1 / ?allunique ) as ?pc_allunique) ?allunique
  WITH
  {  SELECT (COUNT( DISTINCT ?a ) as ?all) { ?a wdt:P641 wd:Q847 . FILTER NOT EXISTS { ?a wdt:P31 wd:Q5 } } } as %inc
  WITH
  {  SELECT (COUNT( DISTINCT ?a1 ) as ?allunique) { ?a1 wdt:P641 wd:Q847 . FILTER NOT EXISTS { ?a1 wdt:P31 wd:Q5 } . { ?a1 wikibase:sitelinks 1 } UNION { ?a1 wikibase:sitelinks 0 }  } } as %inc2
  WHERE
  {
      INCLUDE %inc 
      INCLUDE %inc2            
      {
      {
          SELECT ?wiki (COUNT(DISTINCT ?lh) as ?ct)
          WHERE
          {
      	  ?lh wdt:P641 wd:Q847 . FILTER NOT EXISTS { ?lh wdt:P31 wd:Q5 } .
      	  [] schema:about ?lh ; schema:isPartOf ?wiki
          }
  	    GROUP BY ?wiki
          HAVING(?ct > 14 )
  	}    
  	OPTIONAL {
          SELECT ?wiki (COUNT(DISTINCT ?lh) as ?ct1)
          WHERE
          {
      	  ?lh wdt:P641 wd:Q847 . FILTER NOT EXISTS { ?lh wdt:P31 wd:Q5 } .
            ?lh wikibase:sitelinks 1 .
      	  [] schema:about ?lh ; schema:isPartOf ?wiki
          }
  	    GROUP BY ?wiki
          HAVING(?ct1 > 0 )
  	}
  	?item wdt:P856 ?wiki .
      } UNION { SELECT (wd:Q31747418 as ?item) (COUNT( DISTINCT ?b ) as ?ct) (?ct as ?ct1) { ?b wdt:P641 wd:Q847 ; wikibase:sitelinks 0 FILTER NOT EXISTS { ?b wdt:P31 wd:Q5 }  } } 
  }
  ORDER BY DESC (?ct)
  LIMIT 100