A147303 - OEIS

A147303

Numbers k where records occurred in expression Log[A147299(k)]/Log[k] k=2,3,4,...

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; text; internal format)

OFFSET

1,1

COMMENTS

Limit k->Infinity Log[A147299(k)]/Log[k] = 2.

Values m for which records occured see A147304.

LINKS

Table of n, a(n) for n=1..55.

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: A172105 A092482 A335099 * A346593 A066880 A075427

Adjacent sequences: A147300 A147301 A147302 * A147304 A147305 A147306

KEYWORD

nonn

AUTHOR

Artur Jasinski, Nov 06 2008

STATUS

approved