A107367 Primes whose digits do not appear in three previous terms.

2, 3, 5, 7, 11, 23, 59, 67, 101, 223, 449, 557, 601, 823, 4999, 5557, 6011, 8233, 9949, 57557, 60101, 82223, 94949, 555557, 600011, 822223, 994949, 5555777, 6000011, 8222323, 9444949

Offset

1,1

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..31.

Mathematica

d=2; e=3; f=5; b={2, 3, 5}; id[t_]:=IntegerDigits[t]; Do[p=Prime[n]; If[Intersection[Union[id[d], id[e], id[f]], id[p]]=={}, b=Append[b, p]; d=e; e=f; f=p], {n, 100000}]; b
nxt[{a_, b_, c_}]:=Module[{dgs=Union[Flatten[IntegerDigits/@{a, b, c}]], d = NextPrime[ c]}, While[ Intersection[dgs, IntegerDigits[d]]!={}, d= NextPrime[d]]; {b, c, d}]; NestList[nxt, {2, 3, 5}, 30][[All, 1]] (* Harvey P. Dale, Oct 11 2021 *)

Crossrefs

Cf. A030284, A107798, A107799.

Sequence in context: A107798 A119660 A079148 * A036342 A114421 A167119

Adjacent sequences: A107364 A107365 A107366 * A107368 A107369 A107370

Keyword

nonn,base

Author

Zak Seidov, May 24 2005

Extensions

More terms from Harvey P. Dale, Oct 11 2021

Status

approved