cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A226016 Primes with alternate digits even and odd, and most significant digit even.

This page as a plain text file.
%I A226016 #18 Oct 28 2023 10:46:13
%S A226016 2,23,29,41,43,47,61,67,83,89,2129,2141,2143,2161,2309,2341,2347,2381,
%T A226016 2383,2389,2503,2521,2543,2549,2707,2729,2741,2749,2767,2789,2903,
%U A226016 2909,2927,2963,2969,4127,4129,4327,4349,4363,4507,4523,4547,4549,4561,4567,4583
%N A226016 Primes with alternate digits even and odd, and most significant digit even.
%C A226016 The only difference compared to A068887 is that the 3 is missing here. - _R. J. Mathar_, May 26 2013
%H A226016 Harvey P. Dale, <a href="/A226016/b226016.txt">Table of n, a(n) for n = 1..2000</a>
%e A226016 2143 is a member since its digits are alternatively even and odd.
%t A226016 a[n_,k_]:=Union[Boole/@EvenQ[Take[IntegerDigits[n],{k,-1,2}]]]; Join[{2},Select[Prime[Range[5,620]],{a[#,1],a[#,2]}=={{1},{0}} &]]
%t A226016 Select[Prime[Range[1000]],Boole[EvenQ[IntegerDigits[#]]]==PadRight[{},IntegerLength[#],{1,0}]&] (* _Harvey P. Dale_, Oct 28 2023 *)
%Y A226016 Cf. A000040, A030144.
%K A226016 nonn,base
%O A226016 1,1
%A A226016 _Jayanta Basu_, May 22 2013