|
| |
|
|
A147303
|
|
Numbers k where records occured in expression Log[A147299(k)]/Log[k] k=2,3,4,...
|
|
0
| |
|
|
2, 3, 6, 7, 14, 15, 22, 30, 42, 62, 66, 70, 78, 102, 114, 158, 166, 182, 186, 210, 222, 230, 255, 258, 282, 318, 330, 402, 430, 438, 462, 470, 474, 494, 498, 510, 570, 582, 598, 690, 710, 786, 798, 822, 870, 906, 930, 942, 1002, 1038, 1074, 1110, 1122, 1146, 1158
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Limes k->Infinty Log[A147299(k)]/Log[k] = 2.
Values m for which records occured see A147304.
|
|
|
MATHEMATICA
| logmin = 10^10; logmax = 0; aa = {}; bb = {}; cc = {}; dd = {}; ee = {}; ff = {}; hh = {}; ii = {}; jj = {}; Do[min = 10^100; max = 0; Do[If[GCD[m, n, n - m] == 1, s = m n (n - m); k = FactorInteger[s]; g = 1; Do[g = g k[[p]][[1]], {p, 1, Length[k]}]; If[g > max, max = g; mmax = m]; If[g < min, min = g; mmin = m]], {m, 1, n - 1}]; AppendTo[aa, min]; If[(Log[n]/Log[min]) > logmax, logmax = (Log[n]/Log[min]); AppendTo[ee, {N[logmax], n, mmin, min, mmax, max}]; AppendTo[ff, n]]; If[(Log[n]/Log[min]) < logmin, logmin = (Log[n]/Log[min]); AppendTo[hh, {N[logmin], n, mmin, min, mmax, max}]; AppendTo[ii, n]]; AppendTo[bb, max]; AppendTo[dd, mmin], {n, 2, 1200}]; ii (*Artur Jasinski*)
|
|
|
CROSSREFS
| A147298-A147307
Sequence in context: A183558 A172105 A092482 * A075427 A066880 A075426
Adjacent sequences: A147300 A147301 A147302 * A147304 A147305 A147306
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Artur Jasinski (grafix(AT)csl.pl), Nov 06 2008
|
| |
|
|
