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