Discussion about math, puzzles, games and fun. Useful symbols: ÷ × ½ √ ∞ ≠ ≤ ≥ ≈ ⇒ ± ∈ Δ θ ∴ ∑ ∫ π -¹ ² ³ °

You are not logged in.

- Topics: Active | Unanswered

**phrontister****Real Member**- From: The Land of Tomorrow
- Registered: 2009-07-12
- Posts: 3,946

Good luck with that! I have to go out now...

"The good news about computers is that they do what you tell them to do. The bad news is that they do what you tell them to do." - Ted Nelson

**Online**

**bobbym****Administrator**- From: Bumpkinland
- Registered: 2009-04-12
- Posts: 91,654

Hi;

Sorry, but problems still not fixed and it looks like my connectivity will be on and off for the rest of the night.

See you later.

**In mathematics, you don't understand things. You just get used to them.**

**I agree with you regarding the satisfaction and importance of actually computing some numbers. I can't tell you how often I see time and money wasted because someone didn't bother to run the numbers.**

Offline

**phrontister****Real Member**- From: The Land of Tomorrow
- Registered: 2009-07-12
- Posts: 3,946

Hi Bobby,

Just messin' 'round with output presentation, and also included a timer, infinite looping (for looooong calcs) and a prompt for P. Here's what I've done:

*Last edited by phrontister (2013-04-28 00:51:25)*

"The good news about computers is that they do what you tell them to do. The bad news is that they do what you tell them to do." - Ted Nelson

**Online**

**bobbym****Administrator**- From: Bumpkinland
- Registered: 2009-04-12
- Posts: 91,654

Hi;

Your machine is faster than mine. Mine took 12 seconds.

**In mathematics, you don't understand things. You just get used to them.**

**I agree with you regarding the satisfaction and importance of actually computing some numbers. I can't tell you how often I see time and money wasted because someone didn't bother to run the numbers.**

Offline

**phrontister****Real Member**- From: The Land of Tomorrow
- Registered: 2009-07-12
- Posts: 3,946

I grease the workings of my computer with Vegemite. If you want to try that on your machine to soup it up, just make sure you don't use molasses, which has a similar appearance but will have the opposite effect.

*Last edited by phrontister (2013-04-25 00:04:35)*

"The good news about computers is that they do what you tell them to do. The bad news is that they do what you tell them to do." - Ted Nelson

**Online**

**bobbym****Administrator**- From: Bumpkinland
- Registered: 2009-04-12
- Posts: 91,654

Hi phrontister;

I will try that but vegemite is hard to come by here.

**In mathematics, you don't understand things. You just get used to them.**

**I agree with you regarding the satisfaction and importance of actually computing some numbers. I can't tell you how often I see time and money wasted because someone didn't bother to run the numbers.**

Offline

**phrontister****Real Member**- From: The Land of Tomorrow
- Registered: 2009-07-12
- Posts: 3,946

Hi Bobby,

You probably already know approx how the running times of the various parts of your code compare, but I thought I'd run a 'Timing' test so I could see which area/s could do with some speeding up. I used P=13 and minimum upper limits.

0.047 seconds: p = Table[Prime[k], {k, 1, 45793}];

0.109 seconds: ans = Accumulate[Table[p[[n]]^13, {n, 1, 45793}]];

10.656 seconds: Position[MapIndexed[fubar, ans], {{True}, {True}}]

I'm not sure how to break that last one into separate times for Position and MapIndexed, but from a test I tried it seems that MapIndexed takes up most of the combined time (but I may be wrong there, because I had to split that line into two for Timing to work).

**Online**

**bobbym****Administrator**- From: Bumpkinland
- Registered: 2009-04-12
- Posts: 91,654

Hi;

That is to be expected, that is where the primality testing is. But it does look like I did not choose the best way possible.

**In mathematics, you don't understand things. You just get used to them.**

Offline

**phrontister****Real Member**- From: The Land of Tomorrow
- Registered: 2009-07-12
- Posts: 3,946

Getting sleepy...my inbuilt clock is running down. CuL8r.

