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.

A193254 Sum of odd divisors of lambda(n).

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 4, 1, 4, 1, 6, 1, 4, 4, 1, 1, 1, 4, 13, 1, 4, 6, 12, 1, 6, 4, 13, 4, 8, 1, 24, 1, 6, 1, 4, 4, 13, 13, 4, 1, 6, 4, 32, 6, 4, 12, 24, 1, 32, 6, 1, 4, 14, 13, 6, 4, 13, 8, 30, 1, 24, 24, 4, 1, 4, 6, 48, 1, 12, 4, 48, 4, 13, 13, 6, 13, 24, 4, 56, 1, 40, 6, 42, 4, 1, 32, 8, 6, 12, 4, 4, 12, 24, 24, 13, 1, 4, 32, 24, 6, 31, 1, 72, 4, 4
Offset: 1

Views

Author

Michel Lagneau, Jul 22 2011

Keywords

Comments

Lambda is the function in A002322.

Examples

			a(19) = 13 because lambda(19) = 18 and the sum of the 3 odd divisors {1, 3, 9} is 13.
		

Crossrefs

Programs

  • Mathematica
    Table[Total[Select[Divisors[CarmichaelLambda[n]], OddQ[ # ]&]], {n, 67}]
  • PARI
    a(n) = sumdiv(lcm(znstar(n)[2]), d, d*(d%2));

Formula

a(n) = A000593(A002322(n)).

Extensions

More terms from Antti Karttunen, Aug 22 2017

A193388 Sum of even divisors of phi(n).

Original entry on oeis.org

0, 0, 2, 2, 6, 2, 8, 6, 8, 6, 12, 6, 24, 8, 14, 14, 30, 8, 26, 14, 24, 12, 24, 14, 36, 24, 26, 24, 48, 14, 48, 30, 36, 30, 56, 24, 78, 26, 56, 30, 84, 24, 64, 36, 56, 24, 48, 30, 64, 36, 62, 56, 84, 26, 84, 56, 78, 48, 60, 30, 144, 48, 78, 62, 120, 36, 96
Offset: 1

Views

Author

Michel Lagneau, Jul 25 2011

Keywords

Examples

			a(13) = 24 because phi(13) = 12 and the sum of the 4 even divisors { 2, 4, 6, 12} is 24.
		

Crossrefs

Programs

  • Mathematica
    Table[Total[Select[Divisors[EulerPhi[n]], EvenQ[ # ]&]], {n, 58}]
  • PARI
    A193388(n) = { my(s=eulerphi(n)); sumdiv(s,d,(!(d%2))*d); }; \\ Antti Karttunen, Dec 05 2017

Formula

a(n) = A146076(A000010(n)) = A062402(n) - A193454(n). - Antti Karttunen, Dec 05 2017
Showing 1-2 of 2 results.