|
Search: id:A130158
|
|
|
| A130158 |
|
Concatenation of the positive divisors of the terms of sequence A130157. |
|
+0
2
|
|
| 1, 1, 1, 2, 1, 3, 1, 3, 1, 5, 1, 2, 4, 1, 7, 1, 2, 3, 6, 1, 3, 9, 1, 3, 9, 1, 11, 1, 3, 9, 1, 2, 5, 10, 1, 2, 7, 14, 1, 13, 1, 2, 4, 8, 16, 1, 11, 1, 2, 3, 4, 6, 12, 1, 7, 1, 2, 4, 5, 10, 20, 1, 2, 7, 14, 1, 3, 5, 15, 1, 23, 1, 2, 4, 8, 16, 1, 17, 1, 2, 13, 26
(list; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
MAPLE
|
A130158 := proc(nmax) local a130157, a, n, anext, i ; a130157 := [1] ; a := [] ; while nops(a) < nmax do n := nops(a130157)+1 ; a := [op(a), op(numtheory[divisors](op(-1, a130157)))] ; anext :=0 ; for i from 1 to nops(a130157) do if gcd(op(i, a130157), op(n-1, a)) = 1 then anext := anext+1 ; fi ; od ; a130157 := [op(a130157), anext] ; od ; RETURN(a) ; end: A130158(80) ; - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jun 12 2007
|
|
CROSSREFS
|
Cf. A130157.
Sequence in context: A029227 A029214 A134460 this_sequence A104984 A083868 A128199
Adjacent sequences: A130155 A130156 A130157 this_sequence A130159 A130160 A130161
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet (qq-quet(AT)mindspring.com), May 13 2007
|
|
EXTENSIONS
|
More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jun 12 2007
|
|
|
Search completed in 0.002 seconds
|
