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.

A067342 Sum of decimal digits of sum of divisors of n.

Original entry on oeis.org

1, 3, 4, 7, 6, 3, 8, 6, 4, 9, 3, 10, 5, 6, 6, 4, 9, 12, 2, 6, 5, 9, 6, 6, 4, 6, 4, 11, 3, 9, 5, 9, 12, 9, 12, 10, 11, 6, 11, 9, 6, 15, 8, 12, 15, 9, 12, 7, 12, 12, 9, 17, 9, 3, 9, 3, 8, 9, 6, 15, 8, 15, 5, 10, 12, 9, 14, 9, 15, 9, 9, 15, 11, 6, 7, 5, 15, 15, 8, 15, 4, 9, 12, 8, 9, 6, 3, 9, 9, 9
Offset: 1

Views

Author

Labos Elemer, Jan 16 2002

Keywords

Examples

			n=100, sigma(100)=217, SumDigit(217)=10, a(100)=10.
		

Crossrefs

Programs

  • Mathematica
    Array[Total[IntegerDigits[DivisorSigma[1,#]]]&,90] (* Harvey P. Dale, Jan 02 2012 *)
  • PARI
    vector(80, n, sumdigits(sigma(n))) \\ Michel Marcus, Apr 08 2015

Formula

a(n) = A007953(A000203(n)). - Michel Marcus, Dec 26 2013

Extensions

Offset corrected to 1 by Michel Marcus, Dec 26 2013

A134688 Successive digits of the terms of A000203, the sum-of-divisors function.

Original entry on oeis.org

1, 3, 4, 7, 6, 1, 2, 8, 1, 5, 1, 3, 1, 8, 1, 2, 2, 8, 1, 4, 2, 4, 2, 4, 3, 1, 1, 8, 3, 9, 2, 0, 4, 2, 3, 2, 3, 6, 2, 4, 6, 0, 3, 1, 4, 2, 4, 0, 5, 6, 3, 0, 7, 2, 3, 2, 6, 3, 4, 8, 5, 4, 4, 8, 9, 1, 3, 8, 6, 0, 5, 6, 9, 0, 4, 2, 9, 6
Offset: 1

Views

Author

Omar E. Pol, Nov 06 2007

Keywords

Crossrefs

Programs

  • Maple
    map(t -> op(ListTools[Reverse](convert(numtheory:-sigma(t),base,10))), [$1..100]); # Robert Israel, Nov 27 2015
  • Mathematica
    Flatten@ Map[IntegerDigits, Array[DivisorSigma[1, #] &, {42}]] (* Michael De Vlieger, Nov 28 2015 *)
    Flatten[IntegerDigits/@DivisorSigma[1,Range[60]]] (* Harvey P. Dale, Apr 06 2018 *)
Showing 1-2 of 2 results.