OFFSET
2,6
COMMENTS
The sum of the reciprocals appear to converge.
MATHEMATICA
DigitCount[#, 10, 0]&/@FoldList[Times, Prime[Range[90]]] (* Harvey P. Dale, Mar 05 2022 *)
PROG
(PARI) \ prime factorials p# = p1*p2*p3... where pi is the ithprime prfactdg(n, dg) = { forprime(j=2, n, y=1; ct=sr=0; forprime(x=2, j, y*=x; ); y1 = Str(y); print1(y" "); ln = length(y1); for(k = 1, ln, d = y%10; y = floor(y/10); if(d ==dg, ct+=1; sr += 1.0/ct; ); ); print1(ct", "); ); print(); print(sr); }
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Feb 03 2003
STATUS
approved