cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-2 of 2 results.

A185242 Successive integers produced by Conway's PRIMEGAME, starting with 3 rather than 2.

Original entry on oeis.org

3, 165, 145, 385, 455, 85, 78, 66, 58, 154, 182, 34, 2, 15, 825, 725, 1925, 2275, 425, 390, 330, 290, 770, 910, 170, 156, 132, 116, 308, 364, 68, 4, 30, 225, 12375, 10875, 28875, 25375, 67375, 79625, 14875, 13650, 2550
Offset: 1

Views

Author

Alonso del Arte, Jan 24 2012

Keywords

Comments

2 is nevertheless reached fairly soon, and after that the sequence proceeds exactly the same as A007542.

Examples

			After 3, we have 3 * 55 = 165 because none of the other fractions give an integer. Then we can use 29/33, and thus 165 * 29/33 = 145, and so on and so forth.
		

Crossrefs

Programs

  • Haskell
    a185242 n = a185242_list !! (n-1)
    a185242_list = iterate a203907 3
    -- Reinhard Zumkeller, Jan 25 2012
  • Mathematica
    (* First run the program for A203907 to define conwayProc *) NestList[conwayProc, 3, 50]

Formula

a(n+12) = A007542 (n) for n > 0. - Charles R Greathouse IV, Jan 24 2012
a(n+1) = A203907(a(n)), a(1) = 3. - Reinhard Zumkeller, Jan 25 2012

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

Views

Author

Alonso del Arte, May 15 2016

Keywords

Comments

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

Examples

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

Crossrefs

Programs

  • Mathematica
    (* First run the program for A203907 to define conwayProc *) NestList[conwayProc, 12, 50]
Showing 1-2 of 2 results.