|
%I #7 Nov 06 2019 19:50:58
%S 1,22,121,157,5818,5821,38362,58966,154213,154222,154537,2452966,
%T 7253998,14261173,14261182,26864293,113169838,113176438
%N Lesser number n of a pair such that neither n nor n+1 contain the digit zero in bases 3 to 10.
%H Chai Wah Wu, <a href="/A085828/b085828.txt">Table of n, a(n) for n = 1..10000</a>
%t f[n_] := Count[IntegerDigits[n, {3, 4, 5, 6, 7, 8, 9, 10}], 0, 2]; Select[ Range[ 1225000000], f[ # ] == 0 == f[ # + 1] & ]
%t 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 *)
%Y Cf. A085509.
%K base,nonn
%O 1,2
%A _Robert G. Wilson v_, Jul 05 2003
%E a(14)-a(18) corrected by _Chai Wah Wu_, Mar 06 2016
|
