cp's OEIS Frontend

A191292 Numbers k such that k-1 and k+1 are both digitally balanced.

%I A191292 #15 Aug 23 2021 10:56:38
%S A191292 11,36,43,51,140,148,155,164,171,179,196,203,211,227,540,556,564,571,
%T A191292 588,596,603,612,619,627,652,660,667,676,683,691,708,715,723,739,780,
%U A191292 788,795,804,811,819,836,843,851,867,900,907,915,931,963,2108,2140,2156,2164,2171
%N A191292 Numbers k such that k-1 and k+1 are both digitally balanced.
%C A191292 Numbers k such that k-1 and k+1 are both in A031443.
%H A191292 Reinhard Zumkeller, <a href="/A191292/b191292.txt">Table of n, a(n) for n = 1..10000</a>
%t A191292 dbQ[n_]:=DigitCount[n,2,1]==DigitCount[n,2,0]; Select[Range[ 2200],AllTrue[ #+{1,-1},dbQ]&] (* _Harvey P. Dale_, Aug 23 2021 *)
%o A191292 (Haskell)
%o A191292 a191292 n = a191292_list !! (n-1)
%o A191292 a191292_list = f a031443_list where
%o A191292    f (x:x':xs) | x' == x+2 = (x+1) : f xs
%o A191292                | otherwise = f (x':xs)
%o A191292 -- _Reinhard Zumkeller_, Jun 07 2011
%Y A191292 Cf. A031443.
%K A191292 nonn,base
%O A191292 1,1
%A A191292 _Juri-Stepan Gerasimov_, May 29 2011
%E A191292 Corrected by _R. J. Mathar_, May 30 2011