OFFSET
1,2
COMMENTS
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
KEYWORD
nonn
AUTHOR
Robert Israel, Jun 07 2018
STATUS
approved