|
| |
|
|
A077610
|
|
Triangle in which n-th row lists unitary divisors of n.
|
|
1
| |
|
|
1, 1, 2, 1, 3, 1, 4, 1, 5, 1, 2, 3, 6, 1, 7, 1, 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, 3, 8, 24, 1, 25, 1, 2, 13, 26, 1, 27, 1, 4, 7, 28, 1, 29, 1, 2, 3, 5, 6, 10, 15, 30
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
LINKS
| Reinhard Zumkeller, Rows n=1..1000 of triangle, flattened
Eric Weisstein's World of Mathematics, Unitary Divisor
|
|
|
PROG
| (Haskell)
a077610 n k = a077610_row n !! k
a077610_row n = [d | d <- [1..n], let (n', m) = divMod n d,
m == 0, gcd d n' == 1]
a077610_tabf = map a077610_row [1..]
-- Reinhard Zumkeller, Feb 12 02
|
|
|
CROSSREFS
| Cf. A037445, A027750.
Cf. A034444 (row lengths), A034448 (row sums); A206778.
Sequence in context: A049077 A180184 A077609 * A177815 A007879 A057979
Adjacent sequences: A077607 A077608 A077609 * A077611 A077612 A077613
|
|
|
KEYWORD
| nonn,tabf,changed
|
|
|
AUTHOR
| Eric Weisstein (eric(AT)weisstein.com), Nov 11, 2002
|
| |
|
|
