|
%I #1 Jun 12 2004 03:00:00
%S 16,33,48,84,99,256,260,261,288,512,513,592,784,785,786,787,788,789,
%T 800,801,900,915,916,917,1040,1041,1380,1381,1395,1400,4400,4401,4416,
%U 4609,4610,4611,4624,4628,4629
%N Values of n for which A095777(n) is 15 (those terms which are expressible in decimal digits for bases 2 through 16, but not for base 17).
%e a(5)=99 because 99 when expressed in successive bases starting at 2 will produce its first non-decimal digit at base 17. Like so: 1100011, 10200, 1203, 344, 243, 201, 143, 120, 99, 90, 83, 78, 71, 69, 63. In base 17, 99 is 5E.
%p S := []; for n from 1 to 5000 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=15 then S := [op(S), n]; fi; fi; od; S;
%Y Cf. A095777.
%K base,nonn
%O 1,1
%A Chuck Seggelin (seqfan(AT)plastereddragon.com), Jun 05 2004
|
