A117509 Numbers whose base-3, base-4, base-5, and base-6 expansions contain no 1's.
0, 2, 560, 43760, 163854, 164018, 870899850, 870899852, 870900354, 870900360, 870900362, 870907842, 870907848, 870907850, 870977340, 870977342, 871016994, 871017138, 871017144, 871018188, 871018190, 871018440, 871018442, 871025312
Offset: 1
Examples
560 is in the sequence because 560 = 202202_3, 20300_4, 4220_5 and 2332_6.
Crossrefs
Subsequence of A117496 (base-3 and base-4).
Programs
-
Maple
a:=proc(n) if member(1,convert(n,base,3))=false and member(1,convert(n,base,4))=false and member(1,convert(n,base,5))=false and member(1,convert(n,base,6))=false then n else fi end: seq(a(n),n=0..300000); # Emeric Deutsch, Jul 25 2006
-
Mathematica
Select[Range[0,880000000],Count[Flatten[Table[IntegerDigits[#,n],{n,3,6}]], 1]==0&] (* Harvey P. Dale, Oct 30 2011 *) (* The program takes a long time to generate all the terms of the sequence *)
Extensions
More terms from Joshua Zucker, Aug 12 2006