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.

A077614 Let F(m,k) be the number of positive integers j <= m such that gcd(j,k) = 1; then a(n) is the number of positive integers k such that F(n,k) = k.

Original entry on oeis.org

1, 0, 1, 2, 0, 1, 1, 2, 0, 0, 0, 1, 1, 1, 1, 1, 1, 2, 0, 1, 0, 0, 1, 2, 1, 1, 0, 1, 0, 1, 3, 3, 0, 0, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 2, 1, 1, 1, 0, 2, 3, 2, 1, 1, 0, 0, 1, 0, 2, 2, 1, 1, 1, 0, 1, 0, 0, 2, 3, 0, 2, 1, 0, 0, 0, 1, 3, 1, 0, 1, 2, 1, 0, 1, 0, 1, 2, 0, 0, 0, 0, 2, 2, 1, 2, 2, 1, 0, 1, 0, 1, 0
Offset: 1

Views

Author

Christian G. Bower and Leroy Quet, Nov 11 2002

Keywords

Crossrefs

Cf. A077615 (least inverse), A275257 (the F array).

Extensions

Name edited by Jon E. Schoenfield, Oct 27 2019

A275258 Toth's partial sum over the number of divisors of the greatest unitary divisor.

Original entry on oeis.org

1, 3, 4, 6, 6, 11, 8, 11, 11, 16, 12, 21, 14, 21, 23, 20, 18, 29, 20, 32, 30, 31, 24, 39, 27, 36, 30, 42, 30, 57, 32, 37, 45, 46, 47, 56, 38, 51, 52, 59, 42, 77, 44, 62, 63, 61, 48, 71, 51, 69, 67, 72, 54, 77, 70, 78, 74, 76, 60, 113, 62, 81, 83
Offset: 1

Views

Author

R. J. Mathar, Jul 21 2016

Keywords

Crossrefs

Programs

  • Maple
    A275258 := proc(n)
        local a,d ;
        a := 0 ;
        for  d in A077610(n) do
            a := a+A005361(d)*A275257(n/d,d) ;
        end do:
        a ;
    end proc:
    seq(A275258(n),n=1..80) ;
  • Mathematica
    beta[n_] := Times @@ Transpose[FactorInteger[n]][[2]]; phi[x_, n_] := Sum[Boole[ GCD[k, n] == 1 ], {k, 1, x}]; a[n_] := DivisorSum[n, beta[#] * phi[n/#, #] &, GCD[#, n/#] == 1 &]; Array[a, 100] (* Amiram Eldar, Sep 22 2019 *)

Formula

a(n) = Sum_{k=1..n} A000005( A165430(n,k) ).
Sum_{k=1..n} a(k) = c * n^2 / 2 + O(n * log(n)^2), where c = A065486. - Amiram Eldar, Dec 22 2023
Showing 1-2 of 2 results.