OFFSET
1,1
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..200
EXAMPLE
n = 2 gives a(2) = 8 -> 8 = 2*2*2 so 8 + (2+2+2) = 14 and composite (iteration 1); 14 = 2*7 so 14 + (2+7) = 23 and already prime after the second iteration.
MATHEMATICA
a[n_]:=Length[NestWhileList[#+Total[Times@@@FactorInteger[#]]&, n, !PrimeQ[#] &]]-1; t={}; Do[i=2; While[a[i]!=n, i++]; AppendTo[t, i], {n, 45}]; t (* Jayanta Basu, May 25 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Patrick De Geest, Aug 15 1999
EXTENSIONS
More terms from Michel ten Voorde
STATUS
approved