%I #16 Dec 14 2018 16:54:23
%S 1,2,3,4,14,23,119,123
%N Intersection of A089633 and A188531.
%C Binomial coefficient predictors in both bases 2 and 5 (for definition, see paper in link).
%H V. Shevelev, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL14/Shevelev/shevelev14.html">Binomial Coefficient Predictors</a>, Journal of Integer Sequences, Vol. 14 (2011), Article 11.2.8.
%t aQ[n_]:= DigitCount[n, 2, 0] < 2 && Module[{d=IntegerDigits[n,5]}, s=Select[d, #!=4 &]; s=={} || s =={3} || (d[[1]]<3 && s=={d[[1]]})]; Select[Range[100000], aQ] (* _Amiram Eldar_, Dec 14 2018 *)
%Y Cf. A089633, A188341, A188499, A188529, A188531, A188532.
%K nonn,base,more
%O 1,2
%A _Vladimir Shevelev_, Apr 03 2011