login
A085828
Lesser number n of a pair such that neither n nor n+1 contain the digit zero in bases 3 to 10.
2
1, 22, 121, 157, 5818, 5821, 38362, 58966, 154213, 154222, 154537, 2452966, 7253998, 14261173, 14261182, 26864293, 113169838, 113176438
OFFSET
1,2
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
Cf. A085509.
Sequence in context: A290800 A251930 A039612 * A221698 A081931 A156293
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