OFFSET
1,2
LINKS
Robert Price, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
Table[1 - DivisorSigma[1, n] + DivisorSigma[1, n]^2 - DivisorSigma[1, n]^3 + DivisorSigma[1, n]^4, {n, 1, 10000}]
Table[Cyclotomic[10, DivisorSigma[1, n]], {n, 1, 10000}]
PROG
(PARI) a(n) = polcyclo(10, sigma(n)) \\ Michel Marcus, Jun 26 2015
(Magma) [(1 - DivisorSigma(1, n) + DivisorSigma(1, n)^2 - DivisorSigma(1, n)^3 + DivisorSigma(1, n)^4): n in [1..35]]; // Vincenzo Librandi, Jun 27 2015
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert Price, Jun 26 2015
STATUS
approved