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!)
A330788 Values of k at which the ratio k/A005132(k) sets a new record. 2
1, 4, 31, 62, 64, 111, 129, 131, 30764, 30766, 30768, 56127, 56167, 56199, 56513, 56515, 56827, 99734, 58055311, 904012796, 904032692, 1610175617, 1610178287, 1610186343, 2789149734, 13808214835, 325374625053, 325374625245 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,2
COMMENTS
No other terms < 4.61 * 10^11.
LINKS
EXAMPLE
A005132(131) = 4, 131/4 = 32.75, a higher ratio than any smaller term in A005132, so 131 is in the sequence.
MATHEMATICA
Block[{s = MapIndexed[First[#2]/#1 &, Rest@ Nest[Append[#, If[And[#3 > 0, FreeQ[#1, #3]], #3, #1[[-1]] + #2]] & @@ {#, Length@ #, #[[-1]] - Length@ #} &, {0}, 10^5]], t}, t = Union@ FoldList[Max, Rest@ s]; MapAt[# - 1 &, #, 1] &@ Map[FirstPosition[s, #][[1]] &, t]] (* Michael De Vlieger, Jan 01 2020 *)
CROSSREFS
Sequence in context: A216302 A070522 A087689 * A210377 A211629 A263760
KEYWORD
nonn
AUTHOR
Jud McCranie, Dec 31 2019
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 15:38 EDT 2024. Contains 371254 sequences. (Running on oeis4.)