User Portlet User Portlet

Discussions
When I run this program Monitor starts ok but when it reaches 414757754 it stops, the program seems to keep going. Occasionally when it stops a message appears saying dynamic updating has stopped, abort or continue. Could some one see if they have...
The following code is a very cut down version of what I am working with in terms of size. I have restricted the range of numbers to a max of 42, in my version it is 118, also the number of lists are over 11 million, for this demonstration I have...
On small lists of numbers using subsets and cases works reasonably well, but is slow when the list contains a few million entries. list = {616, 720, 1352, 1504, 2288, 3136, 3744, 4600, 4752, 5720, 7000, 7280, 8568, 8800, 10296, 12312,...
Is there anyway to see if a number would be part of a series generated by a linearrecurrence? Lets say the series is generated by LinearRecurrence[{1, 0, 0, 0, 0, 0, 1, -1}, {3, 4, 5, 8, 11, 12, 13, 19}, {1, 20}] and I want to...
I have a number say a=ToString[2^554] and a list of numbers dp=ToString/@{863, 877, 881, 883, 887} and I wish locate all instances of those numbers in the string "a" and change the text colour of those numbers to Red. I have...
I have 4 points in a 2D plane {{0, 0}, {20, 0}, {138/5, (24 Sqrt[6])/5}, {25, 10 Sqrt[6]}} and wish to find a 5th point such that the distances to the 4 points is an integer. I have tried solving for a point to the point {138/5, (24...
If we take the "All possible 10-tuples of 4 different numbers" there are 1048576 results, if these are then sorted and duplicates removed, we are left with just 286 results. I am looking for a way to just reproduce the 286 results. The smaller...
I am trying to solve an equation that I know has solutions, but what I am trying isn't working as expected, am I missing something? Here is the equation Reduce[{160755614715009600 + 152 y^2 + 2630 z^2 == m (2567290440 + 152 y + 2630...
Test this out and see if you can find the flaw in the program Clear[a, b, p]; k = 2^3217 - 1; p = Solve[{(2 (1 + 2 k) (-k + a (1 + k - b)) b)/((-1 + a b) (2 k + a b) (1 + 2 k + a b)) == 0, a > 0, b > 0}, {a, b}, ...
I am trying to assemble a set of expressions using a "universal algorithm" The input would be of the form list = CharacterRange["a","e"] The range given above corresponds to the example given, the algorithm would need to adapt to any range...