|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|