A107365 - OEIS

%I #5 Mar 30 2012 17:26:16

%S 1,2,3,4,5,9,13,16,18,21,24,26,48,79,99,110,129,140,187,304,566,670,

%T 798,905,1020,1119,1346,2266,3354,5140,7043,7854,10548,17986,26886,

%U 33861,42373,49100,57393,63954,72099,148934,290510,348529,483751,539780

%N Indices of primes occurring in A030284.

%F a(n)=pi(A030284(n))

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

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

%K nonn

%O 1,2

%A _Zak Seidov_, May 24 2005