login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A147303 Numbers k where records occurred in expression Log[A147299(k)]/Log[k] k=2,3,4,... 1
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
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
Sequence in context: A172105 A092482 A335099 * A346593 A066880 A075427
KEYWORD
nonn
AUTHOR
Artur Jasinski, Nov 06 2008
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 04:13 EDT 2024. Contains 371235 sequences. (Running on oeis4.)