|
%I #14 Oct 12 2020 02:14:05
%S 10,21,32,43,54,65,76,87,98,109,110,111,112,113,114,115,116,117,118,
%T 119,120,131,142,153,164,175,186,197,208,219,230,231,232,233,234,235,
%U 236,237,238,239,240,241,252,263,274,285,296,307,318,329,340,351,352,353
%N Values of n for which A095777(n) is 9 (those terms which are expressible in decimal digits for bases 2 through 10, but not for base 11).
%C Numbers with at least one digit A (=10) in their representation in base 11. Complementary sequence to A171397. - _François Marques_, Oct 11 2020
%H François Marques, <a href="/A095778/b095778.txt">Table of n, a(n) for n = 1..10000</a> (first 1000 terms from Harvey P. Dale)
%e a(5)=54 because 54 when expressed in successive bases starting at 2 will produce its first non-decimal digit at base 11. Like so: 110110, 2000, 312, 204, 130, 105, 66, 60, 54. In base 11, 54 is 4A.
%p S := []; for n from 1 to 1000 do; if 1>0 then; ct := 0; ok := true; b := 2; if (n>9) then; while ok=true do; L := convert(n, base, b); for e in L while ok=true do; if (e > 9) then ok:=false; fi; od; if ok=true then; ct := ct + 1; b := b + 1; fi; od; fi; if ct=9 then S := [op(S), n]; fi; fi; od; S;
%p # or
%p seq(`if`(numboccur(10, convert(n, base, 11))>0, n, NULL), n=0..1000); # _François Marques_, Oct 11 2020
%t Select[Range[400],Max[IntegerDigits[#,11]]>9&] (* _Harvey P. Dale_, Sep 30 2018 *)
%o (PARI) isok(m) = #select(x->(x==10), digits(m, 11)) >= 1; \\ _François Marques_, Oct 11 2020
%Y Cf. A095777.
%Y Cf. Numbers with at least one digit b-1 in base b : A074940 (b=3), A337250 (b=4), A337572 (b=5), A333656 (b=6), A337141 (b=7), A337239 (b=8), A338090 (b=9), A011539 (b=10), this sequence (b=11).
%Y Cf. Numbers with no digit b-1 in base b: A005836 (b=3), A023717 (b=4), A020654 (b=5), A037465 (b=6), A020657 (b=7), A037474 (b=8), A037477 (b=9), A007095 (b=10), A171397 (b=11).
%K base,nonn
%O 1,1
%A Chuck Seggelin (seqfan(AT)plastereddragon.com), Jun 05 2004
|
