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

11, 36, 43, 51, 140, 148, 155, 164, 171, 179, 196, 203, 211, 227, 540, 556, 564, 571, 588, 596, 603, 612, 619, 627, 652, 660, 667, 676, 683, 691, 708, 715, 723, 739, 780, 788, 795, 804, 811, 819, 836, 843, 851, 867, 900, 907, 915, 931, 963, 2108, 2140, 2156, 2164, 2171

Offset: 1

Author

Juri-Stepan Gerasimov, May 29 2011

Keywords

• nonn
• base

Comments

Numbers k such that k-1 and k+1 are both in A031443.

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A031443.

Programs

Haskell

a191292 n = a191292_list !! (n-1)
a191292_list = f a031443_list where
   f (x:x':xs) | x' == x+2 = (x+1) : f xs
               | otherwise = f (x':xs)
-- Reinhard Zumkeller, Jun 07 2011

Mathematica

dbQ[n_]:=DigitCount[n,2,1]==DigitCount[n,2,0]; Select[Range[ 2200],AllTrue[ #+{1,-1},dbQ]&] (* Harvey P. Dale, Aug 23 2021 *)

Extensions

Corrected by R. J. Mathar, May 30 2011