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

A348099 Starts of runs of 3 consecutive numbers that have an equal number of unitary and nonunitary prime divisors (A348097).

Original entry on oeis.org

423, 603, 1250, 1375, 2007, 2523, 2527, 3175, 4075, 4203, 4374, 4923, 4948, 7442, 8991, 10375, 10467, 12591, 18027, 20402, 20575, 22023, 22687, 23823, 26071, 28375, 30231, 31507, 31850, 33271, 34623, 35574, 36162, 37348, 40023, 49975, 50274, 54475, 54511, 55323
Offset: 1

Views

Author

Amiram Eldar, Sep 30 2021

Keywords

Links

Crossrefs

Subsequence of A348097 and A348098.
Cf. A335397.

Programs

  • Mathematica
    q[n_] := n == 1 || Count[(e = FactorInteger[n][[;; , 2]]), 1] == Length[e]/2; v = q /@ Range[3]; seq = {}; Do[v = Append[Drop[v, 1], q[k]]; If[And @@ v, AppendTo[seq, k - 2]], {k, 4, 10^5}]; seq

Formula

423 is a term since 423 = 3^2 * 47, 423 + 1 = 424 = 2^3 * 53 and 423 + 2 = 425 = 5^2 * 17 all have one unitary prime divisor and one nonunitary prime divisor.

A348100 Starts of runs of 4 consecutive numbers that have an equal number of unitary and nonunitary prime divisors (A348097).

Original entry on oeis.org

56347, 906596, 906597, 1090250, 1141550, 1243275, 4972372, 5684822, 6288488, 6379748, 6486325, 6907974, 7480447, 8587249, 9129248, 11112173, 12133672, 12133673, 13852924, 14185448, 17519948, 19293208, 19293209, 19751750, 20738672, 21560848, 21721796, 21959350
Offset: 1

Views

Author

Amiram Eldar, Sep 30 2021

Keywords

Examples

			56347 is a term since 56347 = 29^2 * 67, 56347 + 1 = 56348 = 2^2 * 14087, 56347 + 2 = 56349 = 3^3 * 2087 and 56347 + 3 = 56350 = 2 * 5^2 * 7^2 * 23 all have the same number of unitary and nonunitary prime divisors.

Links

Crossrefs

Subsequence of A348097, A348098 and A348099.
Cf. A335398.

Programs

  • Mathematica
    q[n_] := n == 1 || Count[(e = FactorInteger[n][[;; , 2]]), 1] == Length[e]/2; v = q /@ Range[4]; seq = {}; Do[v = Append[Drop[v, 1], q[k]]; If[And @@ v, AppendTo[seq, k - 3]], {k, 5, 1.3*10^6}]; seq

A348101 Starts of runs of 5 consecutive numbers that have an equal number of unitary and nonunitary prime divisors (A348097).

Original entry on oeis.org

906596, 12133672, 19293208, 23542000, 25793449, 70289224, 77449300, 130397524, 316377124, 359762848, 371355172, 395284372, 415670200, 527032924, 600284788, 642788072, 730243348, 746696248, 754642996, 792007675, 1153139048, 1153702448, 1338997372, 1359156472
Offset: 1

Views

Author

Amiram Eldar, Sep 30 2021

Keywords

Comments

1744218747 is the least start of a run of 6 consecutive numbers. The next such run starts with 73840265847.

Examples

			906596 is a term since 906596 = 2^2 * 226649, 906596 + 1 = 906597 = 3^2 * 100733, 906596 + 2 = 906598 = 2 * 7^2 * 11 * 29^2, 906596 + 3 = 906599 = 71 * 113^2 and 906596 + 4 = 906600 = 2^3 * 3 * 5^2 * 1511 all have the same number of unitary and nonunitary prime divisors.

Links

Crossrefs

Subsequence of A348097, A348098, A348099 and A348100.
Cf. A335399.

Programs

  • Mathematica
    q[n_] := n == 1 || Count[(e = FactorInteger[n][[;; , 2]]), 1] == Length[e]/2; v = q /@ Range[5]; seq = {}; Do[v = Append[Drop[v, 1], q[k]]; If[And @@ v, AppendTo[seq, k - 4]], {k, 6, 3*10^7}]; seq
Showing 1-3 of 3 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.