OFFSET
1,1
LINKS
Patrick De Geest, Home Primes
MATHEMATICA
numberSteps[x_]:=Module[{n, steps, digits, i}, n=x; steps=0; While[ !PrimeQ[n]&&steps<10, factors=FactorInteger[n]; digits={}; For[i=1, i<=Length[factors], i++, digits=Join[digits, Flatten[ Table[IntegerDigits[factors[[i, 1]]], {factors[[i, 2]]}]]]; ]; n=FromDigits[digits]; steps++; ]; Return[steps]]; For[i=1, i<2000, i++, If[numberSteps[i]==7, Print[i]; ]; ]; (* Sam Handler (sam_5_5_5_0(AT)yahoo.com), Aug 16 2006 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jun 15 1998
EXTENSIONS
More terms from Sam Handler (sam_5_5_5_0(AT)yahoo.com), Aug 16 2006
Extended and edited by Charles R Greathouse IV, Apr 28 2010
STATUS
approved