%I
%S 2,3,4,4,5,5,5,5,5,5,6,5,6,6,6,5,6,6,6,6,6,6,6,6,6,6,6,6,6,6,7,6,6,6,
%T 6,6,6,6,6,6,7,6,7,6,6,6,7,6,6,6,6,6,6,6,6,6,6,7,7,6,7,6,6,6,6,6,7,6,
%U 7,6,7,6,7,7,6,6,6,6,7,6,6,7,7,6,6,7,6,6,7,6,6,7,7,6,7,6,7,6,6,6,7,6,7,6,6,7
%N Length of iteration sequence if function A056239, a pseudologarithm is iterated and started at n. Fixed point equals zero for all initial values.
%D Mohammad K. Azarian, On the Fixed Points of a Function and the Fixed Points of its Composite Functions, International Journal of Pure and Applied Mathematics, Vol. 46, No. 1, 2008, pp. 3744. Mathematical Reviews, MR2433713 (2009c:65129), March 2009. Zentralblatt MATH, Zbl 1160.65015.
%D Mohammad K. Azarian, Fixed Points of a Quadratic Polynomial, Problem 841, College Mathematics Journal, Vol. 38, No. 1, January 2007, p. 60. Solution published in Vol. 39, No. 1, January 2008, pp. 6667.
%H Alois P. Heinz, <a href="/A082090/b082090.txt">Table of n, a(n) for n = 1..1000</a>
%e n=127:list={127,31,11,5,3,2,1,0},a[127]=8
%p f:= n> add (numtheory[pi](i[1])*i[2], i=ifactors(n)[2]):
%p a:= n> 1+ `if`(n=1, 1, a(f(n))):
%p seq (a(n), n=1..120); # _Alois P. Heinz_, Aug 09 2012
%t ffi[x_] := Flatten[FactorInteger[x]] lf[x_] := Length[FactorInteger[x]] ba[x_] := Table[Part[ffi[x], 2*w1], {w, 1, lf[x]}] ep[x_] := Table[Part[ffi[x], 2*w], {w, 1, lf[x]}] bpi[x_] := Table[PrimePi[Part[ba[x], j]], {j, 1, lf[x]}] api[x_] := Apply[Plus, ep[x]*bpi[x]] Table[Length[FixedPointList[api, w]]1, {w, 2, 128}]
%Y Cf. A056239, A008475, A001414, A082083A082086, A082091.
%K nonn
%O 1,1
%A _Labos Elemer_, Apr 09 2003
