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
KEYWORD
nonn,base
AUTHOR
Juri-Stepan Gerasimov, May 29 2011
EXTENSIONS
Corrected by R. J. Mathar, May 30 2011
STATUS
approved