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

Offset

1,2

Comments

Cf. A030284 = Primes whose digits do not appear in previous term, A107798 = Primes whose digits do not appear in two previous terms.

Links

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

Formula

a(n)=pi(A030284(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 A003271 A049796

Adjacent sequences: A107796 A107797 A107798 * A107800 A107801 A107802

Keyword

nonn,base

Author

Zak Seidov, May 24 2005

Status

approved