A185242 -id:A185242 - cp's OEIS frontend

A203907 Successor function for Conway's PRIMEGAME.

55, 15, 165, 30, 275, 45, 1, 60, 495, 75, 13, 90, 11, 105, 825, 120, 1, 135, 77, 150, 3, 26, 95, 180, 1375, 22, 1485, 210, 77, 225, 1705, 240, 29, 2, 5, 270, 2035, 23, 33, 300, 2255, 315, 2365, 52, 2475, 190, 2585, 360, 7, 375, 19, 44, 2915, 405, 65, 420

Offset: 1

Reinhard Zumkeller, Jan 24 2012

a(n) <= 55 * n, as 55/1 is the last and largest FRACTRAN fraction.
Iterations, starting with 2, give A007542. A185242 begins with 3.
A quasipolynomial of order 6469693230 = 29#. - Charles R Greathouse IV, Jul 31 2016
Apparent simple regularities do not necessarily hold. It is true that a(2n)/15 = a(4n)/30, but for n = 11, 13, 17, 19, 22, 23, ... this is not equal to n. Also, a(2k-1) = 55k holds for more than 60%, but not for all k >= 1. - M. F. Hasler, Jun 15 2017

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, FRACTRAN
Wikipedia, Conway's PRIMEGAME

Cf. A007542.

import Data.Ratio ((%), numerator, denominator)
a203907 n = numerator $ head
   [x | x <- map (* fromInteger n) fracts, denominator x == 1]
   where fracts = zipWith (%) a202138_list a203363_list
a203907_list = map a203907 [1..]

conwayFracs = {17/91, 78/85, 19/51, 23/38, 29/33, 77/29, 95/23, 77/19, 1/17, 11/13, 13/11, 15/2, 1/7, 55}; conwayProc[n_] := Module[{curr = 1/2, iter = 1}, While[Not[IntegerQ[curr]], curr = conwayFracs[[iter]]n; iter++]; Return[curr]]; Table[conwayProc[n], {n, 60}] (* Alonso del Arte, Jan 24 2012 *)

