A084303 Smallest x such that sigma(x) mod 6 = n.

5, 1, 7, 2, 3, 2401

Offset

0,1

Comments

Row 6 of A074625 (apart from different ordering). - Michel Marcus, Dec 19 2013

Links

Table of n, a(n) for n=0..5.

Example

n=5: sigma(2401) = 1+7+49+343+2401 = 2801 = 6*466+5, hence a(5)=2401.

Mathematica

Table[k = 1; While[Mod[DivisorSigma[1, k], 6] != n, k++]; k, {n, 0, 5}] (* Michael De Vlieger, Mar 25 2017 *)

Prog

(PARI) a(n) = {my(x = 1); while((sigma(x) % 6) != n, x++); x; } \\ Michel Marcus, Dec 18 2013

Crossrefs

Cf. A000203, A074384.

Sequence in context: A102778 A135544 A051724 * A011508 A365318 A195429

Adjacent sequences: A084300 A084301 A084302 * A084304 A084305 A084306

Keyword

easy,fini,full,nonn

Author

Labos Elemer, Jun 02 2003

Status

approved