A117496 -id:A117496 - cp's OEIS frontend

A117564 Numbers with no 1's in base 3, 4 & 10 expansions.

0, 2, 8, 56, 60, 62, 224, 234, 236, 240, 242, 546, 558, 560, 648, 650, 654, 672, 674, 702, 704, 40992, 40994, 43746, 43758, 43760, 43820, 43904, 43962, 43964, 43976, 43980, 43982, 44226, 44232, 44234, 44280, 44282, 44286, 45224, 45258, 45260, 45704

Offset: 1

Zak Seidov, Apr 29 2006

Robert Israel, Table of n, a(n) for n = 1..10000

Cf. A005823, A023709, A117496.

a:=proc(n) if member(1,convert(convert(n,base,3),set) union convert(convert(n,base,4),set) union convert(convert(n,base,10),set))=false then n else fi end: seq(a(n),n=0..46000); # Emeric Deutsch, Oct 10 2006

n1Q[n_]:=DigitCount[n,3,1]==DigitCount[n,4,1]==DigitCount[n,10,1]==0; Select[Range[0,50000],n1Q] (* Harvey P. Dale, Sep 30 2012 *)

More terms from Emeric Deutsch, Oct 10 2006

A117509 Numbers whose base-3, base-4, base-5, and base-6 expansions contain no 1's.

Original entry on oeis.org

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

Zak Seidov, Apr 26 2006

			560 is in the sequence because 560 = 202202_3, 20300_4, 4220_5 and 2332_6.

Subsequence of A117496 (base-3 and base-4).

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

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 *)

More terms from Joshua Zucker, Aug 12 2006

cp's OEIS Frontend

A117564 Numbers with no 1's in base 3, 4 & 10 expansions.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

Extensions