A059708 Numbers k such that all digits have same parity.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 13, 15, 17, 19, 20, 22, 24, 26, 28, 31, 33, 35, 37, 39, 40, 42, 44, 46, 48, 51, 53, 55, 57, 59, 60, 62, 64, 66, 68, 71, 73, 75, 77, 79, 80, 82, 84, 86, 88, 91, 93, 95, 97, 99, 111, 113, 115, 117, 119, 131, 133, 135, 137, 139

Offset: 1

Author

N. J. A. Sloane, Feb 07 2001

Keywords

• nonn
• base
• easy
• look

Comments

A059717(a(n)) = a(n). - Reinhard Zumkeller, Jul 05 2011

A059707(a(n)) = a(n). - Reinhard Zumkeller, Jun 15 2012

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
• Index entries for 10-automatic sequences.

Crossrefs

Union of A014261 and A014263.

Cf. A059707, A059717, A061383.

Programs

Haskell

a059708 n = a059708_list !! (n-1)
a059708_list = filter sameParity [0..] where
   sameParity n = all (`elem` "02468") ns
               || all (`elem` "13579") ns where ns = show n
-- Reinhard Zumkeller, Jul 05 2011

Mathematica

Select[Range[0, 140], (cnt = Count[id = IntegerDigits[#], ?OddQ]; cnt == 0 || cnt == Length[id]) & ] (* _Jean-François Alcover, May 16 2013 *)