OFFSET
1,3
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
with(priqueue):
initialize(pq):
insert([-1, 0, 0], pq):
R:= NULL:
for count from 1 to 100 do
t:= extract(pq);
R:= R, t[2];
insert([t[1]*2, t[2]+1, t[3]], pq);
if t[2] = 0 then insert([t[1]*6, 0, t[3]+1], pq) fi;
od:
R; # Robert Israel, Sep 27 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved