A085828 Lesser number n of a pair such that neither n nor n+1 contain the digit zero in bases 3 to 10.

1, 22, 121, 157, 5818, 5821, 38362, 58966, 154213, 154222, 154537, 2452966, 7253998, 14261173, 14261182, 26864293, 113169838, 113176438

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

Cf. A085509.

Sequence in context: A290800 A251930 A039612 * A221698 A081931 A156293

Adjacent sequences: A085825 A085826 A085827 * A085829 A085830 A085831

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