OFFSET
0,1
LINKS
EXAMPLE
a(5) = 7 since 5 occurs in prime(7)# = 2 * 3 * 5 * 7 * 11 * 13 * 17 = 510510, but not in prime(0)#, prime(1)#, prime(2)#, ..., prime(6)#.
MATHEMATICA
primorial[n_] := Product[Prime[j], {j, 1, n}]; a[n_] := (k = 0; While[! MatchQ[IntegerDigits[primorial[k]], {___, Sequence @@ IntegerDigits[n], ___}], k++]; k); Table[a[n], {n, 0, 70}]
PROG
(Python)
from sympy import nextprime
def A346203(n):
m, k, p, s = 1, 0, 1, str(n)
while s not in str(m):
k += 1
p = nextprime(p)
m *= p
return k # Chai Wah Wu, Jul 12 2021
(PARI) a(n) = my(k=0, p=1, q=1, sn=Str(n)); while (#strsplit(Str(q), sn)==1, k++; p=nextprime(p+1); q*=p); k; \\ Michel Marcus, Jul 13 2021; corrected Jun 15 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Ilya Gutkovskiy, Jul 10 2021
STATUS
approved