A074629 Duplicate of A067051

2, 8, 18, 32, 49, 50, 72, 98, 128, 162, 169, 196, 200, 242, 288, 338, 361, 392, 441, 450, 512, 578, 648, 676, 722, 784, 800, 882, 961, 968, 1058, 1152, 1225, 1250, 1352, 1369, 1444, 1458, 1521, 1568, 1682, 1764, 1800, 1849, 1922, 2048, 2178, 2312, 2450, 2592

Offset

1,1

Comments

Square terms are in A074216. Nonsquare terms appear to be A001105 except {0}. - Michel Marcus, Dec 26 2013

In the prime factorization of n, no odd prime has odd exponent, and 2 has odd exponent or at least one prime == 1 (mod 6) has exponent == 2 (mod 6). - Robert Israel, Dec 11 2015

Links

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

Formula

A000203(n) mod 6 = 3.

{n: A084301(n) = 3 }. - R. J. Mathar, May 19 2020

Example

n=32: sigma(32) = 63 = 6*10 + 3.

Maple

select(t -> numtheory:-sigma(t) mod 6 = 3, [$1..10000]); # Robert Israel, Dec 11 2015

Mathematica

Select[Range@ 2600, Mod[DivisorSigma[1, #], 6] == 3 &] (* Michael De Vlieger, Dec 10 2015 *)

Prog

(PARI) isok(n) = (sigma(n) % 6) == 3; \\ Michel Marcus, Dec 26 2013
(Magma) [n: n in [1..3*10^3] | (SumOfDivisors(n) mod 6) eq 3]; // Vincenzo Librandi, Dec 11 2015

Crossrefs

Cf. A000203, A072862, A074384, A074627, A074628, A074630.

Appears to be the same sequence as A067051. - Ralf Stephan, Aug 18 2004

Sequence in context: A356209 A357851 A067051 * A209303 A001105 A361905

Adjacent sequences: A074626 A074627 A074628 * A074630 A074631 A074632

Keyword

dead

Author

Labos Elemer, Aug 26 2002

Status

approved