A188533 Intersection of A089633 and A188531.

1, 2, 3, 4, 14, 23, 119, 123

Offset

1,2

Comments

Binomial coefficient predictors in both bases 2 and 5 (for definition, see paper in link).

Links

Table of n, a(n) for n=1..8.

V. Shevelev, Binomial Coefficient Predictors, Journal of Integer Sequences, Vol. 14 (2011), Article 11.2.8.

Mathematica

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 *)

Crossrefs

Cf. A089633, A188341, A188499, A188529, A188531, A188532.

Sequence in context: A019137 A333623 A317737 * A163128 A280924 A295756

Adjacent sequences: A188530 A188531 A188532 * A188534 A188535 A188536

Keyword

nonn,base,more

Author

Vladimir Shevelev, Apr 03 2011

Status

approved