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.

A015715 Odd integers m such that phi(m) | sigma(m).

Original entry on oeis.org

1, 3, 15, 35, 105, 357, 1045, 1485, 3135, 3339, 5049, 10659, 12441, 16065, 24871, 24969, 29029, 33915, 35343, 39105, 39585, 50065, 58435, 64285, 71145, 74613, 87087, 87685, 99693, 124355, 124605, 132957, 137885, 140335, 145145, 150195
Offset: 1

Views

Author

Keywords

Comments

Subsequence of A236693. Proof: if n is in this sequence, then 2^phi(n) - 1 is divisible by n and 2^sigma(n) - 1 is divisible by 2^phi(n) - 1. Therefore, 2^sigma(n) == 1 (mod n) and n is in A236693. - Jinyuan Wang, Mar 13 2020

Crossrefs

Subsequence of A020492 and A236693.

Programs

  • Mathematica
    Select[Range[1,151001,2],Divisible[DivisorSigma[1,#],EulerPhi[#]]&] (* Harvey P. Dale, Sep 16 2016 *)
  • PARI
    isok(m) = (m % 2) && !(sigma(m) % eulerphi(m)); \\ Michel Marcus, Mar 14 2020

Extensions

Offset corrected by Donovan Johnson, Jan 18 2012

A324243 Rotkiewicz numbers: numbers k such that a^sigma(k) == b^sigma(k) (mod k) for all pairs of numbers a, b such that gcd(a*b, k) = 1, where sigma(k) is the sum of divisors of k (A000203).

Original entry on oeis.org

1, 2, 3, 6, 12, 14, 15, 24, 30, 35, 42, 48, 56, 60, 65, 70, 78, 88, 105, 119, 120, 126, 130, 140, 168, 182, 190, 195, 210, 224, 238, 240, 248, 255, 260, 264, 270, 280, 312, 315, 348, 357, 370, 377, 390, 418, 420, 440, 455, 459, 476, 480, 504, 510, 520, 546, 560
Offset: 1

Views

Author

Amiram Eldar, Oct 25 2019

Keywords

Comments

Rotkiewicz defined these numbers and found the first 6 terms that are semiprimes (6, 14, 15, 35, 65, 119, and 377).
Křížek et al. named these numbers Rotkiewicz numbers, and proved that the following criteria are equivalent to the definition:
1) Numbers k such that c^sigma(k) == 1 (mod k) for all numbers c such that gcd(c, k) = 1.
2) Numbers k such that lambda(k) | sigma(k) where lambda is the Carmichael lambda function (A002322).
They also proved that:
1) If M(p) = 2^p-1 is a Mersenne prime (A000668) then 2^(p-2)*M(p) is a term.
2) If n is a term and, 2^k is the largest power of 2 that divides sigma(n), and F(m) = 2^(2^m) + 1 is a Fermat prime not dividing n such that m <= log_2(k+1) then n*F(m) is also a term.

References

  • Michal Křížek, Florian Luca, and Lawrence Somer, 17 Lectures on Fermat Numbers: From Number Theory to Geometry, Springer-Verlag, New York, 2001, chapter 12, pp. 144-146.
  • Andrzej Rotkiewicz, Pseudoprime numbers and their generalizations, Student Association of Faculty of Sciences, University of Novi Sad, 1972.

Crossrefs

Programs

  • Mathematica
    aQ[n_] := Divisible[DivisorSigma[1, n], CarmichaelLambda[n]]; Select[Range[560], aQ]
Showing 1-2 of 2 results.