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

A378641 Largest m <= n such that phi(m) does not divide n, or -1 if no such m exists, where phi is the Euler totient function (A000010).

Original entry on oeis.org

-1, -1, 3, -1, 5, 5, 7, 7, 9, 10, 11, 11, 13, 14, 15, 14, 17, 17, 19, 20, 21, 22, 23, 23, 25, 26, 27, 28, 29, 30, 31, 31, 33, 34, 35, 35, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 47, 49, 50, 51, 52, 53, 53, 55, 56, 57, 58, 59, 60, 61, 62, 63, 63, 65, 66, 67, 68, 69
Offset: 1

Views

Author

Paolo Xausa, Dec 05 2024

Keywords

Crossrefs

Programs

  • Mathematica
    A378641[n_] := Module[{m = n}, While[m > 0 && Divisible[n, EulerPhi[m]], m--]; If[m == 0, -1, m]];
    Array[A378641, 100]

Formula

a(n) = n if n is an odd number >= 3.
Showing 1-1 of 1 results.