|
%I #19 Mar 08 2021 06:46:19
%S 1,2,3,4,5,6,7,8,9,11,12,15,22,24,33,36,44,48,55,66,77,88,99,1111,
%T 1155,1248,2222,3333,4444,5555,6666,7777,8888,9999,27216,31248,111111,
%U 116688,121212,142128,212184,222222,242424,313131,321216,333333,363636,368424,444444
%N Numbers that are divisible by all of their 1 and 2 digit substrings.
%C Subsequence of A034838. - _Michel Marcus_, Sep 19 2014
%H David A. Corneth, <a href="/A063527/b063527.txt">Table of n, a(n) for n = 1..10442</a>
%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>.
%e 1155 is divisible by 1, 1, 5, 5, 11, 15 and 55.
%t d12Q[n_]:=Module[{idn=IntegerDigits[n],idn2},idn2=FromDigits/@Partition[ idn,2,1];FreeQ[idn,0]&&And@@Divisible[n,idn]&&And@@Divisible[n,idn2]]; Select[Range[400000],d12Q] (* _Harvey P. Dale_, Aug 11 2015 *)
%o (Python)
%o from itertools import product
%o A063527_list = []
%o for g in range(1,7):
%o ....for n in product('123456789', repeat=g):
%o ........s = ''.join(n)
%o ........m = int(s)
%o ........if not any([m % int(d) for d in s]):
%o ............for i in range(len(s)-1):
%o ................if m % int(s[i:i+2]):
%o ....................break
%o ............else:
%o ................A063527_list.append(m) # _Chai Wah Wu_, Sep 18 2014
%o (PARI) is(n) = {my(d = digits(n), t = 0); s = Set(d); if(s[1] == 0, return(0)); for(i = 1, 2, for(j = 1, #d - i + 1, t++; fr = fromdigits(vector(i, k, d[j+k-1])); if(n % fr != 0, return(0)); ) ); 1 } \\ _David A. Corneth_, Sep 17 2019
%Y Cf. A034838 (integers divisible by all their digits).
%K base,easy,nonn
%O 1,2
%A _Erich Friedman_, Aug 01 2001
%E More terms from _David A. Corneth_, Sep 17 2019
|
