|
%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
|
