login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Even palindromes in which parity of digits alternates.
2

%I #6 Aug 17 2018 10:48:34

%S 0,2,4,6,8,212,232,252,272,292,414,434,454,474,494,616,636,656,676,

%T 696,818,838,858,878,898,21012,21212,21412,21612,21812,23032,23232,

%U 23432,23632,23832,25052,25252,25452,25652,25852,27072,27272,27472

%N Even palindromes in which parity of digits alternates.

%H Giovanni Resta, <a href="/A030149/b030149.txt">Table of n, a(n) for n = 1..10000</a>

%t altQ[n_] := n < 10 || Union[Total /@ Partition[ Mod[ IntegerDigits@ n, 2], 2, 1]] == {1}; palQ[n_] := Block[{d = IntegerDigits[n]}, d == Reverse@ d]; Select[2 Range[0, 15000], palQ[#] && altQ[#] &] (* _Giovanni Resta_, Aug 16 2018 *)

%Y Cf. A030147, A030148, A030150.

%K nonn,base

%O 1,2

%A _Patrick De Geest_

%E a(1) = 0 prepended and offset changed by _Giovanni Resta_, Aug 16 2018