|
Search: id:A082087
|
|
|
| A082087 |
|
a(n) is the fixed point if function A008472[=sum of prime factors with no repetition] is iterated when started at initial value n!. |
|
+0
6
|
|
| 2, 5, 5, 7, 7, 17, 17, 17, 17, 3, 3, 41, 41, 41, 41, 31, 31, 5, 5, 5, 5, 7, 7, 7, 7, 7, 7, 5, 5, 7, 7, 7, 7, 7, 7, 197, 197, 197, 197, 2, 2, 281, 281, 281, 281, 43, 43, 43, 43, 43, 43, 7, 7, 7, 7, 7, 7, 5, 5, 5, 5, 5, 5, 5, 5, 73, 73, 73, 73, 2, 2, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 13, 13, 13, 13
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
FORMULA
|
a(n)=A075860[A000142(n)].
|
|
EXAMPLE
|
n=73: iteration list=
{73!=61234458376886086861524070385274672740778091784697328983823014963978384987221689274204160000000000000000,639,74,39,16,2,2}
|
|
MATHEMATICA
|
ffi[x_] := Flatten[FactorInteger[x]] lf[x_] := Length[FactorInteger[x]] ba[x_] := Table[Part[ffi[x], 2*w-1], {w, 1, lf[x]}] sopf[x_] := Apply[Plus, ba[x]] Table[FixedPoint[sopf, w! ], {w, 2, 100}]
|
|
CROSSREFS
|
Cf. A008472, A034387, A007504, A075860.
Adjacent sequences: A082084 A082085 A082086 this_sequence A082088 A082089 A082090
Sequence in context: A021395 A004599 A121359 this_sequence A023850 A101858 A092394
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Apr 09 2003
|
|
|
Search completed in 0.002 seconds
|