**Online**

**bobbym****Administrator**- From: Bumpkinland
- Registered: 2009-04-12
- Posts: 91,654

Hi;

Okay, have a good night. Maybe I will have something to post when you get back.

**In mathematics, you don't understand things. You just get used to them.**

Offline

**phrontister****Real Member**- From: The Land of Tomorrow
- Registered: 2009-07-12
- Posts: 3,946

Hi Bobby,

I just changed my code in post #53 to remove the upper limit, which will be useful for cooking my cpu during long service leave if I particularly want to solve a hard-to-get P value.

**Online**

**bobbym****Administrator**- From: Bumpkinland
- Registered: 2009-04-12
- Posts: 91,654

Hi;

There is some strange coincidence with these answers.

**In mathematics, you don't understand things. You just get used to them.**

Offline

**phrontister****Real Member**- From: The Land of Tomorrow
- Registered: 2009-07-12
- Posts: 3,946

What have you discovered?

**Online**

**bobbym****Administrator**- From: Bumpkinland
- Registered: 2009-04-12
- Posts: 91,654

That all the n's are odd.

**In mathematics, you don't understand things. You just get used to them.**

Offline

**phrontister****Real Member**- From: The Land of Tomorrow
- Registered: 2009-07-12
- Posts: 3,946

That is an 'odd' coincidence!

Actually, I don't know how to check that. I tried printing n, but failed.

And I have to go out now...

**Online**

**bobbym****Administrator**- From: Bumpkinland
- Registered: 2009-04-12
- Posts: 91,654

Okay, there are even answers but the first answer is so far always odd. Have a good time.

**In mathematics, you don't understand things. You just get used to them.**

Offline

**Stangerzv****Member**- Registered: 2012-01-30
- Posts: 201

hi bobbym

Yeah I notice it too..can you get n to be even for Ps? It is like finding odd perfect numbers, so far all perfect numbers are even.

*Last edited by Stangerzv (2013-04-25 15:22:52)*

Offline

**bobbym****Administrator**- From: Bumpkinland
- Registered: 2009-04-12
- Posts: 91,654

Hi;

This is an even answer for n, but it is not the smallest one.

**In mathematics, you don't understand things. You just get used to them.**

Offline

**phrontister****Real Member**- From: The Land of Tomorrow
- Registered: 2009-07-12
- Posts: 3,946

I changed my code to run automatically while I was out, and got the following:

All odd from P=2 to P=43.

Then 3 evens:

P=47: n=43620

P=53: n=10102

P=59: n=181138

P=61 is back to odd again, and then 3 evens:

P=67 n=25982

P=71: n=64636

P=73: n=342

There may not be an odd:even pattern.

P=79 is computing now, but is taking a long time.

**Online**

**phrontister****Real Member**- From: The Land of Tomorrow
- Registered: 2009-07-12
- Posts: 3,946

Oops...for P=37, n=57126

...and P=79: n=621475

*Last edited by phrontister (2013-04-25 18:36:38)*

**Online**

**bobbym****Administrator**- From: Bumpkinland
- Registered: 2009-04-12
- Posts: 91,654

Was that P = 37 the smallest one?

**In mathematics, you don't understand things. You just get used to them.**

Offline

**phrontister****Real Member**- From: The Land of Tomorrow
- Registered: 2009-07-12
- Posts: 3,946

Yes. I tested it in your program and in mine.

**Online**

**bobbym****Administrator**- From: Bumpkinland
- Registered: 2009-04-12
- Posts: 91,654

Okay, then that puts that conjecture to sleep.

**In mathematics, you don't understand things. You just get used to them.**

Offline

**Stangerzv****Member**- Registered: 2012-01-30
- Posts: 201

If there is no computer maybe it would take hundreds of years to verify this for sure. But now it takes less than a day:)

Offline

**bobbym****Administrator**- From: Bumpkinland
- Registered: 2009-04-12
- Posts: 91,654

Hi Stangerzv;

I doubt that anyone would ever be attempting this without a computer.

**In mathematics, you don't understand things. You just get used to them.**

Offline