OFFSET
1,1
LINKS
Robert Price, Table of n, a(n) for n = 1..10000
FORMULA
MAPLE
with(numtheory): A259369:=n->1+sigma(n)^3+sigma(n)^6: seq(A259369(n), n=1..40); # Wesley Ivan Hurt, Jun 29 2015
MATHEMATICA
Table[1 + DivisorSigma[1, n]^3 + DivisorSigma[1, n]^6, {n, 10000}]
Table[Cyclotomic[9, DivisorSigma[1, n]], {n, 10000}]
PROG
(PARI) a(n) = polcyclo(9, sigma(n)) \\ Michel Marcus, Jun 25 2015
(Magma) [1+SumOfDivisors(n)^3+ SumOfDivisors(n)^6: n in [1..50]]; // Vincenzo Librandi, Jun 26 2015
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert Price, Jun 25 2015
STATUS
approved