A067175 Number of digits in the n-th primorial (A002110).

1, 1, 1, 2, 3, 4, 5, 6, 7, 9, 10, 12, 13, 15, 17, 18, 20, 22, 24, 25, 27, 29, 31, 33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53, 56, 58, 60, 62, 64, 66, 69, 71, 73, 76, 78, 80, 82, 85, 87, 89, 92, 94, 97, 99, 101, 104, 106, 109, 111, 113, 116, 118, 121, 123, 126, 128, 131, 133

Offset

0,4

Links

Soumyadeep Dhar, Table of n, a(n) for n = 0..5000

Maple

with(numtheory): it := 1: for n from 1 to 150 do it := it*ithprime(n): printf(`%d, `, ceil(log[10](it))) od:

Mathematica

Table[Floor[Log[10, Product[Prime[k], {k, n}]] + 1], {n, 0, 67}]
Join[{1}, IntegerLength/@FoldList[Times, Prime[Range[70]]]] (* Harvey P. Dale, Jan 03 2024 *)

Prog

(PARI) a(n) = 1 + logint(vecprod(primes(n)), 10) \\ Andrew Howroyd, Apr 24 2021
(Python)
from sympy import primorial
def a(n): return 1 if n == 0 else len(str(primorial(n)))
print([a(n) for n in range(68)]) # Michael S. Branicky, Apr 24 2021

Crossrefs

Cf. A002110. Essentially the same as A048856.

Cf. A004216, A004218, A055642.

Sequence in context: A191325 A190209 A048856 * A225804 A049809 A190278

Adjacent sequences: A067172 A067173 A067174 * A067176 A067177 A067178

Keyword

base,nonn

Author

Lekraj Beedassy, Feb 18 2002

Extensions

Edited and extended by Robert G. Wilson v and James A. Sellers, Feb 19 2002

Offset corrected by Arkadiusz Wesolowski, May 04 2013

Status

approved