|
| |
|
|
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;
text;
internal format)
|
|
|
|
OFFSET
|
1,3
|
|
|
LINKS
|
|
|
|
FORMULA
|
|
|
|
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] (* Ray Chandler, Dec 26 2005 *)
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
|
|
|
EXTENSIONS
|
|
|
|
STATUS
|
approved
|
| |
|
|
