Mit diesem Mathematica Code kann man die 84 Mrd. releavanten Zahlen finden. Man spart sich so den ersten Collatz-Abfrageteil. Er stammt von dem ersten Link. Dieser Mr. Noe hat damit alle Zahlen bis u=500 gezählt, der Zähl-Algorithmus muss also wahnsinnig schnell sein. Ich verstehe ihn aber nicht richtig.
Delphi-Quellcode:
ACHTUNG MATHEMATICA
nn=100;
Clear[x, y];
Do[x[i]=0,
{i, 0, nn+1}];
x[1]=1;
t=Table[
Do[y[cnt]=x[cnt]+x[cnt-1],
{cnt, p+1}];
Do[x[cnt]=y[cnt],
{cnt, p+1}];
admis=0;
Do[
If[(p+1-cnt)*Log[3]<p*Log[2], admis=admis+x[cnt];
x[cnt]=0],
{cnt, p+1}];
admis,
{p, 2, nn}];
DeleteCases[t, 0]
Unter diesem Link ist noch ein Stoppzeit-Algorithmus in Mathematica.
http://oeis.org/A177789