OFFSET
1,5
COMMENTS
REFERENCES
S. R. Finch, Mathematical Constants, Cambridge, 2003, p. 381.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..4178
R. K. Guy, Letter to N. J. A. Sloane, Sep 25 1986.
R. K. Guy, Letter to N. J. A. Sloane, 1987
R. K. Guy, The strong law of small numbers. Amer. Math. Monthly 95 (1988), no. 8, 697-712.
R. K. Guy, The strong law of small numbers. Amer. Math. Monthly 95 (1988), no. 8, 697-712. [Annotated scanned copy]
FORMULA
a(n) ~ 1 / (n * r^n), where r = A347901 = 0.57614876914275660229786857371993878235472466311897446868515653431946822937499... - Vaclav Kotesovec, Oct 09 2019
MATHEMATICA
max = 100;
A005169 = Series[1 - Fold[Function[1 - x^#2/#1], 1, Range[max, 0, -1]], {x, 0, max}] // CoefficientList[#, x]&;
mob[m_, n_] := If[Mod[m, n] == 0, MoebiusMu[m/n], 0];
EULERi[b_] := Module[{a, c, i, d}, c = {}; For[i = 1, i <= Length[b], i++, c = Append[c, i*b[[i]] - Sum[c[[d]]*b[[i - d]], {d, 1, i - 1}]]]; a = {}; For[i = 1, i <= Length[b], i++, a = Append[a, (1/i)*Sum[mob[i, d]*c[[d]], {d, 1, i}]]]; Return[a]];
EULERi[A005169 // Rest] (* Jean-François Alcover, Jan 06 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
R. J. Mathar, Jun 26 2013
STATUS
approved