|
Search: id:A082091
|
|
|
| A082091 |
|
Length of iteration sequence if function A005361, [product of exponents to prime factors of n] is iterated and started at n. Fixed point equals one for all initial values. |
|
+0
2
|
|
| 2, 2, 3, 2, 2, 2, 3, 3, 2, 2, 3, 2, 2, 2, 4, 2, 3, 2, 3, 2, 2, 2, 3, 3, 2, 3, 3, 2, 2, 2, 3, 2, 2, 2, 4, 2, 2, 2, 3, 2, 2, 2, 3, 3, 2, 2, 4, 3, 3, 2, 3, 2, 3, 2, 3, 2, 2, 2, 3, 2, 2, 3, 3, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 3, 3, 2, 2, 2, 4, 4, 2, 2, 3, 2, 2, 2, 3, 2, 3, 2, 3, 2, 2, 2, 3, 2, 3, 3, 4, 2, 2, 2, 3, 2, 2
(list; graph; listen)
|
|
|
OFFSET
|
2,1
|
|
|
EXAMPLE
|
n=10!:list={3628800,64,6,1}},a[3628800]=4
|
|
MATHEMATICA
|
ffi[x_] := Flatten[FactorInteger[x]] lf[x_] := Length[FactorInteger[x]] ep[x_] := Table[Part[ffi[x], 2*w], {w, 1, lf[x]}] expr[x_] := Apply[Times, ep[x]] Table[Length[FixedPointList[expr, w]]-1, {w, 2, 128}]
|
|
CROSSREFS
|
Cf. A056239, A008475, A001414, A082083-A082086, A082090.
Adjacent sequences: A082088 A082089 A082090 this_sequence A082092 A082093 A082094
Sequence in context: A073813 A104517 A098397 this_sequence A085962 A060244 A067132
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Apr 09 2003
|
|
|
Search completed in 0.002 seconds
|
