login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A329385 Dirichlet g.f.: 1 / (2 - Product_{k>=1} zeta(k*s)). 2
1, 1, 1, 3, 1, 3, 1, 8, 3, 3, 1, 11, 1, 3, 3, 22, 1, 11, 1, 11, 3, 3, 1, 36, 3, 3, 8, 11, 1, 13, 1, 59, 3, 3, 3, 45, 1, 3, 3, 36, 1, 13, 1, 11, 11, 3, 1, 116, 3, 11, 3, 11, 1, 36, 3, 36, 3, 3, 1, 57, 1, 3, 11, 160, 3, 13, 1, 11, 3, 13, 1, 164, 1, 3, 11, 11, 3, 13, 1, 116 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,4
LINKS
FORMULA
G.f. A(x) satisfies: A(x) = x + Sum_{k>=2} A000688(k) * A(x^k).
a(1) = 1; a(n) = Sum_{d|n, d < n} A000688(n/d) * a(d).
Let f(s) = Product_{k>=1} zeta(k*s), then Sum_{k=1..n} a(k) ~ n^r / (-r*f'(r)), where r = A335494 = 1.8868691498777... is the root of the equation f(r) = 2 and f'(r) = -1.8255483309672084429580571100367977185868132697213762608374345719289... - Vaclav Kotesovec, Jun 11 2020
MATHEMATICA
a[n_] := If[n == 1, n, Sum[If[d < n, FiniteAbelianGroupCount[n/d] a[d], 0], {d, Divisors[n]}]]; Table[a[n], {n, 1, 80}]
CROSSREFS
Cf. A000688, A001358 (positions of 3's), A008578 (positions of 1's), A050354, A129667.
Sequence in context: A309790 A349619 A082495 * A200476 A300251 A016572
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jun 07 2020
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 20:05 EDT 2024. Contains 371254 sequences. (Running on oeis4.)