|
Search: id:A082090
|
|
|
| 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. |
|
+0
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, 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; listen)
|
|
|
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 this_sequence A133196 A059183 A054760
Adjacent sequences: A082087 A082088 A082089 this_sequence A082091 A082092 A082093
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Apr 09 2003
|
|
|
Search completed in 0.002 seconds
|
