A107799 Indices of primes occurring in A107798.

1, 2, 3, 4, 5, 9, 15, 17, 18, 21, 24, 26, 48, 87, 102, 110, 143, 161, 177, 345, 604, 671, 797, 927, 1008, 1346, 2491, 5140, 7942, 19798, 41539, 49943, 58202, 63958, 86538, 164167, 412897, 546742, 1402294, 2433676, 3063731, 4241134, 5216955, 6363488, 12238270, 16252329, 21896835

Offset

1,2

Links

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

Formula

a(n) = primepi(A107798(n)).

Mathematica

d=2; e=3; b={2, 3}; id[t_]:=IntegerDigits[t]; Do[p=Prime[n]; If[Intersection[Union[id[d], id[e]], id[p]]=={}, b=Append[b, n]; d=e; e=p], {n, 100000}]; b

Crossrefs

Cf. A030284, A107798.

Sequence in context: A222437 A060732 A068584 * A329049 A385747 A003271

Adjacent sequences: A107796 A107797 A107798 * A107800 A107801 A107802

Keyword

nonn,base

Author

Zak Seidov, May 24 2005

Extensions

a(36)-a(47) from Jason Yuen, Jan 01 2026

Status

approved