{A203907(n,V=[17/91, 78/85, 19/51, 23/38, 29/33, 77/29, 95/23, 77/19, 1/17, 11/13, 13/11, 15/2, 1/7, 55])=for(i=1,#V, denominator(V[i]*n)==1 && return(V[i]*n))} \\ Charles R Greathouse IV, Jul 31 2016, edited by M. F. Hasler, Jun 15 2017

Let [17/91, 78/85, 19/51, 23/38, 29/33, 77/29, 95/23, 77/19, 1/17, 11/13, 13/11, 15/2, 1/7, 55/1] be the list of FRACTRAN fractions = [A202138(k)/A203363(k) : 1<=k<=14], then a(n) = n*f, where f is the first term yielding an integral product.

A273091 Successive integers produced by Conway's PRIMEGAME, starting with 6 rather than 2.

Original entry on oeis.org

6, 45, 2475, 2175, 5775, 5075, 13475, 15925, 2975, 2730, 510, 468, 396, 348, 924, 812, 2156, 2548, 476, 28, 210, 1575, 225, 12375, 10875, 28875, 25375, 67375, 79625, 14875, 13650, 2550, 2340, 1980, 1740, 4620, 4060, 10780, 12740, 2380, 2184, 408, 152, 92, 380, 230, 950, 575, 2375, 9625

Offset: 1

Alonso del Arte, May 14 2016

Upon reaching 225, this sequence becomes the same as A007542, having skipped over 4 (which corresponds to the prime 2) and then goes on to 8 (which corresponds to the prime 3).

			Multiply 6 by 15/2 to obtain 45. Then for 45, multiplying by the first thirteen fractions fails to produce an integer, so 45 * 55 = 2475.

Cf. A185242.

(* First run the program for A203907 to define conwayProc *) NestList[conwayProc, 6, 50]

A273099 Successive integers produced by Conway's PRIMEGAME, starting with 12 rather than 2.

Original entry on oeis.org

12, 90, 675, 37125, 32625, 86625, 76125, 202125, 177625, 471625, 557375, 104125, 95550, 17850, 16380, 3060, 2808, 2376, 2088, 5544, 4872, 12936, 11368, 30184, 35672, 6664, 392, 2940, 22050, 165375, 23625, 3375, 185625, 163125, 433125, 380625, 1010625, 888125, 2358125, 2786875

Offset: 1

Alonso del Arte, May 15 2016

After 240 steps, this sequence reaches 32 = 2^5.

			Multiply 12 by 15/2 to obtain 90. Then for 90, we can multiply 90 by 15/2 also to obtain 675.

Alonso del Arte, Table of n, a(n) for n = 1..250

Cf. A185242, A273091.

(* First run the program for A203907 to define conwayProc *) NestList[conwayProc, 12, 50]

A272260 Numbers that cause an infinite loop in Conway's PRIMEGAME.

Original entry on oeis.org

1, 5, 7, 11, 13, 17, 19, 22, 25, 26, 29, 31, 33, 35, 37, 39, 41, 43, 44, 47, 49, 51, 52, 53, 55, 57, 59, 61

Offset: 1

Alonso del Arte, Apr 23 2016

The following values are certainly in the sequence: 65, 67, 71, 73, 77, 79, 83, 87, 88, 89, 91, 97, 99, 101. The following values are doubtful: 62, 74, 82, 86, 93, 94.
Conway's PRIMEGAME (also called "Conway's prime producing machine") is a fascinating (and very inefficient) method for obtaining the prime numbers.
The "machine" takes in a number, and tries multiplying it by each of fourteen fractions one by one to find the first one that produces an integer. Then that integer is multiplied by each of the fourteen fractions one by one to find the first one that produces another integer. The goal is to find powers of 2; these powers of 2 have a binary logarithm that is a prime number.
The fractions of Conway's PRIMEGAME are 17/91, 78/85, 19/51, 23/38, 29/33, 77/29, 95/23, 77/19, 1/17, 11/13, 13/11, 15/2, 1/7, 55.
The "machine" was designed to take 2 as its first input, which gives us the sequence A007542, and from that sequence we can pick out the sequence 2^prime(n) (A034785).
But there are other numbers that can be used as a first input. If the process is started with 3, the process eventually leads to 2 (see A185242). So starting with 3 just delays the process.
However, the numbers in this sequence taken as first inputs do much worse than delay the process, they get the program stuck in an endless loop.
A lot, but not all, of the numerators of the Conway fractions are in this sequence. Specifically, all except 78, 23, 95, 15. As for denominators, all of them except 85, 38, 23, 2 are in this sequence.
All prime numbers greater than 29 are in this sequence. Given a prime number p > 29, we see that multiplying by the first thirteen fractions results in a rational but non-integer value, so the process gives 55p for the first step. Then 55p * 13/11 = 65p and 65p * 11/13 = 55p, hence an infinite loop.
In fact, the only primes that can be used to start the process without leading to an infinite loop are 2, 3, 23.

			5 multiplied by 55 gives 275.
275 multiplied by 13/11 gives 325.
325 multiplied by 11/13 gives 275.
Since 275 has occurred before, this means that 5 leads the process to get stuck on bouncing between 275 and 325, and so 5 is in this sequence.

Cf. A203907.

cp's OEIS Frontend

A203907 Successor function for Conway's PRIMEGAME.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Mathematica

PARI

Formula

A273091 Successive integers produced by Conway's PRIMEGAME, starting with 6 rather than 2.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A273099 Successive integers produced by Conway's PRIMEGAME, starting with 12 rather than 2.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A272260 Numbers that cause an infinite loop in Conway's PRIMEGAME.

Views

Author

Keywords

Comments

Examples

Crossrefs