|
| |
|
|
A077609
|
|
Triangle in which n-th row lists infinitary divisors of n.
|
|
1
|
|
|
|
1, 1, 2, 1, 3, 1, 4, 1, 5, 1, 2, 3, 6, 1, 7, 1, 2, 4, 8, 1, 9, 1, 2, 5, 10, 1, 11, 1, 3, 4, 12, 1, 13, 1, 2, 7, 14, 1, 3, 5, 15, 1, 16, 1, 17, 1, 2, 9, 18, 1, 19, 1, 4, 5, 20, 1, 3, 7, 21, 1, 2, 11, 22, 1, 23, 1, 2, 3, 4, 6, 8, 12, 24, 1, 25, 1, 2, 13, 26, 1, 3, 9, 27, 1, 4, 7, 28, 1, 29, 1
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,3
|
|
|
LINKS
|
Table of n, a(n) for n=1..90.
Eric Weisstein's World of Mathematics, Infinitary Divisor
|
|
|
MATHEMATICA
|
y[n_] := Select[Range[0, n], BitOr[n, #1] == n & ] divisors[Infinity][1] := {1} divisors[Infinity][n_] := Sort[Flatten[Outer[Times, Sequence @@ (FactorInteger[n] /. {p_, m_Integer} :> p^y[m])]]] Flatten[divisors[Infinity] /@ Range[30]] (Paul Abbott (paul(AT)physics.uwa.edu.au), Apr 29 2005)
|
|
|
CROSSREFS
|
Cf. A027750, A037445.
Sequence in context: A049077 A180184 A222266 * A077610 A177815 A007879
Adjacent sequences: A077606 A077607 A077608 * A077610 A077611 A077612
|
|
|
KEYWORD
|
nonn,tabf
|
|
|
AUTHOR
|
Eric W. Weisstein, Nov 11, 2002
|
|
|
STATUS
|
approved
|
| |
|
|
