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-7 of 7 results.

A288985 Numbers n for which A287874(n) < n, where A287874 is the concatenation of the prime factorization, all written in binary.

Original entry on oeis.org

117649, 177147, 531441, 823543, 1048576, 1594323, 1771561, 1953125, 2097152, 4194304, 4782969, 4826809, 5764801, 8388608, 9765625
Offset: 1

Views

Author

M. F. Hasler, Jun 21 2017

Keywords

Comments

A287874 is the concatenation of the prime factorization (without exponents equal to 1), all written in binary (so the result has only digits 0 and 1). Here the result of this operation is considered as a decimal number. For example, the first term is 117649 because this numer is larger than the value A287874(117649) = 111110 (even when this is considered as a decimal and not binary number).

Crossrefs

Cf. A287874.

Programs

  • PARI
    forcomposite(n=1,1e7,A287874(n)
    				

A230627 Prime reached in A230626, or -1 if no prime is reached.

Original entry on oeis.org

2, 3, 31, 5, 11, 7, 11, 23, 31, 11, 43, 13, 23, 29, 251, 17, 23, 19, 251, 31, 43, 23, 47, 43, 463, 29, 23, 29, 127, 31, 31, 59, 23, 47, 8093, 37, 83, 61, 127, 41, 179, 43, 467, 463, 23, 47, 83, 127, 467, 113, 173, 53, 47, 23, 179, 241, 127, 59, 349, 61, 179
Offset: 2

Views

Author

N. J. A. Sloane, Oct 27 2013

Keywords

Comments

David J. Seal found that the number 255987 is fixed by the map described in A230625 (or equally A287874), so a(255987) = -1. - N. J. A. Sloane, Jun 15 2017
I also observe that the numbers 1007 and 1269 are mapped to each other by that map, as are the numbers 1503 and 3751 (see the b-file submitted by Chai Wah Wu for A230625). So a(1007) = a(1269) = a(1503) = a(3751) = -1. - David J. Seal, Jun 16 2017
a(217) = a(255) = a(446) = a(558) = a(717) = a(735) = a(775) = a(945) = a(958) = -1 since the trajectory either converges to (1007,1269) or to (1503,3751). - Chai Wah Wu, Jun 16 2017
See A287878 for the trajectory of 234. - N. J. A. Sloane, Jun 17 2017
See A288894 for the trajectory of 3932. - Sean A. Irvine, Jun 18 2017
The latest information seems to be that for numbers less than 12388, all trajectories either end at a fixed point or in a cycle of length 2. - N. J. A. Sloane, Jul 27 2017

Crossrefs

Base-2 analog to A195264.
See A287875 for these same numbers written in binary.
See A288847 for where the values -1 occur.

Programs

  • Mathematica
    fn[n_] := FromDigits[Flatten[IntegerDigits[ReplaceAll[FactorInteger[n], {x_, 1} -> {x}], 2]], 2];
    Table[NestWhile[fn, n, # != 1 && ! PrimeQ[#] &], {n, 2, 50}] (* Robert Price, Mar 16 2020 *)

Extensions

More terms from Chai Wah Wu, Jul 15 2014
Changed the "escape" value from 0 to -1 to be consistent with A195264. - N. J. A. Sloane, Jul 27 2017

A230626 Iterate the map x -> A230625(x) starting at n; sequence gives number of steps to reach a prime, or -1 if no prime is ever reached.

Original entry on oeis.org

0, 0, 3, 0, 1, 0, 1, 2, 2, 0, 1, 0, 1, 1, 4, 0, 4, 0, 3, 1, 1, 0, 1, 2, 4, 2, 3, 0, 2, 0, 2, 1, 5, 1, 7, 0, 1, 1, 2, 0, 2, 0, 2, 3, 3, 0, 1, 3, 3, 1, 1, 0, 1, 3, 2, 6, 2, 0, 1, 0, 2, 2, 2, 2, 3, 0, 1, 2, 6, 0, 2, 0, 4, 4, 3, 2, 2, 0, 4, 4, 3, 0, 5, 2, 2, 2, 3
Offset: 2

Views

Author

N. J. A. Sloane, Oct 27 2013

Keywords

Comments

David J. Seal found that the number 255987 is fixed by the map described in A230625 (or equally A287874), so a(255987) = -1. - N. J. A. Sloane, Jun 15 2017
I also observe that the numbers 1007 and 1269 are mapped to each other by that map, as are the numbers 1503 and 3751 (see the b-file submitted by Chai Wah Wu for A230625). So a(1007) = a(1269) = a(1503) = a(3751) = -1. - David J. Seal, Jun 16 2017
a(217) = a(255) = a(446) = a(558) = a(717) = a(735) = a(775) = a(945) = a(958) = -1 since the trajectory either converges to (1007,1269) or to (1503,3751). 255987 has several preimages, e.g. a(7^25*31^19) = a(3^28*7^7*19) = a(7^12*31^51) = -1. a(3568) = 74 ending in the prime 318792605899852268194734519209581. - Chai Wah Wu, Jun 16 2017
See A287878 for the trajectory of 234, which ends at a prime at step 103. - N. J. A. Sloane, Jun 18 2017
See A288894 for the trajectory of 3932. - Sean A. Irvine, Jun 18 2017

Examples

			Starting at 18: 18 = 2*3^2 = 10*11^10 in binary -> 101110 = 46 = 2*23 = 10*10111 -> 1010111 = 87 = 3*29 = 11*11101 -> 1111101 = 125 = 5^3 = 101^11 -> 10111 = 23, prime, taking 4 steps, so a(18) = 4.
		

Crossrefs

Programs

  • Mathematica
    fn[n_] := FromDigits[Flatten[IntegerDigits[ReplaceAll[FactorInteger[n], {x_, 1} -> {x}], 2]], 2];
    Map[Length, Table[NestWhileList[fn, n, # != 1 && ! PrimeQ[#] &], {n, 2, 40}], {1}] - 1 (* Robert Price, Mar 16 2020 *)

Extensions

More terms from Chai Wah Wu, Jul 15 2014

A287875 Iterate the map x -> A230625(x) starting at n; sequence gives the first prime (or 1) that is reached, written in base 2, or -1 if no prime is ever reached.

Original entry on oeis.org

1, 10, 11, 11111, 101, 1011, 111, 1011, 10111, 11111, 1011, 101011, 1101, 10111, 11101, 11111011, 10001, 10111, 10011, 11111011, 11111, 101011, 10111, 101111, 101011, 111001111, 11101, 10111, 11101, 1111111, 11111, 11111, 111011, 10111, 101111, 1111110011101, 100101
Offset: 1

Views

Author

N. J. A. Sloane, Jun 15 2017

Keywords

Comments

David J. Seal found that the number 255987 is fixed by the map described in A230625 (or equally A287874), so a(255987) = -1. (In fact 255987 is the smallest composite number that is fixed.) - N. J. A. Sloane, Jun 15 2017
Also observe that the numbers 1007 and 1269 are mapped to each other by that map, as are the numbers 1503 and 3751 (see the b-file submitted by Chai Wah Wu for A230625). So they are smaller composite values with a(n) = -1, though not fixed. - David J. Seal, Jun 16 2017
a(217) = a(255) = a(446) = a(558) = a(717) = a(735) = a(775) = a(945) = a(958) = -1 since the trajectory either converges to (1007,1269) or to (1503,3751). - Chai Wah Wu, Jun 16 2017

Crossrefs

Cf. A230625, A230626, A230627 (where the primes reached are written in base 10).

Programs

  • Mathematica
    Table[FromDigits@ IntegerDigits[#, 2] &@ If[n == 1, 1, NestWhile[FromDigits[#, 2] &@ Flatten@ Map[IntegerDigits[#, 2] &, FactorInteger[#] /. {p_, 1} :> {p}] &, n, ! PrimeQ@ # &, {2, 1}]], {n, 37}] (* Michael De Vlieger, Jun 24 2017 *)

Extensions

Changed the "escape" value from 0 to -1 to be consistent with A195264. - N. J. A. Sloane, Jul 27 2017

A288847 Numbers whose trajectories under the map x -> A230625(x) never reach a prime.

Original entry on oeis.org

217, 255, 446, 558, 717, 735, 775, 945, 958, 1007, 1062, 1115, 1269, 1344, 1503, 1984, 2215, 2358, 3003, 3751, 3858, 4131, 4471, 5144, 6174, 6627, 6915, 6923, 7033, 7073, 7139, 7434, 7530, 7778, 8125, 8142, 8239, 8335, 8575, 8967, 9186, 9303, 10040, 10179, 10856, 11907, 12081, 12248
Offset: 1

Views

Author

David J. Seal, Jun 18 2017

Keywords

Comments

Sequence suggested by N. J. A. Sloane on the SeqFan mailing list. These are also the numbers n for which A230626(n) = -1 and A230627(n) = A287875(n) = 0. All currently-listed terms (those <= 3858) enter one of the two loops 1007 <-> 1269 and 1503 <-> 3751.
Further values added (Jun 19 2017) based on Sean A. Irvine's extension of the b-file for A230626.

Examples

			217, 255, 945, 1007 and 1269 are in the sequence because under the map x -> A230625(x):
217 = 7*31 = binary 111*11111 -> binary 11111111 = 255
255 = 3*5*17 = binary 11*101*10001 -> binary 1110110001 = 945
945 = 3^3*5*7 = binary 11^11*101*111 -> binary 1111101111 = 1007
1007 = 19*53 = binary 10011*110101 -> binary 10011110101 = 1269
1269 = 3^3*47 = binary 11^11*101111 -> binary 1111101111 = 1007
		

Crossrefs

Extensions

a(43)-a(48) from Chai Wah Wu, Jul 13 2017

A291803 Partial sums of A230625.

Original entry on oeis.org

1, 3, 6, 16, 21, 32, 39, 50, 64, 85, 96, 139, 152, 175, 204, 224, 241, 287, 306, 391, 422, 465, 488, 535, 557, 602, 617, 704, 733, 826, 857, 878, 937, 1018, 1065, 1239, 1276, 1359, 1420, 1513, 1554, 1649, 1692, 1863, 1980, 2067, 2114, 2197, 2227, 2313, 2426
Offset: 1

Views

Author

N. J. A. Sloane, Sep 06 2017

Keywords

Comments

Although A230625 is a very irregular function, here the graph is much smoother, and it appears that a(n) approx= 1.2*n^2. It would be nice to have a more precise estimate.

Crossrefs

Programs

A287763 Numbers n for which A230625(n) < n, where A230625 is the concatenation of the prime factorization written in binary, converted back to decimal.

Original entry on oeis.org

25, 27, 32, 49, 54, 64, 81, 96, 98, 121, 125, 128, 135, 147, 162, 169, 189, 192, 216, 224, 242, 243, 245, 250, 256, 289, 297, 320, 338, 343, 351, 352, 361, 363, 375, 384, 392, 405, 416, 432, 448, 486, 500, 507, 512, 513, 529, 539, 567, 576, 578, 605, 621, 625, 637, 640, 648, 675, 686, 704, 722, 729, 736, 750, 768, 775, 783, 784
Offset: 1

Views

Author

M. F. Hasler, Jun 21 2017

Keywords

Comments

Relevant for the study of closed orbits. (This is to A230625 the analog of A195330 for A080670.) Up to a certain limit, the trajectory of all numbers, under iteration of A230625, end either in a prime (fixed point) or in one of the orbits {1007, 1269} or {1503,3751}.
See A288985 for the analog when A287874 is used instead of A230625, i.e., without converting back the concatenation of the binary strings to decimal, or rather, reading it as a decimal number.

Crossrefs

Programs

  • Mathematica
    Select[Range@ 800, Function[n, FromDigits[#, 2] < n &@ Flatten@ Map[IntegerDigits[#, 2] &, FactorInteger[n] /. {p_, 1} :> {p}]]] (* Michael De Vlieger, Jun 23 2017 *)
  • PARI
    forcomposite(n=1,1e6,A230625(n)
    				
Showing 1-7 of 7 results.