|
%I #1 Jun 12 2004 03:00:00
%S 15,30,31,45,60,61,78,79,91,92,93,225,228,229,242,243,247,255,451,456,
%T 457,510,511,525,588,589,590,591,676,677,678,679,680,690,691,693,798,
%U 799,1014,1023,1036,1185,1190,1191,1192,1372,1373,1386,1387,1404,3458
%N Values of n for which A095777(n) is 14 (those terms which are expressible in decimal digits for bases 2 through 15, but not for base 16).
%e a(5)=60 because 60 when expressed in successive bases starting at 2 will produce its first non-decimal digit at base 16. Like so: 111100, 2020, 330, 220, 140, 114, 74, 66, 60, 55, 50, 48, 44, 40. In base 16, 60 is 3C.
%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=14 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
|
