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,10

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

Formula

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

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 *)

Prog

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

Crossrefs

Cf. A000203, A084301, A112765.

Sequence in context: A281155 A321432 A220093 * A108707 A046775 A221787

Adjacent sequences: A097014 A097015 A097016 * A097018 A097019 A097020

Keyword

nonn

Author

Labos Elemer, Aug 23 2004

Extensions

Definition clarified by Harvey P. Dale, Jan 14 2019

Status

approved