A097210 Numbers that appear in A076078.

1, 2, 4, 8, 10, 16, 32, 44, 64, 128, 184, 218, 256, 400, 512, 752, 1024, 2048, 3040, 3392, 3748, 4096, 8192, 12224, 16384, 27904, 32768, 49024, 57856, 61064, 64594, 65536, 131072, 196352, 226304, 253808, 262144, 524288, 785920, 954368, 981520, 1048576

Offset

1,2

Comments

A076078(n) = the number of sets of distinct positive integers with a least common multiple of n.

All powers of 2 are in the sequence. - Robert G. Wilson v, Aug 14 2004

Links

Table of n, a(n) for n=1..42.

Mathematica

f[n_] := Block[{d = Divisors[n]}, Plus @@ (MoebiusMu[n/d](2^DivisorSigma[0, d] - 1))]; Take[ Union[ Table[ f[n], {n, 2^20}]], 42] (* Robert G. Wilson v, Aug 14 2004 *)

Crossrefs

Cf. A076078, A097211.

Sequence in context: A353431 A353696 A271816 * A097214 A045579 A177050

Adjacent sequences: A097207 A097208 A097209 * A097211 A097212 A097213

Keyword

nonn

Author

Matthew Vandermast, Aug 01 2004

Status

approved