|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|