|
| |
|
|
A114600
|
|
Highest prime divisor of A114599(n) (or 1 if A114599(n) is 1).
|
|
1
| |
|
|
1, 1, 2, 3, 7, 11, 13, 3, 5, 2, 11, 23, 127, 487, 1237, 331, 127, 21019, 1811, 140983, 2239651, 10005473, 1867397300827, 45590891, 96526424938433069, 6424815538907849, 3320782322201303130883, 167483630406434494769
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
FORMULA
| a(n) = A006530(A114599(n)).
|
|
|
MATHEMATICA
| f[n_] := If[n == 1, 1, FactorInteger[n][[ -1, 1 ]]]; g[l_] := Append[l, 1 + Times @@ f /@ Take[l, -2]]; f/@Nest[g, {1, 1}, 30] (*Chandler*)
|
|
|
CROSSREFS
| Cf. A006530, A114599.
Sequence in context: A110449 A176363 A067991 * A088905 A045319 A178943
Adjacent sequences: A114597 A114598 A114599 * A114601 A114602 A114603
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Leroy Quet Dec 13 2005
|
|
|
EXTENSIONS
| Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Dec 26 2005
|
| |
|
|
