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

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.

Mathematica

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

Prog

(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

Crossrefs

Union of A014261 and A014263.

Cf. A059707, A059717, A061383.

Sequence in context: A032959 A275945 A061383 * A306520 A247945 A317621

Adjacent sequences: A059705 A059706 A059707 * A059709 A059710 A059711

Keyword

nonn,base,easy,look

Author

N. J. A. Sloane, Feb 07 2001

Status

approved