Search: id:A084347
Results 1-1 of 1 results found.

%I A084347
%S A084347 1,2,3,4,5,6,7,8,9,10,11,12,14,15,16,18,20,21,22,24,25,27,28,30,32,33,
%T A084347 35,36,40,42,44,45,48,49,50,54,55,56,60,63,64,66,70,72,75,77,80,81,84,
%U A084347 88,90,96,98,99,100,105,108,110,111,112,120,121,125,126,128,132,135,140
%N A084347 Numbers which can be written as a*b*c*... where a, b, c are numbers whose 
               decimal expansions are repetitions of a single digit.
%C A084347 Superset of A051038. The first numbers in this sequence but not in A051038 
               are 111, 222, 333, 444, 555. [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), 
               Sep 17 2008]
%e A084347 111*2*33*44 = 322344 is a member.
%p A084347 isA010786 := proc(n) if nops(convert(convert(n,base,10),set)) = 1 then 
               true; else false ; fi; end: isA084347 := proc(n,a010785) local d 
               ; if n = 1 then RETURN(true) ; fi; for d in ( numtheory[divisors](n) 
               minus{1} ) do if d in a010785 then if isA084347(n/d,a010785) then 
               RETURN(true) ; fi; fi; od: RETURN(false) ; end: nmax := 1000: a010785 
               := [] : for k from 1 to nmax do if isA010786(k) then a010785 := [op(a010785),
               k] ; fi; od: for n from 1 to nmax do if isA084347(n,a010785) then 
               printf("%d,",n) ; fi; end: [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), 
               Sep 17 2008]
%Y A084347 Cf. A084348.
%Y A084347 Sequence in context: A033892 A033620 A033637 this_sequence A051038 A140332 
               A155182
%Y A084347 Adjacent sequences: A084344 A084345 A084346 this_sequence A084348 A084349 
               A084350
%K A084347 base,easy,nonn
%O A084347 1,2
%A A084347 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), May 27 2003
%E A084347 Extended by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Sep 17 2008

Search completed in 0.001 seconds