|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|