Programming puzzle: Longest list of regular numbers?

[Dave Britten]

Still trying to get the Casio to find terms beyond H(998), but Casio BASIC is terrible and throws a syntax error if you try to do something simple like Seq(List 26[X],X,L,N) to extract a sublist.

It's irritating how many things on a Casio just randomly can't be used in certain contexts. This will probably work fine on the TI, but it's way slower.

EDIT: Got the Casio playing ball. Even with disgusting manual list copying in a For loop, it's still fast.

H(1429)=604,661,760 (37 sec.)

Still wrestling with H(9733). I know the program will slow down as it runs. List garbage collection becomes more frequent as the look-back range widens, but it's coming up on the 8-minute mark, so either I've underestimated how much it slows down, or I've coded some clever infinite loop.