|
%I #5 Jul 19 2020 15:16:40
%S 2381167,2435011,2507119,5407113,5411372,5411421,5411470,5411519,
%T 5411567,5411568,5411569,5411570,5411571,5411572,5411573,5411617,
%U 5411666,5411715,5411764,5411813,5411915,5411916,5558911,5801161
%N Numbers n with property that in each of 9 bases 2..10, n has (at least one) substring '11'.
%H Zak Seidov, <a href="/A167890/b167890.txt">Table of n, a(n) for n = 1..250</a>
%e 2381167_10, 4428311_9, 11052557_8, 26145115_7, 123011531_6, 1102144132_5,
%e 21011111233_4, 11110222100101_3, 1001000101010101101111_2
%e 2435011_10, 4521177_9, 11223703_8, 26461105_7, 124105111_6, 1110410021_5,
%e 21102133003_4, 11120201012121_3, 1001010010011111000011_2.
%t Select[Range[6*10^6],Min[SequenceCount[#,{1,1}]&/@IntegerDigits[ #,Range[ 2,10]]]>0&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jul 19 2020 *)
%K base,nonn
%O 1,1
%A _Zak Seidov_, Nov 14 2009
|
