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
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
KEYWORD
AUTHOR
N. J. A. Sloane, Feb 07 2001
STATUS
approved