A357969 Decimal expansion of the constant Sum_{j>=0} j!/prime(j)#, where prime(j)# indicates the j-th primorial number.

2, 2, 4, 0, 0, 5, 3, 6, 5, 2, 6, 8, 9, 0, 5, 0, 1, 1, 0, 2, 5, 7, 2, 0, 6, 4, 2, 7, 6, 2, 5, 8, 0, 9, 4, 4, 3, 9, 1, 8, 3, 9, 3, 1, 4, 3, 0, 1, 5, 9, 5, 5, 4, 6, 6, 8, 3, 6, 4, 6, 9, 9, 5, 9, 2, 3, 3, 9, 8, 6, 1, 3, 6, 6, 8, 6, 6, 7, 4, 6, 0, 1, 9, 4, 6, 5, 7

Offset

1,1

Links

Table of n, a(n) for n=1..87.

Formula

Equals Sum_{j>=0} A000142(j)/A002110(j).

Example

2.240053652689050110257...

Mathematica

primorial[n_?Positive] := Product[Prime[i], {i, 1, n}];
RealDigits[1+Sum[i!/primorial[i], {i, 1, 1000}], 10, 100][[1]]

Prog

(PARI) suminf(k=0, k!/prod(j=1, k, prime(j))) \\ Michel Marcus, Oct 24 2022

Crossrefs

Cf. A000142, A002110, A064648.

Sequence in context: A229627 A140839 A320299 * A292943 A279906 A246846

Adjacent sequences: A357966 A357967 A357968 * A357970 A357971 A357972

Keyword

cons,easy,nonn

Author

Marco Ripà, Oct 22 2022

Extensions

Mathematica program corrected by Harvey P. Dale, Dec 24 2025

Status

approved