login
Numbers n with property that in each of 9 bases 2..10, n has (at least one) substring '11'.
1

%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