cp's OEIS Frontend

A305657 Record values of A305566.

%I A305657 #6 Jun 07 2018 23:02:45
%S A305657 0,2,10,44,84,122,184,1590,26508,119304,428568,7911144,8275066,
%T A305657 510582192,2122131332,34308911168,543326090824,140627994008752,
%U A305657 140730946295934,576036971191781024,9222527848311467840,9222949803150423996,2359453722081533041216,2361155375874259181576,2361182396716073890056,604433511573276736205056,604435239966141944446584,9664324052998090353961088,618962932654137056803769392,39614074145912329143754325568,633821673403520815917635373056,162257419909717745759000144646368,664613879048405558070320228193928512,170141183222784760671064904320665465984,11150370605423278283522757581632660569339264
%N A305657 Record values of A305566.
%C A305657 Numbers k such that for some j, k = A305566(j) and k > A305566(i) for i < j.
%C A305657 The corresponding record locations appear to be the members of A097212 except 2 and 4.
%p A305657 # with f as in A305566
%p A305657 recs:= 0: count:= 0: m:= 0:
%p A305657 Agenda:= heap[new]((s,t) -> s[2]>t[2], [[1],2]);
%p A305657 while count < 34 do
%p A305657   T:= heap[extract](Agenda);
%p A305657   v:= f(T[2]);
%p A305657   if v > m then
%p A305657     count:= count+1;
%p A305657     recs:= recs, v;
%p A305657     m:= v;
%p A305657   fi;
%p A305657   L:= T[1];
%p A305657   heap[insert]([[op(L),1],T[2]*ithprime(nops(L)+1)],Agenda);
%p A305657   heap[insert]([L+[1,0$(nops(L)-1)], 2*T[2]],Agenda);
%p A305657   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;
%p A305657 od:
%p A305657 recs;
%Y A305657 Cf. A097212, A305566.
%K A305657 nonn
%O A305657 1,2
%A A305657 _Robert Israel_, Jun 07 2018