login
A387884
Decimal expansion of the Rogers-Ramanujan R(q) function evaluated at q = exp(-Pi).
1
5, 1, 1, 4, 2, 8, 4, 5, 5, 4, 0, 3, 7, 0, 3, 5, 1, 9, 2, 9, 4, 6, 3, 3, 0, 1, 3, 5, 4, 2, 5, 7, 8, 8, 1, 0, 4, 1, 5, 7, 5, 4, 3, 8, 1, 4, 1, 7, 4, 6, 6, 5, 1, 2, 4, 1, 8, 7, 9, 8, 2, 0, 8, 0, 5, 0, 7, 5, 6, 2, 0, 2, 1, 8, 7, 4, 5, 6, 6, 1, 4, 4, 3, 8, 2, 6, 2, 4, 8, 6
OFFSET
0,1
FORMULA
Equals (sqrt(5) + 1)*(sqrt(5) - s)*(5^(1/4) + s)/4, where s = sqrt(2 + sqrt(5)).
Equals q^(1/5)*Product_{k >= 0} (1 - q^(5*k + 1))*(1 - q^(5*k + 4))/((1 - q^(5*k + 2))*(1 - q^(5*k + 3))), where q = exp(-Pi).
EXAMPLE
0.511428455403703519294633013542578810415754381417...
MATHEMATICA
First[RealDigits[(Sqrt[5] + 1)*(Sqrt[5] - #)*(5^(1/4) + #)/4 & [Sqrt[2 + Sqrt[5]]], 10, 100]]
CROSSREFS
KEYWORD
nonn,cons,easy
AUTHOR
Paolo Xausa, Sep 17 2025
STATUS
approved