login
A191292
Numbers k such that k-1 and k+1 are both digitally balanced.
8
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
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
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Corrected by R. J. Mathar, May 30 2011
STATUS
approved