A305657 Record values of A305566.

0, 2, 10, 44, 84, 122, 184, 1590, 26508, 119304, 428568, 7911144, 8275066, 510582192, 2122131332, 34308911168, 543326090824, 140627994008752, 140730946295934, 576036971191781024, 9222527848311467840, 9222949803150423996, 2359453722081533041216, 2361155375874259181576, 2361182396716073890056, 604433511573276736205056, 604435239966141944446584, 9664324052998090353961088, 618962932654137056803769392, 39614074145912329143754325568, 633821673403520815917635373056, 162257419909717745759000144646368, 664613879048405558070320228193928512, 170141183222784760671064904320665465984, 11150370605423278283522757581632660569339264

Offset

1,2

Comments

Numbers k such that for some j, k = A305566(j) and k > A305566(i) for i < j.

The corresponding record locations appear to be the members of A097212 except 2 and 4.

Links

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

Maple

# with f as in A305566
recs:= 0: count:= 0: m:= 0:
Agenda:= heap[new]((s, t) -> s[2]>t[2], [[1], 2]);
while count < 34 do
  T:= heap[extract](Agenda);
  v:= f(T[2]);
  if v > m then
    count:= count+1;
    recs:= recs, v;
    m:= v;
  fi;
  L:= T[1];
  heap[insert]([[op(L), 1], T[2]*ithprime(nops(L)+1)], Agenda);
  heap[insert]([L+[1, 0$(nops(L)-1)], 2*T[2]], Agenda);
  for j in select(i -> L[i]<L[i-1], [$2..nops(L)]) do heap[insert]([L + [0$(j-1), 1, 0$(nops(L)-j)], T[2]*ithprime(j)], Agenda) od;
od:
recs;

Crossrefs

Cf. A097212, A305566.

Sequence in context: A296001 A121949 A005144 * A064835 A225958 A240377

Adjacent sequences: A305654 A305655 A305656 * A305658 A305659 A305660

Keyword

nonn

Author

Robert Israel, Jun 07 2018

Status

approved