Warning: mysqli::__construct(): (HY000/1203): User howardkn already has more than 'max_user_connections' active connections in D:\Inetpub\vhosts\howardknight.net\al.howardknight.net\includes\artfuncs.php on line 21
Failed to connect to MySQL: (1203) User howardkn already has more than 'max_user_connections' active connections
Warning: mysqli::query(): Couldn't fetch mysqli in D:\Inetpub\vhosts\howardknight.net\al.howardknight.net\index.php on line 66
Article <17bb234f5a9423d6$44775$1585792$802601b3@news.usenetexpress.com>
Deutsch   English   Français   Italiano  
<17bb234f5a9423d6$44775$1585792$802601b3@news.usenetexpress.com>

View for Bookmarking (what is this?)
Look up another Usenet article 
From: Farley Flud <ff@linux.rocks>
Subject: Re: Project Euclid Problem 26 SOLVED!!!
Newsgroups: comp.os.linux.advocacy
References: <17bb1baebce14546$13883$3298354$802601b3@news.usenetexpress.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Lines: 52
Path: ...!weretis.net!feeder6.news.weretis.net!usenet.blueworldhosting.com!diablo1.usenet.blueworldhosting.com!feeder.usenetexpress.com!tr2.iad1.usenetexpress.com!news.usenetexpress.com!not-for-mail
Date: Sat, 09 Mar 2024 15:48:27 +0000
Nntp-Posting-Date: Sat, 09 Mar 2024 15:48:27 +0000
X-Received-Bytes: 1824
Organization: UsenetExpress - www.usenetexpress.com
X-Complaints-To: abuse@usenetexpress.com
Message-Id: <17bb234f5a9423d6$44775$1585792$802601b3@news.usenetexpress.com>
Bytes: 2221

On Sat, 09 Mar 2024 13:28:40 +0000, Farley Flud wrote:

> Project Euclid Problem is SOLVED!!!
> 
> https://projecteuler.net/problem=26
> 

1000?  Why stop at a measly-peasly 1000?  Let's do 100,000.

Just paste the following maxima code into a "file.mac"
and then copy the file into the maxima search path.

Then, from maxima (not wxMaxima) do:

load("file.mac");

Wanna go for 1 million? 10 million?  A billion?

It's no problem.  Just change the "for" loop maximum,
but you'd better also compile the code for faster
execution. 



==============================================================
file_output_append:true;
f:"/some/path/prob26.txt";
max:1$
maxd:3$
for num:3 thru 100000 step 1 do (
    d:1,
    fact_list:ifactors(num),
    for i:1 thru length(fact_list) do (
    if not(fact_list[i][1] = 2 or fact_list[i][1] = 5) then d:d*fact_list[i][1]^fact_list[i][2]
      ),
    if not(d = 1) then (
        rep:zn_order(10,d), with_stdout(f,print("denom = ", num, "repeats = ", rep)),
        if (rep > max) then (max:rep, maxd:num)
    )
    else with_stdout(f,(print("denom = ", num, "terminating")))   
);
with_stdout(f, print("Max rep =", max, "at denom =", maxd));
================================================================================


> 
> Hail Linux!
> 
> Hail GNU, FOSS, and the FSF!
> 
> Hail Stallman!
>