Fastest Home Prime Generator
Mathematica, HP(80) in ~0.88s

NestWhile[
  FromDigits[
    Flatten[IntegerDigits /@ 
      ConstantArray @@@ FactorInteger[#]]] &amp;, #, CompositeQ] &amp;


Anonymous function. Takes a number as input and returns a number as output.