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,1

Links

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

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 *)

Crossrefs

Cf. A030476, A030480.

Sequence in context: A082646 A231588 A038618 * A069676 A062353 A077390

Adjacent sequences: A030472 A030473 A030474 * A030476 A030477 A030478

Keyword

nonn,base

Author

Patrick De Geest

Extensions

Offset changed by Robert Israel, Oct 17 2023

Status

approved