OFFSET
1,2
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
MATHEMATICA
f[n_] := Count[IntegerDigits[n, {3, 4, 5, 6, 7, 8, 9, 10}], 0, 2]; Select[ Range[ 1225000000], f[ # ] == 0 == f[ # + 1] & ]
SequencePosition[Table[If[Count[Flatten[Table[IntegerDigits[n, b], {b, 3, 10}]], 0] == 0, 1, 0], {n, 1132*105}], {1, 1}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 06 2019 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Jul 05 2003
EXTENSIONS
a(14)-a(18) corrected by Chai Wah Wu, Mar 06 2016
STATUS
approved