A097017 a(n) = sigma(5*n) modulo 6.

0, 0, 0, 0, 1, 0, 0, 0, 0, 3, 0, 0, 0, 0, 4, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 3, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2

Offset: 1

Author

Labos Elemer, Aug 23 2004

Keywords

• nonn

Comments

a(n) = 0 if A112765(n) is even. - Robert Israel, Feb 27 2018

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000203, A084301, A112765.

Programs

Maple

f:= n -> numtheory:-sigma(5*n) mod 6;
map(f, [$1.100]); # Robert Israel, Feb 27 2018

Mathematica

Mod[#,6]&/@DivisorSigma[1,5*Range[110]] (* Harvey P. Dale, Jan 14 2019 *)

PARI

a(n) = sigma(5*n) % 6; \\ Michel Marcus, Mar 08 2014

Formula

a(n) = A084301(5*n).

Extensions

Definition clarified by Harvey P. Dale, Jan 14 2019