A090104 Decimal value of maximal digit of the n-th primorial when written in base n.

1, 1, 1, 3, 3, 5, 4, 5, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 18, 20, 21, 22, 23, 24, 25, 24, 27, 27, 29, 29, 31, 32, 33, 32, 35, 35, 35, 34, 39, 39, 41, 40, 43, 44, 44, 45, 45, 48, 49, 50, 51, 52, 53, 54, 53, 56, 57, 58, 59, 60, 61, 61, 62, 64, 64, 66, 67, 68, 69, 70, 69, 72

Offset

1,4

Links

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

Example

n=11: 11th primorial is 200560490130 in base 10 while it is 7806X193790 written in base 11, so a[11]=10 (denoted by X).

Mathematica

qp[x_] := Prime[x]*qp[x-1]; {qp[0]=1, qp[1]=2}; RecursionLimit$=10000; Table[Max[IntegerDigits[qp[j], j]], {j, 2, 100}]

Crossrefs

Cf. A090102.

Sequence in context: A204004 A131950 A116192 * A333822 A075795 A058268

Adjacent sequences: A090101 A090102 A090103 * A090105 A090106 A090107

Keyword

base,nonn

Author

Labos Elemer, Dec 17 2003

Status

approved