1 years, 60 days

## to clear frations...

128*c

This is the greatest common denominator, and it simplifies the expression somewhat.

For what its worth.
Matt

## @Kitonum Hi Kitonium, thank you for...

@Kitonum Hi Kitonium, thank you for taking the time to modify your Maple code for me.  I was able to compile it.  Regards, Matt

## @Kitonum Hi there,  Thank you ...

@Kitonum Hi there,  Thank you for taking the time to write 2 procedures.  I appreciate that.  Unfortunately, I only have Maple  17, and was unable to run the code.  See attachments -

partition_doodle.pdf

Again, thanks.

Regards,
Matt

## a fun fact to know and tell...

I am pretty sure that an integer has an odd number of divisors if and only if that integer is a square.

Matt

## @Carl Love Hi Carl.  Thank you...

@Carl Love Hi Carl.  Thank you for your useful suggestion.

Regards,
Matt

## thank you...

@Carl Love Thanks for the comment, Carl.  I did not do a thorough search of the library.  Matt

## @Ronan Thank you for this useful li...

@Ronan Thank you for this useful link.  The oral talk by Norman Robert was not all the way understood by me.  As far as I know ther is no written proof of the Goldbach conjecture.    For those not familiar, conjecture means probrably true.

Thank you again for the link.

@Carl Love thank you for a good comment Carl.

Here is a short Maple page summarizing the answers.

help_another_2.mw

Regards,

Matt

## Partial attempt...

@BOverdorp Thank you for posting to MaplePrimes.  Although I am not able to answer your question, here is my attempt.  I was unaple to produce any good plots for you.

## expand()...

@vv Thank you for your input.  Maybee the expand() command can be helpful.  See help files.

Regards, Matthew

## another fun sequence...

Hi MaplePrimes,

Here is a mathematical puzzle,
Find the next number -
3, 5, 8, 13, 22, ?
Here is an answer in Maple code -

a := Vector[row](9)

a[1] := 3; for i from 2 to 9 do a[i] := 2*a[i-1]-i+1 end do

a

***** end Maple code *****

[3,5,8,13,22,39 ... ]

Regards,

Matt

## thank you...

@Carl Love Thank you for making more code regarding this topic.  Unfortunately, I receive an error on my Maple 13 machine.  I see

Error, invalid arrow procedure

after the part that goes
userinfo(
1, Lychrel,
(
there is a red box around
() -> if
I don't think I can fix this error.
Maybee someone else can verify that this code works on newer Maple versions.

Also, see

oeis.org/A006960/

This is the Online Encyclopedia of Integer Sequences for this 196 sequence.
Regards,

Matt

## Thanks...

Thanks Carl for the corrected procedure.

I needed to make one minor change probarably due to the fact that I use Maple 13.

Here is the code -

cs := proc (N::posint)::nonnegint;
local n::posint, q::posint, r::(identical(0, 1)), count::nonnegint;
description "Find the number of steps for a Collatz sequence to reach 1.";
n := N;
for count from 0 while 1 < n do
q := iquo(n, 2, 'r');
n := `if`(r = 0, q, 3*n+1) end do;
count
end proc

I'm glad the code works now.

Matt

## thanks...

@sand15

Ah yes, printf("%g\n",p) does the trick.

Regards,

Matt

 1 2 Page 1 of 2
﻿