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.

Previous Showing 11-13 of 13 results.

A094468 Numbers k such that sum of 9th powers of divisors of k is divisible by the square of Euler-phi of k.

Original entry on oeis.org

1, 2, 3, 6, 14, 42, 3810, 26670, 34162, 41256, 48546, 87096, 102486, 131934, 210482, 288792, 315723, 318990, 430122, 529848, 609672, 631446, 979830, 1023366, 1203960, 1473374, 1683126, 1920699, 2210061, 2241934, 2506086, 2549610
Offset: 1

Views

Author

Labos Elemer, May 19 2004

Keywords

Crossrefs

Programs

  • Mathematica
    Select[Range[2600000],Divisible[Total[Divisors[#]^9],(EulerPhi[#])^2]&]  (* Harvey P. Dale, Mar 04 2011 *)
  • PARI
    for(n=1,10000000,if(Mod(sigma(n,9),eulerphi(n)^2)==0,print1(n,","))) \\ C. Ronaldo

Formula

A013957(k)/A000010(k)^2 is an integer.

Extensions

More terms from C. Ronaldo (aga_new_ac(AT)hotmail.com), Jan 18 2005

A093038 Numbers k such that sum of 5th powers of divisors of k is divisible by the square of Euler-phi of k.

Original entry on oeis.org

1, 2, 3, 6, 322, 966, 473732, 1420296, 6655780894
Offset: 1

Views

Author

Labos Elemer, May 19 2004

Keywords

Comments

No more terms through 10^9. - Ryan Propper, Jan 09 2007

Crossrefs

Programs

  • Mathematica
    Do[ If[ Mod[ DivisorSigma[5, n], EulerPhi[n]^2] == 0, Print[n]], {n, 10^7}] (* Robert G. Wilson v, May 23 2004 *)
  • PARI
    isok(k) = (sigma(k, 5) % eulerphi(k)^2) == 0; \\ Michel Marcus, Mar 07 2020

Formula

A001160(k)/A000010(k)^2 is an integer.

Extensions

a(9) from Amiram Eldar, Mar 07 2020

A094469 Numbers k such that sum of 11th powers of divisors of k is divisible by the square of Euler-phi of k.

Original entry on oeis.org

1, 2, 3, 6, 1645, 3290, 4935, 9870, 3831674, 11495022, 346014339, 692028678
Offset: 1

Views

Author

Labos Elemer, May 19 2004

Keywords

Crossrefs

Programs

  • Mathematica
    Do[ If[ Mod[ DivisorSigma[11, n], EulerPhi[n]^2] == 0, Print[n]], {n, 10^7}] (* Robert G. Wilson v, May 23 2004 *)
  • PARI
    isok(k) = (sigma(k, 11) % eulerphi(k)^2) == 0; \\ Michel Marcus, Mar 07 2020

Formula

A013959(k)/A000010(k)^2 is an integer.

Extensions

a(9) from Robert G. Wilson v, May 23 2004
a(10) from Labos Elemer, May 26 2004
a(6) corrected and a(11)-a(12) added by Amiram Eldar, Mar 07 2020
Previous Showing 11-13 of 13 results.