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,1

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

Mathematica

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

Prog

(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

Crossrefs

Cf. A031443.

Sequence in context: A138893 A243151 A225130 * A107280 A044088 A044469

Adjacent sequences: A191289 A191290 A191291 * A191293 A191294 A191295

Keyword

nonn,base

Author

Juri-Stepan Gerasimov, May 29 2011

Extensions

Corrected by R. J. Mathar, May 30 2011

Status

approved