OFFSET
1,2
EXAMPLE
Fixed point is always a prime or a true power of prime:
a term from A000961.
n=20!=2432902008176640000, a(20)=109 because
fixed point list={2432902008176640000,269439,214,109}}
MATHEMATICA
ffi[x_] := Flatten[FactorInteger[x]] lf[x_] := Length[FactorInteger[x]] ba[x_] := Table[Part[ffi[x], 2*w-1], {w, 1, lf[x]}] ep[x_] := Table[Part[ffi[x], 2*w], {w, 1, lf[x]}] sex[x_] := Apply[Plus, ba[x]^ep[x]] Table[FixedPoint[sex, w! ], {w, 1, 128}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 08 2003
STATUS
approved