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

A112966 Sum(mu(i)*omega(j): i+j=n), with mu=A008683 and omega=A001221.

Original entry on oeis.org

0, 0, 1, 0, -1, -1, -1, -2, -3, -2, -2, -1, -3, -3, -4, 0, -6, -1, -4, -1, -3, -3, -7, 0, -5, -3, -3, 0, -5, 1, -5, -2, -10, -1, -8, 4, -8, -3, -4, 2, -6, 0, -5, -1, -4, -2, -11, 3, -8, -1, -8, -1, -11, 2, -8, 2, -7, -3, -9, 5, -2, -5, -7, 2, -11, 7, -6, 0, -4, 1, -9, 4, -12, -3, -6, 0, -10, 2, -7, -1, -10, -8, -12, 6, -13, -2, -12, 0
Offset: 1

Views

Author

Reinhard Zumkeller, Oct 07 2005

Keywords

Examples

			a(5)=mu(1)*omega(4)+mu(2)*omega(3)+mu(3)*omega(2)+mu(4)*omega(1)
= 1*1 - 1*1 - 1*1 + 0*0 = -1.

Links

Crossrefs

Cf. A013939, A112965, A068341, A112962, A112963, A112964, A112968.

Programs

  • Haskell
    a112966 n = sum $ zipWith (*)
   a008683_list $ reverse $ take (n - 1) a001221_list
-- Reinhard Zumkeller, Feb 29 2012

A112968 a(n) = Sum_{i+j=n} mu(i)*Omega(j), with mu=A008683 and Omega=A001222.

Original entry on oeis.org

0, 0, 1, 0, 0, -2, -2, -2, -2, -2, -6, -2, -4, -2, -7, -1, -5, 0, -7, -3, -9, 1, -11, 2, -7, 1, -12, 1, -11, 7, -8, -5, -8, -1, -18, 3, -10, 1, -13, 1, -7, 13, -12, -2, -13, 6, -16, 3, -11, 3, -15, -4, -16, 13, -15, -4, -15, 4, -17, 11, -14, 4, -13, 7, -12, 15, -17, -5, -15, 16, -13, 3, -12, 3, -20, 3, -27, 19, -20, -3, -11, 3
Offset: 1

Views

Author

Reinhard Zumkeller, Oct 07 2005

Keywords

Examples

			a(5) = mu(1)*Omega(4)+mu(2)*Omega(3)+mu(3)*Omega(2)+mu(4)*Omega(1) = 1*2 - 1*1 - 1*1 + 0*1 = 0.

Links

Crossrefs

Cf. A013939, A112967, A068341, A112962, A112963, A112964, A112966.

Programs

  • Haskell
    a112968 n = sum $ zipWith (*)
   a008683_list $ reverse $ take (n - 1) a001222_list
-- Reinhard Zumkeller, Feb 29 2012
  • Mathematica
    A112968[n_]:=Plus@@Table[MoebiusMu[i]*PrimeOmega[n-i],{i,1,n-1}]; Array[A112968,200] (* Enrique Pérez Herrero, Feb 28 2012 *)

Extensions

Corrected by N. J. A. Sloane, Mar 01 2006

A112964 Sum(mu(i)*sigma(j): i+j=n), with mu=A008683 and sigma=A000203.

Original entry on oeis.org

0, 1, 2, 0, 0, -6, -3, -12, -11, -13, -22, -19, -20, -30, -41, -15, -55, -24, -52, -41, -59, -24, -109, -22, -78, -42, -111, -26, -131, -2, -119, -75, -133, -8, -214, 7, -175, -68, -176, -17, -209, 14, -231, -73, -175, 45, -349, -11, -236, -20, -236, -53, -384, 68, -321, -56, -270, 1, -457, 41, -328, -48
Offset: 1

Views

Author

Reinhard Zumkeller, Oct 07 2005

Keywords

Examples

			a(5)=mu(1)*sigma(4)+mu(2)*sigma(3)+mu(3)*sigma(2)+mu(4)*sigma(1)
= 1*7 - 1*4 - 1*3 + 0*1 = 0.

Links

Crossrefs

Cf. A024916, A000385, A068341, A112962, A112963, A112966, A112968.

Programs

A112962 Sum(mu(i)*phi(j): i+j=n), with mu=A008683 and phi=A000010.

Original entry on oeis.org

0, 1, 0, 0, -1, -1, -4, -2, -5, -8, -5, -8, -9, -11, -10, -24, 1, -21, -11, -23, -15, -37, 4, -42, -11, -38, -7, -49, 6, -63, -12, -44, -3, -81, 10, -106, 7, -49, -8, -92, 15, -103, 2, -72, -5, -114, 41, -140, -3, -114, 8, -113, 49, -179, 3, -135, 27, -131, 46, -218, -7, -99, 32, -185, 72, -259, 50, -104, 23, -211, 52, -248, 43, -153
Offset: 1

Views

Author

Reinhard Zumkeller, Oct 07 2005

Keywords

Examples

			a(5)=mu(1)*phi(4)+mu(2)*phi(3)+mu(3)*phi(2)+mu(4)*phi(1) = 1*2 - 1*2 - 1*1 + 0*1 = -1.

Crossrefs

Cf. A002088, A065093, A068341, A112963, A112964, A112966, A112968.

Programs

  • Maple
    with(numtheory); f:=n->add(phi(i)*mobius(n-i),i=1..n-1);
  • PARI
    a(n)=sum(i=1,n-1,moebius(i)*eulerphi(n-i)) \\ Charles R Greathouse IV, Feb 21 2013

Extensions

Corrected by N. J. A. Sloane, Mar 01 2006
Showing 1-4 of 4 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.