|
Search: id:A037445
|
|
|
| A037445 |
|
Number of infinitary divisors (or i-divisors) of n. |
|
+0
20
|
|
| 1, 2, 2, 2, 2, 4, 2, 4, 2, 4, 2, 4, 2, 4, 4, 2, 2, 4, 2, 4, 4, 4, 2, 8, 2, 4, 4, 4, 2, 8, 2, 4, 4, 4, 4, 4, 2, 4, 4, 8, 2, 8, 2, 4, 4, 4, 2, 4, 2, 4, 4, 4, 2, 8, 4, 8, 4, 4, 2, 8, 2, 4, 4, 4, 4, 8, 2, 4, 4, 8, 2, 8, 2, 4, 4, 4, 4, 8, 2, 4, 2, 4, 2, 8, 4, 4, 4, 8, 2, 8, 4, 4, 4, 4, 4, 8, 2, 4, 4, 4, 2, 8, 2, 8, 8
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
A divisor of n is called infinitary if it is a product of divisors of the form p^{y_a 2^a}, where p^y is a prime power dividing n and sum_a y_a 2^a is the binary representation of y.
|
|
LINKS
|
S. R. Finch, Unitarism and infinitarism.
J. O. M. Pedersen, Tables of Aliquot Cycles
Eric Weisstein's World of Mathematics, Infinitary Divisor
|
|
FORMULA
|
Multiplicative with a(p^e) = 2^A000120(e). - David W. Wilson, Sep 01, 2001
|
|
EXAMPLE
|
If n = 8: 8 = 2^3 = 2^"11" (writing 3 in binary) so the infinitary divisors are 2^"00" = 1, 2^"01" = 2, 2^"10" = 4 and 2^"11" = 8; so a(8) = 4.
|
|
MATHEMATICA
|
Table[Length@((Times @@ (First[it]^(#1 /. z -> List)) & ) /@
Flatten[Outer[z, Sequence @@ bitty /@
Last[it = Transpose[FactorInteger[k]]], 1]]), {k, 2, 240}]
bitty[k_] := Union[Flatten[Outer[Plus, Sequence @@ ({0, #1} & ) /@ Union[2^Range[0, Floor[Log[2, k]]]*Reverse[IntegerDigits[k, 2]]]]]]
y[n_] := Select[Range[0, n], BitOr[n, # ] == n & ] divisors[Infinity][1] := {1} divisors[Infinity][n_] := Sort[Flatten[Outer[Times, Sequence @@ (FactorInteger[n] /. {p_, m_Integer} :> p^y[m])]]] Length /@ divisors[Infinity] /@ Range[105] - Paul Abbott (paul(AT)physics.uwa.edu.au), Apr 29 2005
|
|
CROSSREFS
|
Cf. A007358, A007357, A038148, A049417, A004607.
Sequence in context: A046927 A084718 A154851 this_sequence A003036 A089818 A067025
Adjacent sequences: A037442 A037443 A037444 this_sequence A037446 A037447 A037448
|
|
KEYWORD
|
nonn,nice,easy,mult
|
|
AUTHOR
|
Yasutoshi Kohmoto (zbi74583(AT)boat.zero.ad.jp)
|
|
EXTENSIONS
|
Corrected and extended by Naohiro Nomoto (6284968128(AT)geocities.co.jp), Jun 21 2001
|
|
|
Search completed in 0.002 seconds
|
