A107365 Indices of primes occurring in A030284.

1, 2, 3, 4, 5, 9, 13, 16, 18, 21, 24, 26, 48, 79, 99, 110, 129, 140, 187, 304, 566, 670, 798, 905, 1020, 1119, 1346, 2266, 3354, 5140, 7043, 7854, 10548, 17986, 26886, 33861, 42373, 49100, 57393, 63954, 72099, 148934, 290510, 348529, 483751, 539780

Offset: 1

Author

Zak Seidov, May 24 2005

Keywords

• nonn

Crossrefs

Cf. A030284 = Primes whose digits do not appear in previous term.

Programs

Mathematica

d=2;b={1};Do[p=Prime[n];If[Intersection@@IntegerDigits/@{d, p}=={}, b=Append[b, n];d=p], {n, 100000000}];b

Formula

a(n)=pi(A030284(n))