OFFSET
1,1
LINKS
Robert Price, Table of n, a(n) for n = 1..10000
FORMULA
MAPLE
with(numtheory): A259251:=n->1 + sigma(n) + sigma(n)^2 + sigma(n)^3 + sigma(n)^4 + sigma(n)^5 + sigma(n)^6: seq(A259251(n), n=1..50); # Wesley Ivan Hurt, Jul 09 2015
MATHEMATICA
Table[1 + DivisorSigma[1, n] + DivisorSigma[1, n]^2 + DivisorSigma[1, n]^3 + DivisorSigma[1, n]^4 + DivisorSigma[1, n]^5 + DivisorSigma[1, n]^6, {n, 10000}]
Table[Cyclotomic[7, DivisorSigma[1, n]], {n, 10000}]
f[n_] := Total[DivisorSigma[1, n]^Range[0, 6]]; Array[f, 26] (* Robert G. Wilson v *)
PROG
(PARI) vector(30, n, polcyclo(7, sigma(n))) \\ Michel Marcus, Jun 23 2015
(Magma) [1 + SumOfDivisors(n) + SumOfDivisors(n)^2 + SumOfDivisors(n)^3 + SumOfDivisors(n)^4 + SumOfDivisors(n)^5 + SumOfDivisors(n)^6: n in [1..50]]; // Vincenzo Librandi, Jun 26 2015
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert Price, Jun 22 2015
STATUS
approved