OFFSET
1,3
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
snddQ[n_]:=Count[DigitCount[n], _?(#>0&)]==Count[DigitCount[2n], _?(#>0&)]; Select[Range[0, 120], snddQ] (* Harvey P. Dale, Oct 07 2012 *)
PROG
(Haskell)
a119798 n = a119798_list !! (n-1)
a119798_list = f [0..] a043537_list a043537_list where
f (z:zs) (u:us) (v:_:vs) | u /= v = f zs us vs
| otherwise = z : f zs us vs
-- Reinhard Zumkeller, Jan 04 2012
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, May 25 2006
EXTENSIONS
Offset fixed by Reinhard Zumkeller, Jan 04 2012
STATUS
approved