login
Primes whose digits do not appear in two previous terms.
2

%I #6 May 01 2013 21:13:43

%S 2,3,5,7,11,23,47,59,61,73,89,101,223,449,557,601,823,947,1051,2333,

%T 4447,5009,6113,7247,8009,11113,22247,50069,81131,222247,500009,

%U 611111,722237,800089,1111151,2222243,6000679,8111581,22222223,40000409,51111161,72222823,90000049,111116561,222222227,300000089,411111461

%N Primes whose digits do not appear in two previous terms.

%C The slowest increasing sequence of primes such that a(n) shares no digit with a(n-1) and a(n-2).

%C Sequence seems to be infinite.

%C Corresponding indices of primes are in A107799. Cf. A030284 = Primes whose digits do not appear in previous term.

%t 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, p];d=e;e=p], {n, 100000}];b

%Y Cf. A030284, A107799.

%K base,nonn

%O 1,1

%A _Zak Seidov_, May 24 2005, Oct 23 2009

%E Edited by _N. J. A. Sloane_, Oct 29 2009