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
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
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