|
%I #1 Jun 12 2004 03:00:00
%S 14,28,29,42,44,56,57,72,73,74,85,86,100,104,196,198,199,200,201,204,
%T 210,211,212,213,216,217,224,253,254,295,392,393,396,397,398,399,434,
%U 435,436,437,438,448,449,462,463,464,507,508,509,520,521,522,523,524
%N Values of n for which A095777(n) is 13 (those terms which are expressible in decimal digits for bases 2 through 14, but not for base 15).
%e a(5)=44 because 44 when expressed in successive bases starting at 2 will produce its first non-decimal digit at base 15. Like so: 101100, 1122, 230, 134, 112, 62, 54, 48, 44, 40, 38, 35, 32. In base 15, 44 is 2E.
%p S := []; for n from 1 to 2000 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=13 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
|
