OFFSET
1,1
PROG
(PARI) isA191369(n)=my(b=vecsort(binary(n-1)), k=#b\2); #b==k+k & !b[k] & b[k+1] & b==vecsort(binary(n+1)) & numdiv(n)==k \\ Charles R Greathouse IV, Jun 05 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jun 04 2011
EXTENSIONS
a(10) corrected, a(31)-a(46) added by Charles R Greathouse IV, Jun 05 2011
STATUS
approved