|
| |
|
|
A082090
|
|
Length of iteration sequence if function A056239, a pseudo-logarithm is iterated and started at n. Fixed point equals zero for all initial values.
|
|
1
| |
|
|
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, 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, 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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 2,1
|
|
|
EXAMPLE
| n=127:list={127,31,11,5,3,2,1,0},a[127]=8
|
|
|
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]}] 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}]
|
|
|
CROSSREFS
| Cf. A056239, A008475, A001414, A082083-A082086, A082091.
Sequence in context: A028949 A107574 A053405 * A133196 A179841 A059183
Adjacent sequences: A082087 A082088 A082089 * A082091 A082092 A082093
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Apr 09 2003
|
| |
|
|
