A030475 Primes with property that all even digits occur together and all odd digits occur together.

2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 113, 131, 137, 139, 151, 157, 173, 179, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293, 311, 313, 317

Offset: 1

Author

Patrick De Geest

Keywords

• nonn
• base

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A030476, A030480.

Programs

Maple

filter:= proc(n) local L; L:= convert(n,base,10) mod 2;
  not member(-1,L[1..-2]-L[2..-1])
end proc:
select(filter, [seq(ithprime(i),i=1..1000)]);

Mathematica

With[{upto=100},Select[Prime[Range[upto]],Length[SplitBy[IntegerDigits[#],Mod[#,2]&]]<3&]] (* Paolo Xausa, Oct 18 2023 *)

Extensions

Offset changed by Robert Israel, Oct 17 2023